Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сохранение файла в формате PDF в папку нахождения - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла в формате PDF в папку нахождения (Макросы/Sub)
Сохранение файла в формате 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
Дата добавления - 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
Дата добавления - 28.01.2015 в 11:58
Pelena Дата: Среда, 28.01.2015, 12:06 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
KolyvanOFF, Вы, вроде, уже получили ответ на такой вопрос в этой теме. Нет?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеKolyvanOFF, Вы, вроде, уже получили ответ на такой вопрос в этой теме. Нет?
Автор - Pelena
Дата добавления - 28.01.2015 в 12:06
KolyvanOFF Дата: Среда, 28.01.2015, 12:10 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
Pelena, честно говоря с макросами пока еще на ВЫ. Может быть код не увидел. Пока очень не хватает мат часть толком изучить. Если не трудно ткните котенка носом!

С уважением, Евгений
 
Ответить
Сообщение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
Дата добавления - 28.01.2015 в 12:12
KolyvanOFF Дата: Среда, 28.01.2015, 12:52 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
DJ_Marker_MC, вот хоть режь. Не могу ко второму макросу приладить. Подсобите мала мала!

С уважением, Евгений
 
Ответить
Сообщение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
Дата добавления - 28.01.2015 в 12:55
KolyvanOFF Дата: Среда, 28.01.2015, 13:02 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
DJ_Marker_MC, а ларчик просто открывался. Спасибо огромное.

С уважением, Евгений
 
Ответить
Сообщение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]Нет, не надо здесь писать. Надо Правила форума уже наизусть выучить. :D
Тема закрыта


Сообщение отредактировал _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]Нет, не надо здесь писать. Надо Правила форума уже наизусть выучить. :D
Тема закрыта
Автор - карандаш
Дата добавления - 22.01.2016 в 19:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла в формате PDF в папку нахождения (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!