Cuestión : Uso de la macro de Excel en ms Access 2000

Hola - tengo una macro de acceso cuyo paso pasado haga salir una tabla a Excel 97 - formato 2003.  Después abro el archivo de Excel y funciono con una macro manualmente para dar formato al archivo (fuentes cambiantes, cristales de congelación, formato condicional, formato de la impresión, etc.). el

I quiere eliminar el segundo proceso manual.  ¿Puede usted encajar la macro de Excel en el acceso así que el archivo de salida se da formato ya? el

I un principiante en VBA pero debe poder ejecutar con buenas instrucciones.    Thanks.
 class= del

Respuesta : Uso de la macro de Excel en ms Access 2000

Hola,

No miro normalmente bases de datos enteras en EE (que sería mi trabajo que paga), sino que miraba su macro de Excel. El código debajo de funcionamientos del acceso, así que usted no necesitan el libro de trabajo macro más. Es más fácil mantener esta manera a largo plazo. Pienso que preservé la mayor parte de su código, en solamente una fracción de su longitud original. Compararla por favor a su macro registrada original y ver si olvidé una línea importante.

El código abrirá un archivo nombrado TestOutputFile.xls en la misma carpeta que la base de datos del acceso. Ajustar por consiguiente. Trabajará si el archivo está ya abierto o no, y utilizará el caso actual de Excel si uno está disponible.

(°v°)
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

TextXL secundario ()
    Wkb dévil como Excel.Workbook
    Wks déviles como Excel.Worksheet
    
    Fijar el wkb = GetObject (CurrentProject.Path y “\ TestOutputFile.xls”)
    wkb. Windows (1).Visible = verdad
    Fijar los wks = el wkb. Hojas de trabajo (1)

    Con los wks. Células
        .VerticalAlignment = xlBottom
        .WrapText = falso
        . Borders.LineStyle = xlNone
        .EntireColumn.AutoFit
        .AutoFilter
        . Columnas (“D: E”). Grupo
        Con. Columnas (“yo: K”)
            .NumberFormat = “m/d/yy; @”
            .HorizontalAlignment = xlCenter
        Extremo con
        . Columnas (“L: M”) .HorizontalAlignment = xlCenter
        . Columnas (“N: N”) .NumberFormat = “$#, ##0.00”
        . Columnas (“O: AR”) .NumberFormat =” _ (* #, ##0_); _ (* (#, ##0); ¿_ (* "" - ""?? _); _ (@_) “
        . Columnas (“T: Z”). Grupo
        . Columnas (“AB: AI”). Grupo
    Extremo con
    
    wks. Gama (“F2”). Selecto
    wkb. Windows (1).FreezePanes = verdad
    Con wks.PageSetup
        .PrintTitleRows = “$1: $1”
        .PrintTitleColumns = ""
        .LeftHeader = ""
        .CenterHeader = “&A”
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = 0.25 * 72
        .RightMargin = 0.25 * 72
        .TopMargin = 1 * 72
        .BottomMargin = 0.75 * 72
        .HeaderMargin = 0.5 * 72
        .FooterMargin = 0.5 * 72
    Extremo con
    wkb. Ahorrar
    wkb. Cierre

Submarino del extremo
Otras soluciones  
 
programming4us programming4us