Frage : VBA, zum von spezifischem Excel WKSTs in Zugangsdatenbank zu importieren.

Ich benutze Büro 2007, und ich habe eine übertreffenakte mit 4 dem Arbeitsblatt tabs-1, das „Hauptleitung“ betitelt wird, und die anderen 3 betitelten „Widget1“, „Widget2“ und „Widget3“.  

I möchte Daten in Zugang aus allen Arbeitsblattvorsprüngen importieren, deren Namensanfänge mit „Widget“ von Spalte A bis D in einem Tabellenanruf `tblMaster'.

The Beschränkungen sollten würden sein, den Import von Reihe 1 aus irgendwelchen der Blätter auszuschließen und ausschließen den Import aller möglicher Reihen ohne irgendeinen Wert, der unter Spalte A verzeichnet wird (freier Raum oder Null) und ausschließen Reihen, die einen Wert von `YZ' unter Spalte D.

Is dort jede mögliche Weise haben, die, ich dies mit VBA tun kann?  Mein Beispiel ist einfach genug, durch die Verbindung der Blätter zur Datenbank zu vollenden und das Schreiben einer Anschlussfrage, um die erwarteten Resultate zu erzielen.  Meine reale Situation hat Dutzende Blattvorsprünge, die ist, warum ich es vorziehe, dieses mit VBA anzupacken.  Jeder möglicher Einblick wird viel geschätzt.  Danke!    

Antwort : VBA, zum von spezifischem Excel WKSTs in Zugangsdatenbank zu importieren.

dieses versuchen Codes, um alle Blätter mit „Widget“ im Blattnamen zu importieren

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

Sub ImportAllSheets ()
objXL als Gegenstand verdunkeln
Stall, xlPath als Schnur, i verdunkeln als ganze Zahl

xlPath = „C:\myExcel.xls“

objXL = CreateObject („Excel.Application“) einstellen
    objXL.Workbooks.Open xlPath, zutreffend
    Mit objXL
        Für i = 1 zu. Worksheets.Count
            wenn instr (. Arbeitsblätter (i). Name, „Widget“) dann
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
             „TestTable“, xlPath, zutreffend. Arbeitsblätter (i). Name u.“! A: D "
            beenden wenn
        Zunächst
    Ende mit
    objXL.Quit
    objXL einstellen = nichts

Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us