Pytanie : Use Przodować Makro- w MS Dostęp 2000

Cześć - I mieć Dojazdowy macro ostatni krok przesyłać stół 97 - 2003 format.  I wtedy otwierać the Przodować kartoteka i biegać macro ręcznie format the kartoteka (odmienianie chrzcielnica, marznięcie tafla, przypusczający formatowanie, druk format, Etc.).

I chcieć the ręczny drugi proces.  Móc ty the Przodować macro w Dostęp więc the wydajność kartoteka już formatted?

I am nowicjusz przy VBA ale musieć sprawnie z dobry instrukcja.    Thanks.

Odpowiedź : Use Przodować Makro- w MS Dostęp 2000

Cześć,

I normalnie patrzeć całkowity baza danych na EE (który być mój praca), ale I patrzeć twój Przodować macro. The kod pod bieg od Dostęp, więc ty potrzebować the makro- workbook wcale bardziej. Ono być łatwy ten sposób w the długoterminowy. I myśleć I długość twój kod, wewnątrz tylko ułamek swój oryginalny długość. Zadawalać porównywać ono twój oryginalny nagrywać macro i widzieć jeżeli I zapominać znacząco linia.

The kod otwierać kartoteka wymieniać TestOutputFile.xls w the ten sam falcówka the Dojazdowy baza danych. Przystosowywać stosownie. Ono pracować czy the kartoteka być już otwarty lub nie, i używać the aktualny przykład Przodować jeżeli jeden być dostępny.

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

Okręt podwodny TextXL ()
    Ciemnawy wkb Jako Excel.Workbook
    Ciemnawy wks Jako Excel.Worksheet
    
    Ustalony wkb = GetObject (CurrentProject.Path & "\ TestOutputFile.xls")
    wkb. Windows (1).Visible = Prawdziwy
    Ustalony wks = wkb. Worksheets (1)

    Z wks. Komórka
        .VerticalAlignment = xlBottom
        .WrapText = Fałszywy
        . Borders.LineStyle = xlNone
        .EntireColumn.AutoFit
        .AutoFilter
        . Kolumna ("D: E"). Grupa
        Z. Kolumna ("I: K")
            .NumberFormat = "m/d/yy; @"
            .HorizontalAlignment = xlCenter
        Końcówka Z
        . Kolumna ("L: M") .HorizontalAlignment = xlCenter
        . Kolumna ("N: N") .NumberFormat = "$#, ##0.00"
        . Kolumna ("O: AR") .NumberFormat =" _ (* #, ##0_); _ (* (#, ##0); _ (* "" - ""?? _); _ (@_) "
        . Kolumna ("T: Z"). Grupa
        . Kolumna ("AB: AI"). Grupa
    Końcówka Z
    
    wks. Pasmo ("F2"). Wybiórka
    wkb. Windows (1).FreezePanes = Prawdziwy
    Z 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
    Końcówka Z
    wkb. Save
    wkb. Zakończenie

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us