[Resolvido] Importar dados excel para tabela padrão. (duvida de exemplo do fórum)

Boa noite amigos,

No exemplo postado abaixo pelo Fábio Paes, gostaria de saber como eu deixo uma tabela padrão para ser preenchida ao invés da combobox? Sou novo em VB tentei ajeitar mas não deu certo.

https://www.maximoaccess.com/t26911-importar-planilha-excel-informando-a-tabela-de-destino-a-folha-sheets-de-origem-e-localizando-o-documento-excel

Obrigado.

Observe o codigo em descaque:

strFile = Dir(Me.txtlocalArquivo) 'Pega o Nome do Arquivo
strPath = Me.txtlocalArquivo 'Pega o Local do Arquivo
strTabela = Me.txtTabela.Value

Do While Len(strFile) > 0
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTabela, strPath, True, Me.cboSheets & "!A1:AQ500"
strFile = Dir()




A variavel strTabela Recebe A tabela selecionada na Combo txtTabela

Por fim, uso o metodo TransferSpreadsheet para enviar os dados a essa tabela.

Se vc quer mandar para uma tabela especifica basta comentar esta linha:

strTabela = Me.txtTabela.Value


E Muda de: DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTabela, strPath, True, Me.cboSheets & "!A1:AQ500"


Para:

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
"NomeDaTabelaAqui", strPath, True, Me.cboSheets & "!A1:AQ500"

Muito obrigado Fabio!

Gostaria de tirar mais uma duvida relacionada a esse exemplo, preciso abrir um novo tópico?

Pode perguntar...

Eu tenho dados em campos específicos na planilha, teria uma forma de fazer a logica da seguinte maneira?

Ex:
Importar dados das células B1 ATÉ B30 para coluna1 da tabela1. (Sem a necessidade de ter o mesmo nome na célula e tabela)


Obrigado

O metodo utilizado devem ser o mesmo nome de campos Tabela e Planilha Excel.

Existem Ns formas da pegar esses dados do Excel, porem em todos vc tera que dizer que a ColunsA do Excel vai para o CampoA da Planilha do se sistema.

Claro, sao codigos mais complexos...

Veja qual sua necessidade e se nao vale mais a pena manter padronizado os nomes das colunas no Excel... Pois esse e o metodo mais simples que conheco.

Obrigado Fabio.

Funciona perfeitamente com os mesmos nomes. Eu só fiquei um pouco preso a essa questã de escolher as colunas e linhas porque eu tenho uma planilha de um fornecedor que não pode ser alterada e digamos que tenha uma estrutura péssima e por isso eu precisaria puxar pela coluna e não pelo nome.

Eu anexei a planilha para você entender melhor.


De qualquer maneira, agradeço a ajuda.

Valeu

Assim que possivel posto um exemplo!

Amigo, aqui um exemplo feito em cima do seu caso...
https://www.maximoaccess.com/t29052-importar-do-excel-atraves-de-recordset-informando-a-coluna-e-nao-nome-dos-campos-excel#202550

Fabio,

Muito obrigado! Ajudou completamente!

Abraços!

Ate a Proxima se Deus quiser!!!