добрый день. Нужен макрос для сохранение одного листа из книги в формате *pdf, только надо что бы эксель спрашивал куда сохранить файл. Может кто-нить помочь?
добрый день. Нужен макрос для сохранение одного листа из книги в формате *pdf, только надо что бы эксель спрашивал куда сохранить файл. Может кто-нить помочь?Edvin
Прям вот сложно человеку одну строку прописать: [vba]
Код
Sub CommandButton1_Click() Sheets("Мой нужный лист").ExportAsFixedFormat Type:=xlTypePDF, Filename:= "MySheet.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub
[/vba]
Прям вот сложно человеку одну строку прописать: [vba]
Код
Sub CommandButton1_Click() Sheets("Мой нужный лист").ExportAsFixedFormat Type:=xlTypePDF, Filename:= "MySheet.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub
Если бы я знал, я бы не спрашивал,а сделал сам:)я в макросах совсем не разбираюсь. Сохранить в ПДФ можно было бы действительно через рекордер, но я не знаю как сделать что бы что бы выдавал запрос на путь сохранения. Не могли бы вы составить макрос полностью?
Если бы я знал, я бы не спрашивал,а сделал сам:)я в макросах совсем не разбираюсь. Сохранить в ПДФ можно было бы действительно через рекордер, но я не знаю как сделать что бы что бы выдавал запрос на путь сохранения. Не могли бы вы составить макрос полностью?Edvin
а когда вы сохраняете как вам разве не выходит окно с путем сохранения?и что мешает прописать там нужный путь? ЗЫ.я в макросах сам только разбираться начал
а когда вы сохраняете как вам разве не выходит окно с путем сохранения?и что мешает прописать там нужный путь? ЗЫ.я в макросах сам только разбираться началкитин
То есть вы даже кописастом пользоваться не научились... Нет, скорее вы до сих пор не знаете расположение клавиши F1 и поля поиска... [vba]
Код
Sub CommandButton1_Click() fileSaveName = Application.GetSaveAsFilename("", "PDF (*.pdf), *.pdf") If fileSaveName <> False Then Sheets("Лист2").ExportAsFixedFormat Type:=xlTypePDF, Filename:=(fileSaveName), _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End If End Sub
[/vba]Обратите внимание на то, что сохраняемый лист задан явно, и он не обязательно текущий-активный...
То есть вы даже кописастом пользоваться не научились... Нет, скорее вы до сих пор не знаете расположение клавиши F1 и поля поиска... [vba]
Код
Sub CommandButton1_Click() fileSaveName = Application.GetSaveAsFilename("", "PDF (*.pdf), *.pdf") If fileSaveName <> False Then Sheets("Лист2").ExportAsFixedFormat Type:=xlTypePDF, Filename:=(fileSaveName), _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End If End Sub
[/vba]Обратите внимание на то, что сохраняемый лист задан явно, и он не обязательно текущий-активный...AndreTM
AndreTM, большое спасибо за макрос. Я конечно понимаю, что новичка пнуть - святое дело:), но если я абсолютно не разбираюсь в макросах, не думаю, что F1 мне сильно поможет. У вас написание макроса заняла несколько минут, я бы на работе сидел не один час. Я думал форумы и нужны для взаимопомощи:)
AndreTM, большое спасибо за макрос. Я конечно понимаю, что новичка пнуть - святое дело:), но если я абсолютно не разбираюсь в макросах, не думаю, что F1 мне сильно поможет. У вас написание макроса заняла несколько минут, я бы на работе сидел не один час. Я думал форумы и нужны для взаимопомощи:)Edvin
AndreTM, я попробовал прописать кнопку, после нажатия предлагает сохранить, выбираю место куда сохранить, жму Save выскакивает такое чучело(см. приложение) и обведенные желтым строки становятся желтыми.)) Подскажите, пожалуйста, в чем может быть проблема?
Тема очень кстати) Как-раз искал такую.)
AndreTM, я попробовал прописать кнопку, после нажатия предлагает сохранить, выбираю место куда сохранить, жму Save выскакивает такое чучело(см. приложение) и обведенные желтым строки становятся желтыми.)) Подскажите, пожалуйста, в чем может быть проблема?DAKRAY