Pytanie : VBA specyfik Przodować WKSTs w Dojazdowy baza danych.

I używać Biuro 2007, i I mieć przodować kartoteka z 4 worksheet tabs-1 tytułować "Magistrala", i the inny 3 tytułować "Widget1", "Widget2", i "Widget3".  

I polubić dane w Dostęp od wszystkie worksheet zakładka imię początek z "Widget" od kolumna A D w jeden stół wywoławczy `tblMaster'.

The ograniczenie musieć być rząd (1) od jakikolwiek prześcieradło, i wykluczać jakaś rząd bez jakaś wartość spisywać pod kolumna A (puste miejsce lub null), i wykluczać rząd który mieć wartość `YZ' pod kolumna D.

Is tam  jakaś sposób I móc/>Is z VBA?  Mój przykład być łatwy dosyć przez the prześcieradło the baza danych i zrzeszeniowy zapytanie the oczekiwać rezultat.  Mój istny sytuacja mieć tuziny szkotowy zakładka, che być dlaczego I woleć sytuacja z VBA.  Jakaś wgląd dużo doceniać.  Dzięki!    

Odpowiedź : VBA specyfik Przodować WKSTs w Dojazdowy baza danych.

próbować imię kod, wszystkie prześcieradło z "widget" w the ciąć na arkusze imię

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

Okręt podwodny ImportAllSheets ()
Ciemnawy objXL Przedmiot
Ciemnawy stajenka, xlPath Równie Sznurek, i Integer

xlPath = "C:\myExcel.xls"

Ustalony objXL = CreateObject ("Excel.Application")
    objXL.Workbooks.Open xlPath, Prawdziwy
    Z objXL
        Dla i = (1). Worksheets.Count
            jeżeli instr (. Worksheets (i). Imię, "widget") wtedy
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
             "TestTable", xlPath, Prawdziwy. Worksheets (i). Imię &"! A: D "
            kończyć jeżeli
        Następnie
    Końcówka Z
    objXL.Quit
    Ustalony objXL = Nic

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us