Cuestión : VBA para importar Excel específico WKSTs en base de datos del acceso.

Estoy utilizando la oficina 2007, y tengo un archivo del sobresalir con 4 la hoja de trabajo tabs-1 titulada “cañería”, y los otros 3 “Widget1 dados derecho”, “Widget2”, y “Widget3”.  el

I quisiera importar datos en el acceso de todas las lengüetas de la hoja de trabajo cuyo comienzo conocido con la columna A a D del “aparato” en un tblMaster del `de la llamada de la tabla'. ¿las restricciones del

The deben serían excluir la importación de la fila 1 de las hojas unas de los, y excluyen la importación de cualquier fila sin ningún valor enumerado debajo de la columna A (espacio en blanco o falta de información), y excluyen las filas que tienen un valor del `YZ' debajo de la columna D.

Is allí cualquier manera que pueda hacer esto con VBA?  Mi ejemplo es bastante fácil de lograr con el lazo de las hojas a la base de datos y la escritura de una pregunta de la unión para alcanzar los resultados previstos.  Mi situación verdadera tiene docenas de lengüetas de la hoja, que es porqué prefiero abordar esto con VBA.  Cualquier penetración se aprecia mucho.  ¡Gracias!     class= del

Respuesta : VBA para importar Excel específico WKSTs en base de datos del acceso.

intentar esto los códigos, para importar todas las hojas con el “aparato” en el nombre de la hoja

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

Sub ImportAllSheets ()
Amortiguar el objXL como objeto
Amortiguar el establo, xlPath como secuencia, i como número entero

xlPath = “C:\myExcel.xls”

Fijar el objXL = CreateObject (“Excel.Application”)
    xlPath de objXL.Workbooks.Open, verdad
    Con el objXL
        Para i = 1 a. Worksheets.Count
            si instr (. Hojas de trabajo (i). Nombre, “aparato”) entonces
            acImport de DoCmd.TransferSpreadsheet, acSpreadsheetTypeExcel12, _
             “TestTable”, xlPath, verdad. Hojas de trabajo (i). ¡Nombre y”! A: D "
            terminar si
        Después
    Extremo con
    objXL.Quit
    Fijar el objXL = nada

Terminar el submarino
Otras soluciones  
 
programming4us programming4us