Sub экспорт ()
Тусклый wb как Workbook, wb2 как Workbook
Тусклый ws как рабочий лист, ws1 как рабочий лист, ws2 как рабочий лист
'Тусклый dt как шнур
Установите wb = ThisWorkbook
Установите ws = wb. Рабочий лист («примирите»)
Установите wb2 = Workbooks.Add
Установите ws2 = wb2.Worksheets («Sheet1»)
'ws2.Name = «примиряют» & форма (ws. Ряд («G2»). Значение, «dd-mm-yyyy»)
ws2.Name = о («примирите» & замените (wb. Рабочий лист («источник»). Ряд («A3»). Текст,»: «,» ."), 30)
ws. Колонки («a: F»). Назначение экземпляра: =ws2.Columns («a: F»)
ActiveSheet.PageSetup.PrintArea = ""
С ActiveSheet.PageSetup
. Ориентация = xlLandscape
«. Сигнал = ложное» лучшее включенное как раз в случай!
. Сигнал = 40 'лучших включенных как раз в случай!
.FitToPagesWide = 1
.FitToPagesTall = 1
Конец с
Колонки («a: F») .EntireColumn.AutoFit
Application.DisplayAlerts = ложно
Для каждого ws1 в wb2.Worksheets
Если ws1.Name <> ws2.Name после этого ws1.Delete
Следующее ws1
'Сделайте уверенный скоросшиватель перечисления существует
'dt = «TDC_» & ws. Ряд («B2»). Значение &» .xls "
dt = «\ \ 04 \ FileServices \ документ \ DBD \ рапорты \ Reconcile_» & форма (ws. Ряд («G2»), «dd-mm») &» .xls "
Application.DisplayAlerts = True
dt wb2.SaveAs
Подводная лодка конца
|