Saudações, galera!
eu tenho a seguinte instrução que peguei aki em dicas:
Dim Excel As Object
Set Excel = CreateObject("Excel.Application.8")
With Excel
.Workbooks.Open filename:="C:caminhoarquivo.xls"
.Visible = True
.Sheets("Plan1").Select
.Range("A1").Select
MsgBox .activecell.Value
.activecell.Value = 20
End With
Mas da erro ao criar o objeto, já verifiquei se o OLE automation está adicionado.
Poderiam por favor me dar um Help?
Muito obrigado e fiquem com Deus.
MARCIO
