Fråga : VBA till den specifika Excel WKSTs för importen in i tar fram databas.

Förmiddag I using kontoret 2007 och jag har en överträffa att spara med 4 arbetssedel tabs-1 berättigad ”huvudsakligt”, och de andra 3 berättigade ”Widget1na”, ”Widget2” och ”Widget3”.  

I skulle något liknande till importdata in i tar fram från alla arbetssedelflikar vars kända starter med ”manick” från kolonn A till D i ett bordlägga appell`- tblMaster'. begränsningar för

The bör skulle för att vara att utesluta import ror 1 från några av täcker och uteslutar import några ror utan några värderar listat under kolonn ogiltigt A (som är tomt eller) och uteslutar ror som har en värdera av `YZ' under kolonnen D.

Is, där any långt som jag kan göra denna med VBA?  Mitt exempel är lätt nog att utföra till och med att anknyta täcker till databasen och handstilen en facklig query för att uppnå de förväntade resultaten.  Mitt verkliga läge har dussintals att täcka flikar, som är varför jag föredrar att tackla denna med VBA.  Någon inblick uppskattas mycket.  Tack!     " klar "

Svar : VBA till den specifika Excel WKSTs för importen in i tar fram databas.

försök som detta kodifierar, till importen allt täcker med ”manick” i den kända täcka

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

UnderImportAllSheets ()
Dunkel objXL som anmärker
Dunkelt stall, xlPath som stränger, I som heltal

xlPath = ”C:\myExcel.xls”,

Fastställd objXL = CreateObject (”Excel.Application”)
    objXL.Workbooks.Open-xlPath, som är riktig
    Med objXL
        För I = 1 till. Worksheets.Count
            om instr (. Arbetssedlar (I). Namnge ”manick”) därefter
            DoCmd.TransferSpreadsheet-acImport, acSpreadsheetTypeExcel12, _,
             ”TestTable”, xlPath som är riktig. Arbetssedlar (I). Namnge &”! A: D ",
            avsluta om
        Därefter
    Avsluta med
    objXL.Quit
    Fastställd objXL = ingenting

Avsluta suben
Andra lösningar  
 
programming4us programming4us