Bonjour,
Je normalement ne regarde pas les bases de données entières sur l'EE (qui serait mon travail de paiement), mais j'ai regardé votre macro d'Excel. Le code au-dessous des courses de l'accès, ainsi vous n'a plus besoin du macro cahier de travail. Il est plus facile de maintenir cette manière à la longue. Je pense que j'ai préservé la majeure partie de votre code, dans seulement une fraction de sa longueur originale. Veuillez la comparer à votre macro enregistré original et voir si j'oubliais une ligne importante.
Le code ouvrira un dossier appelé TestOutputFile.xls dans la même chemise que la base de données d'accès. Ajuster en conséquence. Cela fonctionnera, que le dossier soit déjà ouvert ou pas, et emploiera l'exemple courant d'Excel si on est disponible.
(°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 secondaire ()
Faible wkb comme Excel.Workbook
Faibles wks comme Excel.Worksheet
Placer le wkb = le GetObject (CurrentProject.Path et « \ TestOutputFile.xls »)
wkb. Windows (1).Visible = rectifient
Placer les wks = le wkb. Feuilles de travail (1)
Avec des wks. Cellules
.VerticalAlignment = xlBottom
.WrapText = faux
. Borders.LineStyle = xlNone
.EntireColumn.AutoFit
.AutoFilter
. Colonnes (« D : E »). Groupe
Avec. Colonnes (« je : K »)
.NumberFormat = « m/d/yy ; @ »
.HorizontalAlignment = xlCenter
Extrémité avec
. Colonnes (« L : M ») .HorizontalAlignment = xlCenter
. Colonnes (« N : N ») .NumberFormat = « $#, ##0.00 »
. Colonnes (« O : L'AR ») .NumberFormat = » _ (* #, ##0_) ; _ (* (#, ##0) ; _ (* "" - "" ? ? _) ; _ (@_) «
. Colonnes (« T : Z »). Groupe
. Colonnes (« ab : AI »). Groupe
Extrémité avec
wks. Gamme (« F2 »). Choisi
wkb. Windows (1).FreezePanes = rectifient
Avec 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
Extrémité avec
wkb. Économiser
wkb. Fin
Sous-marin d'extrémité
|