EXCEL PARA VB [ IMPORTACAO ]

RE.NANER 16/09/2005 10:01:17
#104571
Bom Dia..... Ao importar arquivo do Excel, ocorre erro.....Não consigo arrumar.....
Já olhei o forum, Macoratti.....mas não consegui!

Dim objExcel As Excel.Application
Dim Arquivo As Workbook
Dim Planilha As Worksheet

If objExcel Is Nothing Then
   Set objExcel = New Excel.Application
End If

varArquivo = "Planilha Excel" 'Nome do Arquivo

Set Arquivo = objExcel.Workbooks.Open(varArquivo) ' OCORRE ERRO Automation error

With Arquivo
   Set Planilha = Arquivo.Worksheets(varPlanilhaImportacao)
   With Planilha
      'Seleciona os dados da Planilha
      For Linha = varLinhaInicial To varLinhaFinal
         For Coluna = varColunaInicial To varColunaFinal
            If Planilha.Cells(Linha, Coluna) <> "" Then
            ......
         .........


Oque pode ser??

Obrigado
USUARIO.EXCLUIDOS 16/09/2005 11:07:55
#104585
pra chamar o Excel tente usar:
Set objExcel = CreateObject("Excel.Application")

Verifique também se o arquivo existe
RE.NANER 16/09/2005 13:14:37
#104617
Rafael_FP .....vlws pela dica....mas não mudou nda!!!!!


ps: o arquivo existe!!
USUARIO.EXCLUIDOS 16/09/2005 14:14:47
#104639
Ja tentou:
objExcel.Workbooks.Open(varArquivo)
ao ivés de:
Set Arquivo = objExcel.Workbooks.Open(varArquivo)
RE.NANER 16/09/2005 15:12:48
#104658
Sim..... já havia tentado.... mesma coisa....

mas vlws.....

vou dar uma olhada....estou usando WinXp....vou testa em uma máquina com Win98...
Tópico encerrado , respostas não são mais permitidas
Voltar