Как макрос конвертит в PDF и сохраняет в определенную папку / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как макрос конвертит в PDF и сохраняет в определенную папку

25 сообщений из 115, страница 4 из 5

все

Как макрос конвертит в PDF и сохраняет в определенную папку

#37440666

Aprel9930

Гость

Я вот тут подумал, можно создать папку "отправленные", куда будет сохраняться отправляемый файл. Потом его выбирать, на основании соответствия имени файла и документа, как вложение и отправить по адресу, указанному в ячейке документа. Папку "отправленные" использовать как историю рассылок.

...

Рейтинг:

0 / 0

14.09.2011, 18:58

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367205

jeka_piter

Гость

Добрый день господа) Помогите решить малюсенькую проблемку. Имею макрос сохранения файла excel в Pdf с назначением имени файла из определенной ячейки. Беда в том, что не знаю, какую команду надо прописать, чтобы файл pdf сохранялся в определенную сетевую папку \\USER_S\Users\Мальтима\Счета\2013\Заказы 2013
Собственно макрос :

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Sub Макрос1()
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+b
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveSheet.Cells(11, 1) _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=Tru
             
End Sub

Буду благодарен за помощь!

Модератор: Учимся использовать тэги оформления кода - FAQ

...

Рейтинг:

0 / 0

15.08.2013, 11:22

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367211

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Sub Макрос1()
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+b
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "\\USER_S\Users\Мальтима\Счета\2013\Заказы 2013\"+ActiveSheet.Cells(11, 1) _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=Tru
             
End Sub

...

Рейтинг:

0 / 0

15.08.2013, 11:26

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367237

jeka_piter

Гость

Shocker.Pro,

спасибо за ответ, вставил вашу редакцию - но увы ошибка !

...

Рейтинг:

0 / 0

15.08.2013, 11:42

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367242

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jeka_piterно увы ошибкатекст ошибки мне требуется угадать?

...

Рейтинг:

0 / 0

15.08.2013, 11:43

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367283

jeka_piter

Гость

Shocker.Pro,

Пардон ....

...

Рейтинг:

0 / 0

15.08.2013, 12:01

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367340

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

гм, ну значит с путем проблема, а что лежит в ячейке 11,1 ?

...

Рейтинг:

0 / 0

15.08.2013, 12:26

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367516

jeka_piter

Гость

Shocker.Pro,

из этой ячейки берется название для файла Pdf :
Счет на оплату № УТ000003818 от 15 августа 2013 г.

...

Рейтинг:

0 / 0

15.08.2013, 13:52

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367537

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Запустите "запись макроса" и проделайте необходимые действия (сохраните в нужную папку под нужным именем)

...

Рейтинг:

0 / 0

15.08.2013, 14:00

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367571

jeka_piter

Гость

Shocker.Pro,

Да, в том то и дело, что изначально так и сделал, всё конечно получилось, НО ! - макрос записывает инфо по конретной ячейке к конкретном файле, тоесть открыв другой счет на оплату и запустив макрос сохранения в Pdf - происходил процесс публикации, но сам файл не появлялся в папке, так как макрос понимал, что сохранить нужно документ с кокретным названием Счет на оплату 3885 например, а при попытке сохранить счет 3886 - публикация происходит - но файл не сохраняется, так как не видит в названии 3885 (как записано в макросе)!

...

Рейтинг:

0 / 0

15.08.2013, 14:23

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367580

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Покажите тот макрос, который работает (сохраняет файл по указанному пути с указанным именем)

...

Рейтинг:

0 / 0

15.08.2013, 14:28

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367586

jeka_piter

Гость

Shocker.Pro,

Вот макрос выполненный "Записью макроса"

Sub Макрос2()
'
' Макрос2 Макрос
'
' Сочетание клавиш: Ctrl+i
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\USER_S\Users\Мальтима\Счета\2013\Заказы 2013\Заказ покупателя № УТ000003819 от 15 августа 2013 г.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub

...

Рейтинг:

0 / 0

15.08.2013, 14:34

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367622

скукотища

Гость

jeka_piter,
сравните, с тем что было при ошибке

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.

' Макрос2 Макрос
'
' Сочетание клавиш: Ctrl+i
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\USER_S\Users\Мальтима\Счета\2013\Заказы 2013\Заказ покупателя № УТ000003819 от 15 августа 2013 г.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

...

Рейтинг:

0 / 0

