Pergunta : Uso do macro de Excel em MS Access 2000

Olá! - eu tenho um macro de acesso cuja a última etapa outputs uma tabela a Excel 97 - formato 2003.  Eu então abro a lima de Excel e funciono um macro manualmente para formatar a lima (pias batismais em mudança, placas de congelação, formato condicional, formato da cópia, etc.). o

I quer eliminar o segundo processo manual.  Pode você encaixar o macro de Excel no acesso assim que a lima de saída é formatada já? o

I am um principiante em VBA mas deve poder executar com boas instruções.    Thanks.
 class= do

Resposta : Uso do macro de Excel em MS Access 2000

Olá!,

Eu normalmente não olho bases de dados inteiras na EE (de que seria meu trabalho pagando), mas eu olhei seu macro de Excel. O código abaixo dos funcionamentos do acesso, assim que você não precisam o manual de instruções macro any more. É mais fácil manter a longo prazo esta maneira. Eu penso que eu preservei a maioria de seu código, somente em uma fração de seu comprimento original. Compará-lo por favor a seu macro gravado original e ver se eu esqueci uma linha importante.

O código abrirá uma lima nomeada TestOutputFile.xls no mesmo dobrador que a base de dados do acesso. Ajustar conformemente. Trabalhará se a lima está já aberta ou não, e usará o exemplo atual de Excel se um está disponível.

(°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 secundário ()
    Wkb não ofuscante como Excel.Workbook
    Wks não ofuscantes como Excel.Worksheet
    
    Ajustar o wkb = o GetObject (CurrentProject.Path & “\ TestOutputFile.xls”)
    wkb. Windows (1). Visível = retificar
    Ajustar wks = wkb. Folhas (1)

    Com wks. Pilhas
        .VerticalAlignment = xlBottom
        .WrapText = falso
        . Borders.LineStyle = xlNone
        .EntireColumn.AutoFit
        .AutoFilter
        . Colunas (“D: E”). Grupo
        Com. Colunas (“mim: K”)
            .NumberFormat = “m/d/yy; @”
            .HorizontalAlignment = xlCenter
        Extremidade com
        . Colunas (“L: M”) .HorizontalAlignment = xlCenter
        . Colunas (“N: N”) .NumberFormat = “$#, ##0.00”
        . Colunas (“O: AR”) .NumberFormat =” _ (* #, ##0_); _ (* (#, ##0); _ (* "" - ""?? _); _ (@_) “
        . Colunas (“T: Z”). Grupo
        . Colunas (“AB: AI”). Grupo
    Extremidade com
    
    wks. Escala (“F2”). Seleto
    wkb. Windows (1) .FreezePanes = retifica
    Com 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
    Extremidade com
    wkb. Conservar
    wkb. Fim

Submarino da extremidade
Outras soluções  
 
programming4us programming4us