Esportazione secondaria ()
Wb fioco come libro di esercizi, wb2 come libro di esercizi
La WS fioca come manuale, ws1 come manuale, ws2 come manuale
'Distacco fioco come stringa
Regolar wb = ThisWorkbook
Regolar la WS = wb. Manuali (“riconciliare„)
Regolar wb2 = Workbooks.Add
Regolar ws2 = wb2.Worksheets (“Sheet1„)
'ws2.Name = “riconciliano„ & disposizione (WS. Gamma (“G2„). Valore, “dd-millimetri-yyyy„)
ws2.Name = andato (“riconciliare„ & sostituire (wb. Manuali (“fonte„). Gamma (“A3„). Testo,„: “,„ ."), 30)
la WS. Colonne (“A: F„). Destinazione della copia: =ws2.Columns (“A: F„)
ActiveSheet.PageSetup.PrintArea = ""
Con ActiveSheet.PageSetup
. Orientamento = xlLandscape
“. Zoom =„ migliore falso incluso appena nel caso!
. Zoom = 40 'migliori inclusi appena nel caso!
.FitToPagesWide = 1
.FitToPagesTall = 1
Estremità con
Colonne (“A: F„) .EntireColumn.AutoFit
Application.DisplayAlerts = falso
Per ogni ws1 in wb2.Worksheets
Se ws1.Name <> ws2.Name allora ws1.Delete
Ws1 seguente
'Assicurar che dispositivo di piegatura dell'elenco esista
'distacco = “TDC_„ & la WS. Gamma (“B2„). Valore &„ .xls "
distacco = “\ \ 04 \ FileServices \ documento \ DBD \ rapporti \ Reconcile_„ & disposizione (WS. Gamma (“G2„), “dd-millimetro„) &„ .xls "
Application.DisplayAlerts = allineano
distacco di wb2.SaveAs
Sommergibile dell'estremità
|