Vraag : VBA om specifiek Excel WKSTs in het gegevensbestand van de Toegang in te voeren.

Ik gebruik Bureau 2007, en ik heb dossier met 4 aantekenvel lusje-1 getiteld „Leiding“, en andere 3 getiteld „Widget1“, „Widget2“, en „Widget3“ uitblinken.  

I zou gegevens in Toegang van alle aantekenvellusjes willen invoeren de waarvan naam met „Widget“ van kolom A aan D in één lijstvraag `tblMaster' begint. de beperkingen

The zouden zijn moeten het invoeren rij 1 uit te sluiten van om het even welke bladen, en het invoeren van om het even welke rijen zonder enige die waarde uit te sluiten onder kolom (leeg of ongeldige) wordt vermeld A, en rijen uit te sluiten die daar een waarde van `YZ' onder kolom D.

Is om het even welke manier hebben ik dit met VBA kan doen?  Mijn voorbeeld is gemakkelijk genoeg om door het verbinden van de bladen met het gegevensbestand en het schrijven van een unievraag te verwezenlijken om de verwachte resultaten te bereiken.  Mijn echte situatie heeft dozens bladlusjes, wat is waarom ik verkies dit met VBA aan te pakken.  Om het even welk inzicht wordt veel gewaardeerd.  Dank!    

Antwoord : VBA om specifiek Excel WKSTs in het gegevensbestand van de Toegang in te voeren.

probeer dit codeert, om alle bladen met „widget“ in de bladnaam in te voeren

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

Sub ImportAllSheets ()
Schemerige objXL als Voorwerp
Schemerige stal, xlPath als Koord, I als Geheel

xlPath = „C:\myExcel.xls“

Reeks objXL = CreateObject („Excel.Application“)
    objXL.Workbooks.Open xlPath, Waar
    Met objXL
        Voor I = 1 aan. Worksheets.Count
            als instr (. Aantekenvellen (I). Naam, „widget“) toen
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
             „TestTable“, xlPath, Waar. Aantekenvellen (I). Naam &“! A: D "
            beëindig als
        Daarna
    Eind met
    objXL.Quit
    Reeks objXL = niets

Sub van het eind
Andere oplossingen  
 
programming4us programming4us