IMPORTACAO DE PLANILHA
Preciso importar a 2ª aba (guia) de uma planilha mas todos os exemplos que encontro só mostram como importar a 1ª ( o que ja sei fazer).
O comando que normalmente utilizo é :
DoCmd.TransferSpreadsheet , acSpreadsheetTypeExcel8, strTabela, [Ô]C:\Movimento[Ô], True, [Ô]A3:E91[Ô]
onde strtabela é a tabela que receberá os dados e caminho contem
O comando que normalmente utilizo é :
DoCmd.TransferSpreadsheet , acSpreadsheetTypeExcel8, strTabela, [Ô]C:\Movimento[Ô], True, [Ô]A3:E91[Ô]
onde strtabela é a tabela que receberá os dados e caminho contem
Porque não abrir o XLS com ADO e usar as planilhas como se fossem tabelas?
importar pra onde?
Dim Plan As Object [ô]Aplicação Excel
[ô]INSTANCIA OBJETO EXCEL NA MEMÓRIA
[ô]**********************************************************************
Set Plan = CreateObject([Ô]excel.application[Ô])
[ô]CHAMA EXCEL / IMPRIME
[ô]**********************************************************************
Plan.Workbooks.Open App.Path & [Ô]
omedaplanilha.xls[Ô]
Plan.Visible = False [ô]Indica q a planilha do Excel a ser utilizada nao estará visÃvel
Plan.UserControl = False
Plan.Sheets([Ô]Plan2[Ô]).Select [ô] Seleciona a planilha q vc vai trabalhar
....
....
....
o resto é com vc
[ô]INSTANCIA OBJETO EXCEL NA MEMÓRIA
[ô]**********************************************************************
Set Plan = CreateObject([Ô]excel.application[Ô])
[ô]CHAMA EXCEL / IMPRIME
[ô]**********************************************************************
Plan.Workbooks.Open App.Path & [Ô]
omedaplanilha.xls[Ô]
Plan.Visible = False [ô]Indica q a planilha do Excel a ser utilizada nao estará visÃvel
Plan.UserControl = False
Plan.Sheets([Ô]Plan2[Ô]).Select [ô] Seleciona a planilha q vc vai trabalhar
....
....
....
o resto é com vc
Em vez de [Ô]A3:E91[Ô], use os identificadores da segunda planilha: [Ô]Plan2!A1:E20[Ô]
Faça seu login para responder