Hallo,
Ich normalerweise betrachte nicht gesamte Datenbanken auf EE (die mein zahlender Job sein würde), aber ich betrachtete Ihr Excel-Makro. Der Code unterhalb der Durchläufe vom Zugang, also Sie benötigen nicht das Makroarbeitsbuch mehr. Es ist einfacher, diese Weise langfristig beizubehalten. Ich denke, dass ich die meisten Ihres Codes, in nur einem Bruch seiner ursprünglichen Länge konservierte. Sie mit Ihrem ursprünglichen notierten Makro bitte vergleichen und sehen, wenn ich eine wichtige Linie vergaß.
Der Code öffnet eine Akte, die TestOutputFile.xls im gleichen Faltblatt wie die Zugangsdatenbank genannt wird. Dementsprechend justieren. Es funktioniert, ob die Akte bereits geöffnet ist oder nicht, und verwendet den gegenwärtigen Fall von Excel, wenn man vorhanden ist.
(°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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
|
VorTextXL ()
Schwaches wkb als Excel.Workbook
Schwache wks als Excel.Worksheet
Wkb = GetObject einstellen (CurrentProject.Path u. „\ TestOutputFile.xls“)
wkb. Windows (1).Visible = richten aus
Wks = wkb einstellen. Arbeitsblätter (1)
Mit wks. Zellen
.VerticalAlignment = xlBottom
.WrapText = falsch
. Borders.LineStyle = xlNone
.EntireColumn.AutoFit
.AutoFilter
. Spalten („D: E“). Gruppe
Mit. Spalten („ich: K“)
.NumberFormat = „m/d/yy; @“
.HorizontalAlignment = xlCenter
Ende mit
. Spalten („L: M“) .HorizontalAlignment = xlCenter
. Spalten („N: N“) .NumberFormat = „$#, ##0.00“
. Spalten („O: AR“) .NumberFormat =“ _ (* #, ##0_); _ (* (#, ##0); _ (* "" - ""?? _); _ (@_) „
. Spalten („T: Z“). Gruppe
. Spalten („AB: AI“). Gruppe
Ende mit
wks. Strecke („F2“). Auserwählt
wkb. Windows (1).FreezePanes = richten aus
Mit 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
Ende mit
wkb. Speichern
wkb. Abschluss
Enden-Unterseeboot
|
