Boa noite a todos!
Meu sistema importa os dados de uma planilha de excel, até aqui era uma planilha simples com apenas uma aba, agora tive que acrescentar mais duas abas e precisava importar os dados de cada aba para uma tabela diferente, teria como fazer isso no VBA?
O código que estava usando para importar uma aba era este:
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True 'Como True se contiver nomes de campos na prim. linha
strPath = "X:\LS\" ' drive onde se situa o seu documento excel
strTable = "TB_CHK" 'nome da tabela no seu banco
strFile = Dir(strPath & "*.xlsx, ChkList") '"*.xlsx" importa todas as folhas excel _
que estiverem na pasta para a tabela do banco.
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
As três abas são: Autos, ChkList e Funcionários
Desde já obrigado a todos!
Meu sistema importa os dados de uma planilha de excel, até aqui era uma planilha simples com apenas uma aba, agora tive que acrescentar mais duas abas e precisava importar os dados de cada aba para uma tabela diferente, teria como fazer isso no VBA?
O código que estava usando para importar uma aba era este:
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True 'Como True se contiver nomes de campos na prim. linha
strPath = "X:\LS\" ' drive onde se situa o seu documento excel
strTable = "TB_CHK" 'nome da tabela no seu banco
strFile = Dir(strPath & "*.xlsx, ChkList") '"*.xlsx" importa todas as folhas excel _
que estiverem na pasta para a tabela do banco.
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
As três abas são: Autos, ChkList e Funcionários
Desde já obrigado a todos!