Vraag : Gebruik van de Macro van Excel in MS-Access 2000

Hello - ik heb een macro van de Toegang waarvan laatste stapoutput een lijst aan Excel 97 - van 2003 formaat.  Ik open dan het dossier van Excel en stel manueel een macro in werking om het dossier (veranderende doopvonten, het bevriezen ruiten, het voorwaardelijke formatteren, drukformaat, enz.) te formatteren.

I wil het hand tweede proces elimineren.  Kunt u de macro van Excel in inbedden Toegang zodat geformatteerd is het outputdossier reeds?

I am zou een beginner bij VBA maar met goede instructies moeten kunnen uitvoeren.    Thanks.

Antwoord : Gebruik van de Macro van Excel in MS-Access 2000

Hallo,

Ik bekijk niet normaal volledige gegevensbestanden op EE (dat mijn het betalen baan) zou zijn, maar ik bekeek uw macro van Excel. De code onder looppas van Toegang, zodat u vergt meer niet het macrowerkboek. Het is gemakkelijker om deze manier uiteindelijk te handhaven. Ik denk ik het grootste deel van uw code, in slechts een fractie van zijn originele lengte bewaarde. Te zien vergelijk het gelieve bij uw originele geregistreerde macro en of vergat ik een belangrijke lijn.

De code zal een dossier genoemde TestOutputFile.xls in de zelfde omslag zoals het gegevensbestand van de Toegang openen. Pas dienovereenkomstig aan. Het zal of het dossier reeds open of niet is, zal de huidige instantie van Excel en gebruiken werken als men beschikbaar is.

(°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:

Sub TextXL ()
    Schemerige wkb als Excel.Workbook
    Schemerige wks als Excel.Worksheet
    
    Reeks wkb = GetObject (CurrentProject.Path & „\ TestOutputFile.xls“)
    wkb. Vensters (1). Zichtbaar = Waar
    Reeks wks = wkb. Aantekenvellen (1)

    Met wks. Cellen
        .VerticalAlignment = xlBottom
        .WrapText = Vals
        . Borders.LineStyle = xlNone
        .EntireColumn.AutoFit
        .AutoFilter
        . Kolommen („D: E“). Groep
        Met. Kolommen („I: K“)
            .NumberFormat = „m/d/yy; @“
            .HorizontalAlignment = xlCenter
        Eind met
        . Kolommen („L: M“) .HorizontalAlignment = xlCenter
        . Kolommen („N: N“) .NumberFormat = „$#, ##0.00“
        . Kolommen („O: AR“) .NumberFormat =“ _ (* #, ##0_); _ (* (#, ##0); _ (* "" - ""?? _); _ (@_) „
        . Kolommen („T: Z“). Groep
        . Kolommen („ab: AI“). Groep
    Eind met
    
    wks. Waaier („F2“). Selecteer
    wkb. Vensters (1) .FreezePanes = Waar
    Met 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
    Eind met
    wkb. Sparen
    wkb. Sluit

Beëindig Sub
Andere oplossingen  
 
programming4us programming4us