Exportation secondaire ()
Faible wb comme cahier de travail, wb2 comme cahier de travail
Le faible WS comme feuille de travail, ws1 comme feuille de travail, ws2 comme feuille de travail
'Faible décollement comme corde
Placer wb = ThisWorkbook
Placer le WS = le wb. Feuilles de travail (« réconcilier »)
Placer wb2 = Workbooks.Add
Placer ws2 = wb2.Worksheets (« Sheet1 »)
'ws2.Name = « réconcilient » et le format (WS. Gamme (« G2 »). Valeur, « densité-millimètres-yyyy »)
ws2.Name = parti (« réconcilier » et remplacer (wb. Feuilles de travail (« source »). Gamme (« A3 »). Texte, » : « , » ."), 30)
le WS. Colonnes (« A : F »). Destination de copie : =ws2.Columns (« A : F »)
ActiveSheet.PageSetup.PrintArea = ""
Avec ActiveSheet.PageSetup
. Orientation = xlLandscape
« . Bourdonnement = » meilleur faux inclus juste dans le cas !
. Bourdonnement = 40 'meilleurs inclus juste dans le cas !
.FitToPagesWide = 1
.FitToPagesTall = 1
Extrémité avec
Colonnes (« A : F ») .EntireColumn.AutoFit
Application.DisplayAlerts = faux
Pour chaque ws1 dans wb2.Worksheets
Si ws1.Name <> ws2.Name puis ws1.Delete
Prochain ws1
'S'assurer que chemise de liste existe
'décollement = « TDC_ » et le WS. Gamme (« B2 »). Valeur et » .xls "
décollement = « \ \ 04 \ FileServices \ document \ DBD \ rapports \ Reconcile_ » et format (WS. Gamme (« G2 »), « densité-millimètre ») et » .xls "
Application.DisplayAlerts = rectifient
décollement de wb2.SaveAs
Sous-marin d'extrémité
|