Fråga : Bruk av Excelmakroen i ms-Access 2000

Hälsningar - jag har en ta frammakro vars sist kliva tillverkar en bordlägga till Excel 97 - 2003 formaterar.  Jag öppnar därefter Excel sparar och kör en makro manuellt för att formatera spara (att ändra stilsorter som fryser förser med rutor, villkorligt formatera, tryck formaterar, Etc.).

I önskar att avlägsna handboken understöder processaa.  Kan du bädda in Excelmakroen in i tar fram, så tillverkade ar sparar redan formaterade? förmiddagen för

I en novis på VBA men bör vara kompetent att genomföra med bra anvisningar.    Thanks.
 " klar "

Svar : Bruk av Excelmakroen i ms-Access 2000

Hi,

Jag ser normalt inte hela databaser på EE (som skulle är mitt betala jobb), men jag såg din Excelmakro. De nedanföra körningarna för kodifiera från tar fram, så du behöver inte den något mera macro arbetsboken. Det är lättare att underhålla hitåt på sikt. Funderare I jag bevarade mest av ditt kodifierar, i endast en del av dess original- längd. Behaga jämför den till din original- antecknade makro och ser, om jag glömde att ett viktigt fodrar.

Kodifiera ska öppet en spara som namngavs TestOutputFile.xls i den samma mappen som ta framdatabasen. Justera därmed. Den ska arbete, huruvida som spara är redan öppen eller inte, och ska bruk strömmen anföra som exempel av Excel, om en är tillgänglig.

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

UnderTextXL ()
    Dunkel wkb som Excel.Workbook
    Dunkla wks som Excel.Worksheet
    
    Fastställd wkb = GetObject (CurrentProject.Path & ”\ TestOutputFile.xls”)
    wkb. Windows (1). Synligt = True
    Fastställda wks = wkb. Arbetssedlar (1)

    Med wks. Celler
        .VerticalAlignment = xlBottom
        .WrapText = falskt
        . Borders.LineStyle = xlNone
        .EntireColumn.AutoFit
        .AutoFilter
        . Kolonner (”D: E”). Grupp
        Med. Kolonner (”mig: K”)
            .NumberFormat = ”m/d/yy; @”,
            .HorizontalAlignment = xlCenter
        Avsluta med
        . Kolonner (”L: M”) .HorizontalAlignment = xlCenter
        . Kolonner (”N: N”) .NumberFormat = ”$#, ##0.00”,
        . Kolonner (”nolla: AR”) .NumberFormat =” _ (* nr., ##0_); _ (* (nr., ##0); _ (* "" - ""?? _); _ (@_) ”,
        . Kolonner (”T: Z”). Grupp
        . Kolonner (”AB: AI”). Grupp
    Avsluta med
    
    wks. Spänna (”F2”). Välj
    wkb. Windows (1) .FreezePanes = True
    Med 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
    Avsluta med
    wkb. Räddning
    wkb. Nära

Avsluta suben
Andra lösningar  
 
programming4us programming4us