Здравствуйте коллеги! По-чайниковски столкнулся с проблемой. Макросом создаю сводную таблицу: на листе "Выгр" жамкаю кнопку. Пока все норм. Затем удаляю "лишнюю" информацию - на листе "SI" кнопка - и сохраняется крохотный файл без привязки к БД. ЧТо я не так делаю, подскажите, плз!
[vba]
Код
Sub Подготовка() Application.ScreenUpdating = 0 S = Range("A" & Rows.Count).End(xlUp).Row R = Sheets("База").Range("A" & Rows.Count).End(xlUp).Row + 1 Range("A2:A" & S).Copy Sheets("Подготовка").Select Range("A3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Sheets("Подготовка").Select Range("B2:Q2").Copy Range("B3:B" & S + 1).Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Range("A3:Q" & S + 1).Copy Sheets("База").Select Range("A" & R).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False T = Range("A" & Rows.Count).End(xlUp).Row Sheets("Подготовка").Select Range("A3:A" & S + 1).EntireRow.Delete xlUp Sheets("SI").PivotTables("Сводная_13-16").ChangePivotCache _ ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="База!A1:R" & T) Sheets("Выгр").Select Range("A2:A" & S).EntireRow.Delete xlUp Range("A2").Select End Sub Sub Сводная() Application.ScreenUpdating = 0 Application.DisplayAlerts = False Sheets(Array("Подготовка", "Выгр", "Мндж", "Код_Н", "MML")).Delete ActiveWorkbook.RefreshAll Sheets("База").Delete ActiveWorkbook.SaveAs "D:\ППАА\Еженедельное обновление\" & Left(Date, 2) & "-" & Mid(Date, 4, 2) & "_SI.xlsb", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.DisplayAlerts = True Sheets("SI").Select Range("A1").Select ActiveWorkbook.Save End Sub
[/vba]
[p.s.] чегото в спойлере форматирование убежало(((
Здравствуйте коллеги! По-чайниковски столкнулся с проблемой. Макросом создаю сводную таблицу: на листе "Выгр" жамкаю кнопку. Пока все норм. Затем удаляю "лишнюю" информацию - на листе "SI" кнопка - и сохраняется крохотный файл без привязки к БД. ЧТо я не так делаю, подскажите, плз!
[vba]
Код
Sub Подготовка() Application.ScreenUpdating = 0 S = Range("A" & Rows.Count).End(xlUp).Row R = Sheets("База").Range("A" & Rows.Count).End(xlUp).Row + 1 Range("A2:A" & S).Copy Sheets("Подготовка").Select Range("A3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Sheets("Подготовка").Select Range("B2:Q2").Copy Range("B3:B" & S + 1).Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Range("A3:Q" & S + 1).Copy Sheets("База").Select Range("A" & R).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False T = Range("A" & Rows.Count).End(xlUp).Row Sheets("Подготовка").Select Range("A3:A" & S + 1).EntireRow.Delete xlUp Sheets("SI").PivotTables("Сводная_13-16").ChangePivotCache _ ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="База!A1:R" & T) Sheets("Выгр").Select Range("A2:A" & S).EntireRow.Delete xlUp Range("A2").Select End Sub Sub Сводная() Application.ScreenUpdating = 0 Application.DisplayAlerts = False Sheets(Array("Подготовка", "Выгр", "Мндж", "Код_Н", "MML")).Delete ActiveWorkbook.RefreshAll Sheets("База").Delete ActiveWorkbook.SaveAs "D:\ППАА\Еженедельное обновление\" & Left(Date, 2) & "-" & Mid(Date, 4, 2) & "_SI.xlsb", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.DisplayAlerts = True Sheets("SI").Select Range("A1").Select ActiveWorkbook.Save End Sub
[/vba]
[p.s.] чегото в спойлере форматирование убежало(((pabchek
Саш, да, все правильно. Но, до исполнения первого макроса эта галка стоит. Да я ее и не снимаю практически никогда. Однако, после она исчезает. Не знал такой особенности, выходит надо где-то дополнительно прописать, чтобы она не снималась. [p.s.]В файле примере ее может уже и не быть, конечно. Поскольку макросы я уже запускал. Т.е. если взять файл с включенной галкой и запустить макрос, то она снимется
Саш, да, все правильно. Но, до исполнения первого макроса эта галка стоит. Да я ее и не снимаю практически никогда. Однако, после она исчезает. Не знал такой особенности, выходит надо где-то дополнительно прописать, чтобы она не снималась. [p.s.]В файле примере ее может уже и не быть, конечно. Поскольку макросы я уже запускал. Т.е. если взять файл с включенной галкой и запустить макрос, то она сниметсяpabchek
"Учиться, учиться и еще раз учиться!" WM: R399923528092
Сообщение отредактировал pabchek - Среда, 27.01.2016, 17:30