Pergunta : VBA para importar Excel específico WKSTs na base de dados do acesso.

Eu estou usando o escritório 2007, e eu tenho uma lima primar com 4 a folha tabs-1 intitulada “cano principal”, e outros 3 “Widget1 intitulados”, “Widget2”, e “Widget3”.  o

I gostaria de importar dados no acesso de todas as abas da folha cujos começos conhecidos com a coluna A a D do “Widget” em um tblMaster do `da chamada da tabela'. as limitações do

The devem seriam excluir a importação da fileira 1 de algumas das folhas, e excluem a importação de todas as fileiras sem nenhum valor alistado sob a coluna A (espaço em branco ou zero), e excluem as fileiras que têm um valor do `YZ' sob a coluna D.

Is lá toda a maneira que eu puder fazer este com VBA?  Meu exemplo é fácil bastante de realizar com do ligamento das folhas à base de dados e da escrita de uma pergunta da união para conseguir os resultados previstos.  Minha situação real tem dúzias de abas da folha, que é porque eu prefiro abordar este com VBA.  Toda a introspecção é apreciada muito.  Obrigado!     class= do

Resposta : VBA para importar Excel específico WKSTs na base de dados do acesso.

tentar isto códigos, importar todas as folhas com o “widget” no nome da folha

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Sub ImportAllSheets ()
Escurecer o objXL como o objeto
Escurecer o estábulo, xlPath como a corda, i como o inteiro

xlPath = “C:\myExcel.xls”

Ajustar o objXL = o CreateObject (“Excel.Application”)
    xlPath de objXL.Workbooks.Open, verdadeiro
    Com objXL
        Para i = 1 a. Worksheets.Count
            se instr (. Folhas (i). Nome, “widget”) então
            acImport de DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel12, _
             “TestTable”, xlPath, verdadeiro. Folhas (i). Nome &”! A: D "
            terminar se
        Em seguida
    Extremidade com
    objXL.Quit
    Ajustar o objXL = nada

Terminar o submarino
Outras soluções  
 
programming4us programming4us