Questione : VBA per importare Excel specifico WKSTs nella base di dati di accesso.

Sto usando l'ufficio 2007 ed ho una lima di supremazia con 4 il manuale tabs-1 intitolato “conduttura„ e gli altri 3 “Widget1„ denominati, “Widget2„ e “Widget3„.  il

I vorrebbe importare i dati in accesso da tutte le linguette del manuale di cui inizio nomi con la colonna A - D “del Widget„ in un tblMaster del `di chiamata della tabella'. le limitazioni del

The dovrebbero sarebbero di escludere l'importazione della fila 1 da c'è ne degli strati ed escludono l'importazione delle tutte le file senza alcun valore elencato sotto la colonna A (spazio in bianco o posizione di segnale minimo) ed escludono le file che hanno un valore di `YZ' sotto la colonna D.

Is là tutto il senso che posso fare questo con VBA?  Il mio esempio è abbastanza facile da compire through il collegamento degli strati alla base di dati e scrivendo una domanda del sindacato per raggiungere i risultati previsti.  La mia situazione reale ha dozzine delle linguette dello strato, che è perché preferisco affrontare questo con VBA.  Tutta la comprensione molto è apprezzata.  Grazie!     class= del

Risposta : VBA per importare Excel specifico WKSTs nella base di dati di accesso.

provare questo codici, per importare tutti gli strati con “il widget„ nel nome dello strato

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

Sub ImportAllSheets ()
Oscurare il objXL come oggetto
Oscurare la scuderia, il xlPath come stringa, i come numero intero

xlPath = “C:\myExcel.xls„

Regolare il objXL = CreateObject (“Excel.Application„)
    xlPath di objXL.Workbooks.Open, allineare
    Con objXL
        Per i = 1 a. Worksheets.Count
            se instr (. Manuali (i). Nome, “widget„) allora
            acImport di DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel12, _
             “TestTable„, xlPath, allineare. Manuali (i). Nome &„! A: D "
            concluder se
        Dopo
    Estremità con
    objXL.Quit
    Regolare il objXL = niente

Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us