Сохранение файла в формате PDF в папку нахождения
KolyvanOFF
Дата: Среда, 28.01.2015, 11:55 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация:
7
±
Замечаний:
60% ±
Excel 2010
Добрый день. Есть вопрос. Как дописать макрос чтобы при копировании он сохранял файл в папку нахождения а не в путь изначально указанный в макросе. [vba]Код
Sub Сохранениевфайл() ChDir "U:\Общие файлы\КОММЕРЧЕСКИЕ ПРЕДЛОЖЕНИЯ" ActiveWorkbook.SaveAs Filename:= _ "U:\Общие файлы\КОММЕРЧЕСКИЕ ПРЕДЛОЖЕНИЯ\" & [h2].Value & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub
[/vba] Заранее спасибо за помощь!
Добрый день. Есть вопрос. Как дописать макрос чтобы при копировании он сохранял файл в папку нахождения а не в путь изначально указанный в макросе. [vba]Код
Sub Сохранениевфайл() ChDir "U:\Общие файлы\КОММЕРЧЕСКИЕ ПРЕДЛОЖЕНИЯ" ActiveWorkbook.SaveAs Filename:= _ "U:\Общие файлы\КОММЕРЧЕСКИЕ ПРЕДЛОЖЕНИЯ\" & [h2].Value & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub
[/vba] Заранее спасибо за помощь! KolyvanOFF
С уважением, Евгений
Ответить
Сообщение Добрый день. Есть вопрос. Как дописать макрос чтобы при копировании он сохранял файл в папку нахождения а не в путь изначально указанный в макросе. [vba]Код
Sub Сохранениевфайл() ChDir "U:\Общие файлы\КОММЕРЧЕСКИЕ ПРЕДЛОЖЕНИЯ" ActiveWorkbook.SaveAs Filename:= _ "U:\Общие файлы\КОММЕРЧЕСКИЕ ПРЕДЛОЖЕНИЯ\" & [h2].Value & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub
[/vba] Заранее спасибо за помощь! Автор - KolyvanOFF Дата добавления - 28.01.2015 в 11:55
KolyvanOFF
Дата: Среда, 28.01.2015, 11:58 |
Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация:
7
±
Замечаний:
60% ±
Excel 2010
Прошу прощения вот нужный макрос! Хотя в первом тоже нужна привязка к папке нахождения! [vba]Код
Sub ПЕЧАТЬКП() Sheets(Array("КП", "Лист1")).Select ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="U:\Общие файлы\КОММЕРЧЕСКИЕ ПРЕДЛОЖЕНИЯ\" & [h2].Value & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub
[/vba]
Прошу прощения вот нужный макрос! Хотя в первом тоже нужна привязка к папке нахождения! [vba]Код
Sub ПЕЧАТЬКП() Sheets(Array("КП", "Лист1")).Select ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="U:\Общие файлы\КОММЕРЧЕСКИЕ ПРЕДЛОЖЕНИЯ\" & [h2].Value & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub
[/vba] KolyvanOFF
С уважением, Евгений
Ответить
Сообщение Прошу прощения вот нужный макрос! Хотя в первом тоже нужна привязка к папке нахождения! [vba]Код
Sub ПЕЧАТЬКП() Sheets(Array("КП", "Лист1")).Select ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="U:\Общие файлы\КОММЕРЧЕСКИЕ ПРЕДЛОЖЕНИЯ\" & [h2].Value & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub
[/vba] Автор - KolyvanOFF Дата добавления - 28.01.2015 в 11:58
Pelena
Дата: Среда, 28.01.2015, 12:06 |
Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация:
4421
±
Замечаний:
±
Excel 365 & Mac Excel
KolyvanOFF , Вы, вроде, уже получили ответ на такой вопрос в этой теме . Нет?
KolyvanOFF , Вы, вроде, уже получили ответ на такой вопрос в этой теме . Нет?Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение KolyvanOFF , Вы, вроде, уже получили ответ на такой вопрос в этой теме . Нет?Автор - Pelena Дата добавления - 28.01.2015 в 12:06
KolyvanOFF
Дата: Среда, 28.01.2015, 12:10 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация:
7
±
Замечаний:
60% ±
Excel 2010
Pelena, честно говоря с макросами пока еще на ВЫ. Может быть код не увидел. Пока очень не хватает мат часть толком изучить. Если не трудно ткните котенка носом!
Pelena, честно говоря с макросами пока еще на ВЫ. Может быть код не увидел. Пока очень не хватает мат часть толком изучить. Если не трудно ткните котенка носом! KolyvanOFF
С уважением, Евгений
Ответить
Сообщение Pelena, честно говоря с макросами пока еще на ВЫ. Может быть код не увидел. Пока очень не хватает мат часть толком изучить. Если не трудно ткните котенка носом! Автор - KolyvanOFF Дата добавления - 28.01.2015 в 12:10
DJ_Marker_MC
Дата: Среда, 28.01.2015, 12:12 |
Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация:
213
±
Замечаний:
0% ±
Excel 2019
Добрый день. [vba]Код
Sub Сохранениевфайл() iPath = ThisWorkbook.Path ChDir iPath ActiveWorkbook.SaveAs Filename:= _ iPath & "\" & [h2].Value & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub
[/vba]
Добрый день. [vba]Код
Sub Сохранениевфайл() iPath = ThisWorkbook.Path ChDir iPath ActiveWorkbook.SaveAs Filename:= _ iPath & "\" & [h2].Value & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub
[/vba] DJ_Marker_MC
Ответить
Сообщение Добрый день. [vba]Код
Sub Сохранениевфайл() iPath = ThisWorkbook.Path ChDir iPath ActiveWorkbook.SaveAs Filename:= _ iPath & "\" & [h2].Value & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub
[/vba] Автор - DJ_Marker_MC Дата добавления - 28.01.2015 в 12:12
KolyvanOFF
Дата: Среда, 28.01.2015, 12:52 |
Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация:
7
±
Замечаний:
60% ±
Excel 2010
DJ_Marker_MC, вот хоть режь. Не могу ко второму макросу приладить. Подсобите мала мала!
DJ_Marker_MC, вот хоть режь. Не могу ко второму макросу приладить. Подсобите мала мала! KolyvanOFF
С уважением, Евгений
Ответить
Сообщение DJ_Marker_MC, вот хоть режь. Не могу ко второму макросу приладить. Подсобите мала мала! Автор - KolyvanOFF Дата добавления - 28.01.2015 в 12:52
DJ_Marker_MC
Дата: Среда, 28.01.2015, 12:55 |
Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация:
213
±
Замечаний:
0% ±
Excel 2019
KolyvanOFF , ну что ж тут сложного то... все по аналогии ведь можно подставить [vba]Код
Sub ПЕЧАТЬКП() iPath = ThisWorkbook.Path 'Sheets(Array("КП", "Лист1")).Select ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=iPath & "\" & [h2].Value & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub
[/vba]
KolyvanOFF , ну что ж тут сложного то... все по аналогии ведь можно подставить [vba]Код
Sub ПЕЧАТЬКП() iPath = ThisWorkbook.Path 'Sheets(Array("КП", "Лист1")).Select ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=iPath & "\" & [h2].Value & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub
[/vba]DJ_Marker_MC
Ответить
Сообщение KolyvanOFF , ну что ж тут сложного то... все по аналогии ведь можно подставить [vba]Код
Sub ПЕЧАТЬКП() iPath = ThisWorkbook.Path 'Sheets(Array("КП", "Лист1")).Select ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=iPath & "\" & [h2].Value & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub
[/vba]Автор - DJ_Marker_MC Дата добавления - 28.01.2015 в 12:55
KolyvanOFF
Дата: Среда, 28.01.2015, 13:02 |
Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация:
7
±
Замечаний:
60% ±
Excel 2010
DJ_Marker_MC, а ларчик просто открывался. Спасибо огромное.
DJ_Marker_MC, а ларчик просто открывался. Спасибо огромное. KolyvanOFF
С уважением, Евгений
Ответить
Сообщение DJ_Marker_MC, а ларчик просто открывался. Спасибо огромное. Автор - KolyvanOFF Дата добавления - 28.01.2015 в 13:02
карандаш
Дата: Пятница, 22.01.2016, 19:47 |
Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация:
8
±
Замечаний:
0% ±
2010
чтобы не задваивать тему, надо написать здесь? вот макрос, прям как выше, только с активным листом. Ошибка та же - не выполняется последнее действие - сохранение. Пишет Ошибка 424: Object requred. Какой ему обжект требуется? Зачем? Что я не так делаю? [vba]Код
Sub SaveAsPdf() fn_ = Application.ActiveWorkbook.FullName fn = Mid(fn_, 1, InStrRev(fn_, ".") - 1) & ".pdf" If fn <> False Then ActiveSheets.ExportAsFixedFormat Type:=xlTypePDF, Filename:=(fn), _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End If End Sub
[/vba] [moder]Нет, не надо здесь писать. Надо Правила форума уже наизусть выучить. Тема закрыта
чтобы не задваивать тему, надо написать здесь? вот макрос, прям как выше, только с активным листом. Ошибка та же - не выполняется последнее действие - сохранение. Пишет Ошибка 424: Object requred. Какой ему обжект требуется? Зачем? Что я не так делаю? [vba]Код
Sub SaveAsPdf() fn_ = Application.ActiveWorkbook.FullName fn = Mid(fn_, 1, InStrRev(fn_, ".") - 1) & ".pdf" If fn <> False Then ActiveSheets.ExportAsFixedFormat Type:=xlTypePDF, Filename:=(fn), _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End If End Sub
[/vba] [moder]Нет, не надо здесь писать. Надо Правила форума уже наизусть выучить. Тема закрыта карандаш
Сообщение отредактировал _Boroda_ - Пятница, 22.01.2016, 20:14
Ответить
Сообщение чтобы не задваивать тему, надо написать здесь? вот макрос, прям как выше, только с активным листом. Ошибка та же - не выполняется последнее действие - сохранение. Пишет Ошибка 424: Object requred. Какой ему обжект требуется? Зачем? Что я не так делаю? [vba]Код
Sub SaveAsPdf() fn_ = Application.ActiveWorkbook.FullName fn = Mid(fn_, 1, InStrRev(fn_, ".") - 1) & ".pdf" If fn <> False Then ActiveSheets.ExportAsFixedFormat Type:=xlTypePDF, Filename:=(fn), _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End If End Sub
[/vba] [moder]Нет, не надо здесь писать. Надо Правила форума уже наизусть выучить. Тема закрыта Автор - карандаш Дата добавления - 22.01.2016 в 19:47