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

Вход

Регистрация

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

 

= Мир MS Excel/Сохранить лист в pdf формате - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранить лист в pdf формате (Макросы/Sub)
Сохранить лист в pdf формате
dx84 Дата: Суббота, 01.11.2014, 21:23 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: -8 ±
Замечаний: 80% ±

Excel 2010
Здравствуйте!
Есть макрос который сохраняет лист в TXT формате в свое время мне его написал Boroda за что я ему благодарен! Но теперь возникла потребность сохранять лист в PDF формате. Возможно ли как то его переделать?
[vba]
Код
For Each Sh_ In ActiveWorkbook.Sheets
If Sh_.Name = "Лист1" Then
Application.DisplayAlerts = 0
p_ = "C:\Users\Администратор\Desktop\Заказы\"
Sh_.Select
A:
Shn_ = InputBox("Введи номер", "Как сохранять будем?", "заказ_№_")
On Error Resume Next
gg_ = Dir(p_ & Shn_ & ".txt", vbNormal)
If gg_ <> "" Then MsgBox "Такой файл уже есть": GoTo A
ActiveWorkbook.SaveAs Filename:=p_ & Shn_ & ".txt", FileFormat:=xlTxt
If Err.Number <> 0 Then MsgBox "Нет пути " & p_
On Error GoTo 0
ActiveSheet.Name = "Лист1"
Application.DisplayAlerts = 1
End If
Next
'
End Sub
[/vba]
 
Ответить
СообщениеЗдравствуйте!
Есть макрос который сохраняет лист в TXT формате в свое время мне его написал Boroda за что я ему благодарен! Но теперь возникла потребность сохранять лист в PDF формате. Возможно ли как то его переделать?
[vba]
Код
For Each Sh_ In ActiveWorkbook.Sheets
If Sh_.Name = "Лист1" Then
Application.DisplayAlerts = 0
p_ = "C:\Users\Администратор\Desktop\Заказы\"
Sh_.Select
A:
Shn_ = InputBox("Введи номер", "Как сохранять будем?", "заказ_№_")
On Error Resume Next
gg_ = Dir(p_ & Shn_ & ".txt", vbNormal)
If gg_ <> "" Then MsgBox "Такой файл уже есть": GoTo A
ActiveWorkbook.SaveAs Filename:=p_ & Shn_ & ".txt", FileFormat:=xlTxt
If Err.Number <> 0 Then MsgBox "Нет пути " & p_
On Error GoTo 0
ActiveSheet.Name = "Лист1"
Application.DisplayAlerts = 1
End If
Next
'
End Sub
[/vba]

Автор - dx84
Дата добавления - 01.11.2014 в 21:23
AndreTM Дата: Суббота, 01.11.2014, 21:34 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
dx84, то есть вы так и не научились пользоваться поиском?
Чуется, что сейчас прилетит очередное (и последнее) замечание (опять о нарушении п.3, п.1) - и вечный бан для вас наконец наступит...


Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
Сообщениеdx84, то есть вы так и не научились пользоваться поиском?
Чуется, что сейчас прилетит очередное (и последнее) замечание (опять о нарушении п.3, п.1) - и вечный бан для вас наконец наступит...

Автор - AndreTM
Дата добавления - 01.11.2014 в 21:34
dx84 Дата: Суббота, 01.11.2014, 21:39 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: -8 ±
Замечаний: 80% ±

Excel 2010
А поиск тут причем? Мне нужно переделать конкретный код который выше указан.
 
Ответить
СообщениеА поиск тут причем? Мне нужно переделать конкретный код который выше указан.

Автор - dx84
Дата добавления - 01.11.2014 в 21:39
Alex_ST Дата: Суббота, 01.11.2014, 23:03 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3197
Репутация: 606 ±
Замечаний: 0% ±