15.08.2013, 14:57

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367701

jeka_piter

Гость

скукотища,

дело в том, что я абсолютно не силен в макросах, поэтому и обратился на данный форум, к сожалению выявить в чем разница не смогу ((, если Вы знаете в чем причина, или как правильно создать путь к сетевой папке напишите пожалуйста, буду очень признателен )

...

Рейтинг:

0 / 0

15.08.2013, 15:39

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367752

скукотища

Гость

jeka_piter,

Код: vbnet

1.
2.
3.
4.

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF _
        , Filename:="\\USER_S\Users\Мальтима\Счета\2013\Заказы 2013\" & ActiveSheet.Cells(11, 1) & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True _
        , IgnorePrintAreas:=False, OpenAfterPublish:=False

...

Рейтинг:

0 / 0

15.08.2013, 15:57

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367813

jeka_piter

Гость

скукотища,

видимо не судьба )))))

...

Рейтинг:

0 / 0

15.08.2013, 16:23

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367815

jeka_piter

Гость

скукотища,

...

Рейтинг:

0 / 0

15.08.2013, 16:23

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367816

jeka_piter

Гость

скукотища,

...

Рейтинг:

0 / 0

15.08.2013, 16:24

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38367857

jeka_piter

Гость

jeka_piter,

товарисчи ) файл сохраняет только при одной вариации и только в корень C:\ :

ChDir "C:\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveSheet.Cells(11, 1) _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=Tru

Если указать например D:\ - реакции нет, не говоря уже о записи в сетевую папку ....

...

Рейтинг:

0 / 0

15.08.2013, 16:43

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38368105

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

Sub Макрос1()

Dim k1 As String, k2 As String
k1="\\USER_S\Users\Мальтима\Счета\2013\Заказы 2013\Заказ покупателя № УТ000003819 от 15 августа 2013 г.pdf"
k2="\\USER_S\Users\Мальтима\Счета\2013\Заказы 2013\" & ActiveSheet.Cells(11, 1) & ".pdf"

Msgbox k1+vbCrLf+k2+vbCrLf+k1=k2

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= k1 _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
             
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= k2 _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End Sub

Модератор: и я ведь просил научиться оформлять свой код

...

Рейтинг:

0 / 0

15.08.2013, 18:55

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38368157

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

и, кстатиjeka_piterChDir "C:\"....
Если указать например D:\ - реакции нети не должно быть - читаем хелп по функциям ChDir и ChDrive

...

Рейтинг:

0 / 0

15.08.2013, 20:02

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38368239

jeka_piter

Гость

Shocker.Pro,

спасибо за интересный вариант, ситуация теперь следующая :

...

Рейтинг:

0 / 0

15.08.2013, 22:06

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38368246

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

jeka_piterспасибо за интересный вариантэто не вариант, это я пытаюсь отладить, коль вы сами "не силен". Ошибся, поправьте строку на:

Код: vbnet

Msgbox k1+vbCrLf+k2+vbCrLf+CStr(k1=k2)

и запустите еще раз. Далее я понял, достаточно привести только первое собщение. вы можете его не скриншотить, его текст копируется по Ctrl+C

...

Рейтинг:

0 / 0

15.08.2013, 22:12

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38368260

jeka_piter

Гость

Shocker.Pro,

понял, спасибо, после исправления опять False, но теперь такой:
\\USER_S\Users\Мальтима\Счета\2013\Заказы 2013\Заказ покупателя № УТ000003819 от 15 августа 2013 г.pdf"
\\USER_S\Users\Мальтима\Счета\2013\Заказы 2013\.pdf"
ну и собственно ошибка после нажатия ок та же, и желтым снова выделяется :
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=k2 _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False[/i][/i]

...

Рейтинг:

0 / 0

15.08.2013, 22:30

| Ответить | Цитировать | Написать

Как макрос конвертит в PDF и сохраняет в определенную папку

#38368266

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Что и требовалось доказать, в ячейке ActiveSheet.Cells(11, 1) имя файла отсутствует

...

Рейтинг:

0 / 0

15.08.2013, 22:39

| Ответить | Цитировать | Написать

25 сообщений из 115, страница 4 из 5

все

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=38368266&tid=2174600]:	0ms
get settings:	11ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	80ms
get topic data:	12ms
get forum data:	3ms
get page messages:	65ms
get tp. blocked users:	2ms
others:	329ms

total:	524ms