Question : VBA pour importer Excel spécifique WKSTs dans la base de données d'accès.

J'emploie le bureau 2007, et j'ai un dossier d'exceler avec 4 la feuille de travail tabs-1 intitulée « force », et les 3 autres « Widget1 » intitulés, « Widget2 », et « Widget3 ».  le

I voudrait importer des données dans l'accès de toutes les étiquettes de feuille de travail dont les débuts nommés avec la colonne de « gadget » d'A à D dans un tblMaster de `d'appel de table'. les restrictions du

The devraient seraient d'exclure importer la rangée 1 des feuilles l'unes des, et excluent importer toutes les rangées sans n'importe quelle valeur énumérée sous la colonne A (blanc ou nulle), et excluent les rangées qui ont une valeur du `YZ' sous la colonne D.

Is là n'importe quelle manière que je peux faire ceci avec VBA ?  Il est assez facile accomplir mon exemple en liant les feuilles à la base de données et en écrivant une question des syndicats pour réaliser les résultats prévus.  Ma vraie situation a des douzaines d'étiquettes de feuille, qui est pourquoi je préfère aborder ceci avec VBA.  N'importe quelle perspicacité est beaucoup appréciée.  Merci !     class= de

Réponse : VBA pour importer Excel spécifique WKSTs dans la base de données d'accès.

essayer ceci des codes, pour importer toutes les feuilles avec le « gadget » dans le nom de feuille

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

Substrater ImportAllSheets ()
Obscurcir l'objXL comme objet
Obscurcir l'écurie, le xlPath comme corde, I comme nombre entier

xlPath = « C:\myExcel.xls »

Placer l'objXL = le CreateObject (« Excel.Application »)
    xlPath d'objXL.Workbooks.Open, vrai
    Avec l'objXL
        Pour I = 1 à. Worksheets.Count
            s'instr (. Feuilles de travail (i). Nom, « gadget ») puis
            acImport de DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel12, _
             « TestTable », xlPath, vrai. Feuilles de travail (i). Nom et » ! A : D "
            finir si
        Après
    Extrémité avec
    objXL.Quit
    Placer l'objXL = rien

Finir le sous-marin
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us