2003
А поиск тут причем?
При том, что там есть несколько примеров того, как можно экспортировать из Excel в PDF
Вы же даже ничего не попробовали сделать самостоятельно.
Т.е. Вы просите не ПОМОЧЬ, а СДЕЛАТЬ ЗА ВАС.
Разницу чувствуете?
Да к тому же и за тон высказывания ЗДЕСЬ, удивительно, что Вас давно не забанили. Наверное, модераторы проглядели.



С уважением,
Алексей
MS Excel 2003 - the best!!!


Сообщение отредактировал Alex_ST - Суббота, 01.11.2014, 23:04
 
Ответить
Сообщение
А поиск тут причем?
При том, что там есть несколько примеров того, как можно экспортировать из Excel в PDF
Вы же даже ничего не попробовали сделать самостоятельно.
Т.е. Вы просите не ПОМОЧЬ, а СДЕЛАТЬ ЗА ВАС.
Разницу чувствуете?
Да к тому же и за тон высказывания ЗДЕСЬ, удивительно, что Вас давно не забанили. Наверное, модераторы проглядели.

Автор - Alex_ST
Дата добавления - 01.11.2014 в 23:03
dx84 Дата: Суббота, 01.11.2014, 23:17 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: -8 ±
Замечаний: 80% ±

Excel 2010
Да к тому же и за тон высказывания ЗДЕСЬ

По этому поводу не буду вас оповещать о полной дискусии по чему я так грубо отписался в свое время. Были причины на все это. А на счет примеров я считаю от того макроса что я привел в теме не один не стоит и близко. Обратите внимание! в моем сообщении есть целое предложения (Возможно ли как то его переделать?)
 
Ответить
Сообщение
Да к тому же и за тон высказывания ЗДЕСЬ

По этому поводу не буду вас оповещать о полной дискусии по чему я так грубо отписался в свое время. Были причины на все это. А на счет примеров я считаю от того макроса что я привел в теме не один не стоит и близко. Обратите внимание! в моем сообщении есть целое предложения (Возможно ли как то его переделать?)

Автор - dx84
Дата добавления - 01.11.2014 в 23:17
AndreTM Дата: Воскресенье, 02.11.2014, 00:21 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
Возможно ли как то его переделать?
Возможно.
Я гарантирую это (с)

я считаю от того макроса что я привел в теме не один не стоит и близко
Вы прям вот так заявляете? Может, на этот счёт ещё у Александра (_Boroda_) поинтересуемся? :)
Дело даже не в том, что тот макрос был написан под предыдущую определенную задачу, решаемую имеено и только на конкретном вашем компе. И не в том, что, несмотря на все присутствующие там проверки, существует минимум две ситуации, могущие вызвать проблемы. И даже не в том, что необходимые действия можно было решить более просто... А всё дело в том, что вы не удосужились даже понять, ЧТО делал этот ваш код. Потому что тогда знали бы (в примерах из поиска как раз это всё отлично видно), что и где вам достаточно исправить. Всего в двух строчках из вашего макроса.
Поэтому Вам и сказали - Вы бы сразу написали "СДЕЛАЙТЕ МНЕ МАКРОС, который будет делать то-то и то-то..." И вам бы сделали. Или указали направление :)


Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
Сообщение
Возможно ли как то его переделать?
Возможно.
Я гарантирую это (с)

я считаю от того макроса что я привел в теме не один не стоит и близко
Вы прям вот так заявляете? Может, на этот счёт ещё у Александра (_Boroda_) поинтересуемся? :)
Дело даже не в том, что тот макрос был написан под предыдущую определенную задачу, решаемую имеено и только на конкретном вашем компе. И не в том, что, несмотря на все присутствующие там проверки, существует минимум две ситуации, могущие вызвать проблемы. И даже не в том, что необходимые действия можно было решить более просто... А всё дело в том, что вы не удосужились даже понять, ЧТО делал этот ваш код. Потому что тогда знали бы (в примерах из поиска как раз это всё отлично видно), что и где вам достаточно исправить. Всего в двух строчках из вашего макроса.
Поэтому Вам и сказали - Вы бы сразу написали "СДЕЛАЙТЕ МНЕ МАКРОС, который будет делать то-то и то-то..." И вам бы сделали. Или указали направление :)

