Questione : Uso della macro di Excel in ms Access 2000

Ciao - ho una macro di accesso di cui l'ultimo punto produce una tabella a Excel 97 - disposizione 2003.  Allora apro la lima di Excel e faccio funzionare una macro manualmente per formattare la lima (fonti cambianti, lastre di vetro di congelamento, formattazione condizionale, disposizione della stampa, ecc.). il

I vuole eliminare il secondo processo manuale.  Potete includere la macro di Excel in accesso in modo da l'archivio di uscita già è formattato? il

I un debuttante a VBA ma dovrebbe potere realizzare con le buone istruzioni.    Thanks.
 class= del

Risposta : Uso della macro di Excel in ms Access 2000

Ciao,

Non esamino normalmente le intere basi di dati sull'EE (che sarebbe il mio lavoro di pagamento), ma ho esaminato la vostra macro di Excel. Il codice sotto i funzionamenti da accesso, in modo da voi non avrà bisogno del libro di esercizi a macroistruzione più. È più facile da effettuare a lungo termine questo senso. Penso che abbia conservato la maggior parte del vostro codice, soltanto in una frazione della relativa lunghezza originale. Confrontarla prego alla vostra macro registrata originale e vedere se dimenticassi una linea importante.

Il codice aprirà una lima chiamata TestOutputFile.xls nello stesso dispositivo di piegatura della base di dati di accesso. Registrare di conseguenza. Funzionerà se la lima è già aperta o non ed userà il caso corrente di Excel se uno è disponibile.

(°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 secondario ()
    Wkb fioco come Excel.Workbook
    Wks fiochi come Excel.Worksheet
    
    Regolare il wkb = GetObject (CurrentProject.Path & “\ TestOutputFile.xls„)
    wkb. Windows (1).Visible = allineano
    Regolare i wks = il wkb. Manuali (1)

    Con i wks. Cellule
        .VerticalAlignment = xlBottom
        .WrapText = falso
        . Borders.LineStyle = xlNone
        .EntireColumn.AutoFit
        .AutoFilter
        . Colonne (“D: E„). Gruppo
        Con. Colonne (“io: K„)
            .NumberFormat = “m/d/yy; @„
            .HorizontalAlignment = xlCenter
        Estremità con
        . Colonne (“L: M.„) .HorizontalAlignment = xlCenter
        . Colonne (“N: N„) .NumberFormat = “$#, ##0.00„
        . Colonne (“O: L'AR„) .NumberFormat =„ _ (* #, ##0_); _ (* (#, ##0); _ (* "" - ""?? _); _ (@_) “
        . Colonne (“T: Z„). Gruppo
        . Colonne (“ab: AI„). Gruppo
    Estremità con
    
    wks. Gamma (“F2„). Prescelto
    wkb. Windows (1).FreezePanes = allineano
    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
    Estremità con
    wkb. Risparmiare
    wkb. Fine

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us