Автор - AndreTM
Дата добавления - 02.11.2014 в 00:21
krosav4ig Дата: Воскресенье, 02.11.2014, 00:31 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
не один не стоит и близко
есть целое предложения
dx84, вижу с русским языком у вас проблемы, даже боюсь представить что у вас с английским, но все-таки вот, читайте, прбоуйте


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Воскресенье, 02.11.2014, 00:38
 
Ответить
Сообщение
не один не стоит и близко
есть целое предложения
dx84, вижу с русским языком у вас проблемы, даже боюсь представить что у вас с английским, но все-таки вот, читайте, прбоуйте

Автор - krosav4ig
Дата добавления - 02.11.2014 в 00:31
dx84 Дата: Понедельник, 03.11.2014, 22:32 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: -8 ±
Замечаний: 80% ±

Excel 2010
Поэтому Вам и сказали - Вы бы сразу написали "СДЕЛАЙТЕ МНЕ МАКРОС, который будет делать то-то и то-то..." И вам бы сделали. Или указали направление

Спасибо за совет.
 
Ответить
Сообщение
Поэтому Вам и сказали - Вы бы сразу написали "СДЕЛАЙТЕ МНЕ МАКРОС, который будет делать то-то и то-то..." И вам бы сделали. Или указали направление

Спасибо за совет.

Автор - dx84
Дата добавления - 03.11.2014 в 22:32
RAN Дата: Понедельник, 03.11.2014, 22:50 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Молчу, молчу... :)


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеМолчу, молчу... :)

Автор - RAN
Дата добавления - 03.11.2014 в 22:50
dx84 Дата: Понедельник, 03.11.2014, 23:20 | Сообщение № 10
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: -8 ±
Замечаний: 80% ±

Excel 2010
Молчу, молчу...

Кто бы сомневался вы везде успеваете <_<
 
Ответить
Сообщение
Молчу, молчу...

Кто бы сомневался вы везде успеваете <_<

Автор - dx84
Дата добавления - 03.11.2014 в 23:20
RAN Дата: Понедельник, 03.11.2014, 23:24 | Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
И везде, (на 4 форумах минимум), молчу, заметьте!
Хотя ни одному из ответивших вам на всех форумах не потребовалось бы более 5 минут для решения проблемы.
:D


Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Понедельник, 03.11.2014, 23:29
 
Ответить
СообщениеИ везде, (на 4 форумах минимум), молчу, заметьте!
Хотя ни одному из ответивших вам на всех форумах не потребовалось бы более 5 минут для решения проблемы.
:D

Автор - RAN
Дата добавления - 03.11.2014 в 23:24
dx84 Дата: Понедельник, 03.11.2014, 23:51 | Сообщение № 12
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: -8 ±
Замечаний: 80% ±

Excel 2010
И везде, (на 4 форумах минимум), молчу, заметьте!

Лучше бы хоть раз выручили, а только критикуете <_<
 
Ответить
Сообщение
И везде, (на 4 форумах минимум), молчу, заметьте!

Лучше бы хоть раз выручили, а только критикуете <_<

Автор - dx84
Дата добавления - 03.11.2014 в 23:51
Pelena Дата: Вторник, 04.11.2014, 00:00 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 19137
Репутация: 4409 ±
Замечаний: ±

Excel 365 & Mac Excel
Оффтоп прекращаем


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеОффтоп прекращаем

Автор - Pelena
Дата добавления - 04.11.2014 в 00:00
dx84 Дата: Среда, 05.11.2014, 17:48 | Сообщение № 14
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: -8 ±
Замечаний: 80% ±

Excel 2010
Оффтоп прекращаем

А как это понимать?
К сообщению приложен файл: 7141881.jpg (16.3 Kb)
 
Ответить
Сообщение
Оффтоп прекращаем

А как это понимать?

Автор - dx84
Дата добавления - 05.11.2014 в 17:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранить лист в pdf формате (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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