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

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

115 сообщений из 115, показаны все 5 страниц

все

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

#37404854

Aprel9930

Гость

СИТУАЦИЯ: Макрос конвертит файл в PDF и сохраняет его с конкретно прописанным в макросе именем и в конкретно прописанную локацию.
НЕОБХОДИМО: Чтобы макрос сохранял файл с именем, аналогичным значению в конкретной ячейке, а также в папке с именем, соотносящимся с именем файла.
ВОПРОС: Как это прописать в макросе?

...

Рейтинг:

0 / 0

21.08.2011, 05:05

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

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

#37404857

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Aprel9930,

Код: plaintext

1.
2.
3.
4.

ExtractTo = "L:\Изменённые\"
Set fso = CreateObject("Scripting.FileSystemObject")
'если нет папки с именем ..., тогда создать такую папку создать папку
If Not fso.FolderExists(ExtractTo) Then fso.CreateFolder (ExtractTo)
Set fso = Nothing

...

Рейтинг:

0 / 0

21.08.2011, 05:37

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

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

#37404889

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

ЦЭ, опять ты лезешь с ответом, не имеющим никакого отношения к вопросу? Все, жалуюсь модератору.

Aprel9930Как это прописать в макросе?
Начнем со среды, по слову "ячейка" можно подумать, что речь идет об экселе... по PDF - о ворде.

Обращение к ячейке в экселе в общем случае - Cells(5,6)

Не ленитесь задать вопрос более развернуто, указать среду и привести фрагмент макроса, тогда и получите вменяемый ответ

...

Рейтинг:

0 / 0

21.08.2011, 09:35

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

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

#37405198

Aprel9930

Гость

Shocker.Pro,

В Excel 2010, создана книга, которая работает на основании базы данных. В общем печатная форма. Но данных много и для конвертации каждого варианта руки отсохнут переименовывать имя файла и выбирать папку хранения. На листе имеется значение, которое находится в определенной ячейке, допустим A1, и его надо использовать как имя файла.

Вот пример макроса:

Sub Макрос2()
'
' Макрос2 Макрос
'
' Сочетание клавиш: Ctrl+я
'
ChDir "D:\Проба"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Проба\ОУ3.001.pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Save
End Sub

...

Рейтинг:

0 / 0

21.08.2011, 19:15

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

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

#37405208

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

Код: plaintext

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

Sub Макрос2()
'
' Макрос2 Макрос
'
' Сочетание клавиш: Ctrl+я
'
    ChDir "D:\Проба"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveSheet.Cells( 1 , 1 ), Quality:=xlQualityStandard, IncludeDocProperties:= _
        True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    ActiveWorkbook.Save
End Sub

...

Рейтинг:

0 / 0

21.08.2011, 19:40

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

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

#37405218

kuklp

Гость

Чуть ужато:

Код: plaintext

1.
2.
3.

Sub Макрос2()
    ActiveSheet.ExportAsFixedFormat  0 , ActiveSheet.Cells( 1 ).Value,  0 , - 1 ,  0 , , ,  0 
    ActiveWorkbook.Save
End Sub

...

Рейтинг:

0 / 0

21.08.2011, 20:03

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

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

#37405220

Aprel9930

Гость

Shocker.Pro,

Класс! А как указать папку в которую надо сохранить?
Путь к папке также находится в ячейке.
Да, имя файла и путь к папке прописываются в ячейке как формула. В зависимости от указанного кода, в ячейке прописываются те или иные имя и путь к сохранению.

...

Рейтинг:

0 / 0

21.08.2011, 20:04

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

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

#37405222

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

Код: plaintext

Filename:= ActiveSheet.Cells( 1 , 2 ) & ActiveSheet.Cells( 1 , 1 )

...

Рейтинг:

0 / 0

21.08.2011, 20:07

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

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

#37405224

Aprel9930

Гость

kuklpЧуть ужато:

Код: plaintext

1.
2.
3.

Sub Макрос2()
    ActiveSheet.ExportAsFixedFormat  0 , ActiveSheet.Cells( 1 ).Value,  0 , - 1 ,  0 , , ,  0 
    ActiveWorkbook.Save
End Sub

А что такое Value, 0, -1, 0, , , 0 ? И почему ExportAsFixedFormat 0

...

Рейтинг:

0 / 0

21.08.2011, 20:10

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

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

#37405226

Aprel9930

Гость

Shocker.Pro

Код: plaintext

Filename:= ActiveSheet.Cells( 1 , 2 ) & ActiveSheet.Cells( 1 , 1 )

Тогда подробнее, что такое ActiveSheet.Cells( 1,2 ) & ActiveSheet.Cells( 1,1 )

...

Рейтинг:

0 / 0

21.08.2011, 20:13

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

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

#37405231

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

Aprel9930Тогда подробнее, что такое ActiveSheet.Cells( 1,2 ) & ActiveSheet.Cells( 1,1 )
ячейка A2, склеенная с ячейкой A1

...

Рейтинг:

0 / 0

21.08.2011, 20:14

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

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

#37405232

Aprel9930

Гость

Shocker.Pro

Код: plaintext

Filename:= ActiveSheet.Cells( 1 , 2 ) & ActiveSheet.Cells( 1 , 1 )

Да, и ещё вопрос: Что из них имя файла, а что путь к папке?

...

Рейтинг:

0 / 0

21.08.2011, 20:15

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

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

#37405234

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

Aprel9930Shocker.Pro

Код: plaintext

Filename:= ActiveSheet.Cells( 1 , 2 ) & ActiveSheet.Cells( 1 , 1 )

Да, и ещё вопрос: Что из них имя файла, а что путь к папке? А в вашем примереAprel9930"D:\Проба\ОУ3.001.pdf"что путь к папке. а что имя файла?

Я сказал, что это ячейка A2, склеенная с ячейкой A1
Вы можете написать что угодно туда, результатом будет то, что я сказал

...

Рейтинг:

0 / 0

21.08.2011, 20:17

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

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

#37405235

Aprel9930

Гость

Shocker.ProAprel9930Тогда подробнее, что такое ActiveSheet.Cells( 1,2 ) & ActiveSheet.Cells( 1,1 )
ячейка A2, склеенная с ячейкой A1

Для уточнения: В этих ячейках мы видим конкретные текстовые символы, но содержание ячеек формульное. Как макрос их прочитает, как текст или как формулу?

...

Рейтинг:

0 / 0

21.08.2011, 20:18

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

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

#37405239

kuklp

Гость

Aprel9930А что такое Value, 0, -1, 0, , , 0 ? И почему ExportAsFixedFormat 0 Имена констант замененные на значения.
Вставьте в одну ячейку имя и путь: "D:\Проба\ОУ3.001.pdf", меньше проблем с синтаксисом будет.

...

Рейтинг:

0 / 0

21.08.2011, 20:22

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

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

#37405240

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

Как текст. Но если сильно смущает, можете писать Cells(1,1).Value

...

Рейтинг:

0 / 0

21.08.2011, 20:22

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

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

#37405246

Aprel9930

Гость

Shocker.ProAprel9930пропущено...

Да, и ещё вопрос: Что из них имя файла, а что путь к папке? А в вашем примереAprel9930"D:\Проба\ОУ3.001.pdf"что путь к папке. а что имя файла?

Я сказал, что это ячейка A2, склеенная с ячейкой A1
Вы можете написать что угодно туда, результатом будет то, что я сказал

Результат отрицательный
RUN TIME ERROR '1004': Aplication-defined or object-defined error

Sub Макрос2()
'
' Макрос2 Макрос
'
' Сочетание клавиш: Ctrl+я
'
ChDir "D:\Проба"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveSheet.Cells(D2) & ActiveSheet.Cells(A21), Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Save
End Sub

...

Рейтинг:

0 / 0

21.08.2011, 20:34

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

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

#37405251

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

что написал я

Код: plaintext

Filename:= ActiveSheet.Cells( 1 , 2 ) & ActiveSheet.Cells( 1 , 1 )

сравните с тем, что написали вы

Код: plaintext

Filename:=ActiveSheet.Cells(D2) & ActiveSheet.Cells(A21)

...

Рейтинг:

0 / 0

21.08.2011, 20:42

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

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

#37405252

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

но если очень хочется буквами, то можно так:

Код: plaintext

Filename:=ActiveSheet.Range("D2") & ActiveSheet.Range("A21")

...

Рейтинг:

0 / 0

21.08.2011, 20:43

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

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

#37405253

kuklp

Гость

Aprel9930, откуда нам знать, что у Вас в ячейках? Выложите неработающий пример в файле Эксел, поправим. Предположительно - отсутствует слэш между путем и файлом. Дальше, строка:
ChDir "D:\Проба"
абсолютно бесполезна.

...

Рейтинг:

0 / 0

21.08.2011, 20:44

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

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

#37405254

Aprel9930

Гость

Aprel9930,

Точнее выглядело так:

Код: plaintext

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

Sub Макрос2()
'
' Макрос2 Макрос
'
' Сочетание клавиш: Ctrl+я
'
    ChDir "D:\Проба"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveSheet.Cells(D2) & ActiveSheet.Cells(A21), Quality:=xlQualityStandard, IncludeDocProperties:= _
        True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    ActiveWorkbook.Save
End Sub

Почему-то жёлтым не выделил. В приложеном файле скрин.

...

Рейтинг:

0 / 0

21.08.2011, 20:45

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

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

#37405255

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

kuklp,

я уже ответил - у него просто проблема в синтаксисе

...

Рейтинг:

0 / 0

21.08.2011, 20:46

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

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

#37405257

Aprel9930

Гость

Shocker.Proчто написал я

Код: plaintext

Filename:= ActiveSheet.Cells( 1 , 2 ) & ActiveSheet.Cells( 1 , 1 )

сравните с тем, что написали вы

Код: plaintext

Filename:=ActiveSheet.Cells(D2) & ActiveSheet.Cells(A21)

Ну а как же в первом случае она поймёт из какой именно ячейки брать значение?

...

Рейтинг:

0 / 0

21.08.2011, 20:48

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

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

#37405261

Aprel9930

Гость

kuklpAprel9930А что такое Value, 0, -1, 0, , , 0 ? И почему ExportAsFixedFormat 0 Имена констант замененные на значения.
Вставьте в одну ячейку имя и путь: "D:\Проба\ОУ3.001.pdf", меньше проблем с синтаксисом будет.

Сейчас сделаю, но всё же, какая именно синтаксис ошибка, где, в каком месте, перед чем я не поставил/поставил нужный/ненужный символ?

...

Рейтинг:

0 / 0

21.08.2011, 20:52

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

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

#37405262

kuklp

Гость

Shocker.Proно если очень хочется буквами, то можно так:

Код: plaintext

Filename:=ActiveSheet.Range("D2") & ActiveSheet.Range("A21")

Я бы и тут по логике сделал:
[d2] & [a21]
Судя по примеру автора(макрорекордер) макрос в общем модуле, а значит по умолчанию обращение к активному листу. Вопрос в том - есть ли слэш:-)

...

Рейтинг:

0 / 0

21.08.2011, 20:53

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

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

#37405265

kuklp

Гость

Aprel9930, я вообще-то писал о файле Эксел. Вам бы понравилось если бы я в ответ выложил картинку, где результат правильный?
То Shocker.Pro: я увидел Ваш ответ уже после отправки своего сообщения:-) Вы заметили то, на что я не обратил внимания. Старый, слепой...

...

Рейтинг:

0 / 0

21.08.2011, 20:58

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

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

#37405270

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

Aprel9930Shocker.Proчто написал я

Код: plaintext

Filename:= ActiveSheet.Cells( 1 , 2 ) & ActiveSheet.Cells( 1 , 1 )

сравните с тем, что написали вы

Код: plaintext

Filename:=ActiveSheet.Cells(D2) & ActiveSheet.Cells(A21)

Ну а как же в первом случае она поймёт из какой именно ячейки брать значение? первый аргумент функции Cells - строка, второй - столбец.
Вообще-то надо хоть немножко голову подключить и клавишу F1, а не думать тупо, что все за вас на форуме сделают.

kuklp - я думаю, ты автора только запутал своим сокращенным форматом. По сути, ты написал все то же самое, но зачем? он явно сильно плавает, захочет, сам потом разберется

...

Рейтинг:

0 / 0

21.08.2011, 21:03

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

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

#37405275

kuklp

Гость

Shocker.Pro, я так понимаю, мы уже на ТЫ? Ок. Меня зовут Сергей.
Насчет запутал - не думаю. Лучше сразу привыкать к сокращенному коду. Если хочешь продолжать...

...

Рейтинг:

0 / 0

21.08.2011, 21:09

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

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

#37405278

Aprel9930

Гость

kuklpAprel9930, откуда нам знать, что у Вас в ячейках? Выложите неработающий пример в файле Эксел, поправим. Предположительно - отсутствует слэш между путем и файлом. Дальше, строка:
ChDir "D:\Проба"
абсолютно бесполезна.

Прикладываю файл.
1) Сохранить файл в формате PDF в локацию указанную в ячейке D2 с именем файла указанном в ячейке A21.

...

Рейтинг:

0 / 0

21.08.2011, 21:13

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

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

#37405284

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

kuklpShocker.Pro, я так понимаю, мы уже на ТЫ? Ок. Меня зовут Сергей.
Насчет запутал - не думаю. Лучше сразу привыкать к сокращенному коду. Если хочешь продолжать... Тебя это смущает?

Что касается сокращенного кода - на мой взгляд глупость, писать 0 вместо False и 0 вместо xlTypePDF - очень "наглядно".

Вот тебе уже автор зачем-то и код свой выложил - ну доводи тогда уж топик до конца, у меня тут нету 2007-го экселя и даже конвертора, открыть не смогу...

...

Рейтинг:

0 / 0

21.08.2011, 21:16

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

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

#37405286

Aprel9930

Гость

Shocker.ProAprel9930пропущено...

Ну а как же в первом случае она поймёт из какой именно ячейки брать значение? первый аргумент функции Cells - строка, второй - столбец.
Вообще-то надо хоть немножко голову подключить и клавишу F1, а не думать тупо, что все за вас на форуме сделают.

kuklp - я думаю, ты автора только запутал своим сокращенным форматом. По сути, ты написал все то же самое, но зачем? он явно сильно плавает, захочет, сам потом разберется

Да я не то, чтобы плаваю, я вообще с макросами просто знаком. Так что вы меня сильно не пинайте. Я так то не дурак, но моя проблема - я особенностей языка (синтаксиса) практически не знаю, а F1 мне в этом не помошник, пробывал. Понятно, что можно книгу купить, что я и сделаю позже, но данный макрос не является чем-то сверх-мега-тонным. Тем более если я сейчас с Вами суть на практике пойму, то книгу за месяц осилю. Заранее спасибо!

...

Рейтинг:

0 / 0

21.08.2011, 21:20

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

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

#37405302

kuklp

Гость

Aprel9930, как я и писал - слэш.

Код: plaintext

1.
2.
3.
4.
5.

Sub Макрос2()
    ActiveSheet.ExportAsFixedFormat  0 , [D2] & [A21],  0 , - 1 ,  0 , , ,  0 
    ActiveWorkbook.SaveAs Filename:="D:\Проба\Проба.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Обратите внимание на добавленый слэш в А21

...

Рейтинг:

0 / 0

21.08.2011, 21:35

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

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

#37405307

kuklp

Гость

Если уж начал, прололжаю:

Код: plaintext

1.
2.
3.
4.

Sub Макрос2()
    ActiveSheet.ExportAsFixedFormat  0 , [D2] & [A21],  0 , - 1 ,  0 , , ,  0 
    thisworkbook.SaveAs "D:\Проба\Проба.xlsm",  52 
End Sub

...

Рейтинг:

0 / 0

21.08.2011, 21:41

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

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

#37405324

kuklp

Гость

Shocker.ProЧто касается сокращенного кода - на мой взгляд глупость, писать 0 вместо False и 0 вместо xlTypePDF - очень "наглядно".То есть ты считаешь, что xlOpenXMLWorkbookMacroEnabled легче запомнить и потом воспроизвести, чем 52? Завидую твоей памяти. По мне(ну так сложилось) имена констант, только захламляют код. Не, они облегчают понимание результата макрорекордера и не более. Вызубрить их все нереально и бесполезно. И раз уж так, давай оставлять все селекты и активаты МР. Так что насчет глупости, попридержи лошадей. Я легче читаю код с цифовыми значениями, чем перегруженный именами констант. Если что непонятно, F1 под рукой. А чем короче и проще код, тем легче его понять другим, кто после вздумает его менять. Конечно же в подтексте - если меняешь чужой код - нужно быть грамотным.

...

Рейтинг:

0 / 0

21.08.2011, 22:06

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

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

#37405329

Aprel9930

Гость

kuklp,

Спасибо! Но я уже сам сделал! Я кстати в D2 в конце слеш добавил. и второй наш собеседник ввёл меня в заблуждение с индексом солбцов и строк. В насамом деле наоборот, сначало строка, а потом столбцы. Ну и с видом тип D2 не прокатило, нужно номера строк и столбцов прописывать. Тем не менее Спасибо ещё раз! Главное было понять суть!

...

Рейтинг:

0 / 0

21.08.2011, 22:12

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

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

#37405334

Aprel9930

Гость

kuklpAprel9930, как я и писал - слэш.

Код: plaintext

1.
2.
3.
4.
5.

Sub Макрос2()
    ActiveSheet.ExportAsFixedFormat  0 , [D2] & [A21],  0 , - 1 ,  0 , , ,  0 
    ActiveWorkbook.SaveAs Filename:="D:\Проба\Проба.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Обратите внимание на добавленый слэш в А21

Видишь, для данной формы просто в А21 нельзя слеш ставить, так как это печатная форма и значение в А21 должно напечататься строго в установленном порядке.
А вот вопрос созрел: Если указывать вормат А21 то нужно именно в квадратные скобки? У тебя в заданной папке получился файл с названием номера счёта типа Счёт № Р1-0012?

...

Рейтинг:

0 / 0

21.08.2011, 22:18

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

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

#37405337

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

Aprel9930В насамом деле наоборот, сначало строка, а потом столбцы. Shocker.Proпервый аргумент функции Cells - строка, второй - столбец.

Aprel9930 Ну и с видом тип D2 не прокатило, нужно номера строк и столбцов прописыватьShocker.Proно если очень хочется буквами, то можно так:

Код: plaintext

Filename:=ActiveSheet.Range("D2") & ActiveSheet.Range("A21")

...

Рейтинг:

0 / 0

21.08.2011, 22:22

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

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

#37405345

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

kuklpShocker.ProЧто касается сокращенного кода - на мой взгляд глупость, писать 0 вместо False и 0 вместо xlTypePDF - очень "наглядно".То есть ты считаешь, что xlOpenXMLWorkbookMacroEnabled легче запомнить и потом воспроизвести, чем 52? Завидую твоей памяти.конечно, так как константа автоматически появится, а 52 еще запомнить надо, завидую твоей памяти :)

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

...

Рейтинг:

0 / 0

21.08.2011, 22:27

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

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

#37405360

Aprel9930

Гость

kuklp, Есть ещё вопрос:
1) Данные в ячейках D3 и A21 беруться из базы данных на другом листе, на основании служебного кода документа в ячейке F1. Понятно, что можно значение в ячейке D3 Закрасить белым шрифтом. Но как сделать так, чтобы макрос на основании служебного кода в ячейке F1, брал данные для локации и имени файла из заранее прописанной базы?
2) И ещё, как задать в макросе, чтобы конвертнул файл в PDF и отправил по эл. почте прописанной под служебный код через Outlook?

...

Рейтинг:

0 / 0

21.08.2011, 22:47

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

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

#37405364

Aprel9930

Гость

Aprel9930 Ну и с видом тип D2 не прокатило, нужно номера строк и столбцов прописыватьShocker.Proно если очень хочется буквами, то можно так:

Код: plaintext

Filename:=ActiveSheet.Range("D2") & ActiveSheet.Range("A21")

[/quot]

Так не прошло, выдавал синтаксичекую ошибку и выделял в дебагере жёлтым, пришлось ставить номера

...

Рейтинг:

0 / 0

21.08.2011, 22:50

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

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

#37405367

Aprel9930

Гость

Aprel9930Aprel9930 Ну и с видом тип D2 не прокатило, нужно номера строк и столбцов прописыватьShocker.Proно если очень хочется буквами, то можно так:

Код: plaintext

Filename:=ActiveSheet.Range("D2") & ActiveSheet.Range("A21")

Так не прошло, выдавал синтаксичекую ошибку и выделял в дебагере жёлтым, пришлось ставить номера[/quot]

Ни Cells ни Range не хотят работать с видом "D2"

...

Рейтинг:

0 / 0

21.08.2011, 22:55

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

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

#37405369

kuklp

Гость

Shocker.Pro ты, видимо, мало кода в своей жизни написал, коли считаешь, что мнемоника не нужна, ну да ладно, дело хозяйское, просто посмотри чужие коды и проверь, много ли программистов разделяют твое мнениеУлыбнул. Сколько тебе было в 1993? Тогда уже писал. И до сих пор мои программы работают во всех версиях, начиная с 5. Оговорка - те, что под Вынь 3.0 писались(те, что под ДОС, только в ДОСе). А насчет мнемоники - ну, кто как привык.

...

Рейтинг:

0 / 0

21.08.2011, 22:56

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

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

#37405373

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

kuklpСколько тебе было в 1993? Тогда уже писал

пипи.... меряемся?
я начал писать в 1990-м

ладно, топик покидаю, вдвоем запутываем автора... вот с Range не справился )

...

Рейтинг:

0 / 0

21.08.2011, 23:00

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

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

#37405383

kuklp

Гость

Aprel9930просто в А21 нельзя слеш ставить, так как это печатная форма и значение в А21 должно напечататься строго в установленном порядке.
А вот вопрос созрел: Если указывать вормат А21 то нужно именно в квадратные скобки? У тебя в заданной папке получился файл с названием номера счёта типа Счёт № Р1-0012?
Чего это мне все сегодня ТЫкать норовят? Хорош!
Можно(не менять А21):
ActiveSheet.ExportAsFixedFormat 0, [D2] & "\" & [A21]
Дальше см. скрин.

...

Рейтинг:

0 / 0

21.08.2011, 23:09

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

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

#37405385

Serge 007

Участник

Откуда: www.excelworld.ru

Сообщения: 1 742

Рейтинг: 0 / 0

kuklpЧего это мне все сегодня ТЫкать норовят? Хорош!
Ты ли это? ;)

...

Рейтинг:

0 / 0

21.08.2011, 23:12

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

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

#37405408

kuklp

Гость

Serge 007, а кто же еще? Ты других видел? Юмор я понял. Серж, ну мы с тобой давно дружим и не с первого поста на ТЫ перешли. А тут... Не в пивбаре все же.

...

Рейтинг:

0 / 0

21.08.2011, 23:45

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

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

#37405413

Serge 007

Участник

Откуда: www.excelworld.ru

Сообщения: 1 742

Рейтинг: 0 / 0

kuklpНе в пивбаре все же.Ок, прикольно ;-)
Жди в гости на следующей неделе :)

...

Рейтинг:

0 / 0

21.08.2011, 23:50

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

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

#37405416

kuklp

Гость

Serge 007,

Ок.

...

Рейтинг:

0 / 0

21.08.2011, 23:53

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

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

#37423715

Aprel9930

Гость

А как прописать в макросе имя конкретного листа?

...

Рейтинг:

0 / 0

03.09.2011, 07:06

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

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

#37423716

kuklp

Гость

Aprel9930, просто. worksheets("Mysheet")

...

Рейтинг:

0 / 0

03.09.2011, 07:20

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

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

#37423855

Aprel9930

Гость

kuklp, Спасибо!
И ещё один вопрос, как прописать в макросе, чтобы он отправлял по эл почте, сконвертитрованный PDF? на адрес указанный в определенной ячейке?

...

Рейтинг:

0 / 0

03.09.2011, 14:21

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

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

#37423856

Aprel9930

Гость

kuklp, Да, кстати, а если имя листа на русском, так и писать на русском?

...

Рейтинг:

0 / 0

03.09.2011, 14:23

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

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

#37423924

Aprel9930

Гость

Разобрался, на русском проходит

...

Рейтинг:

0 / 0

03.09.2011, 16:07

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

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

#37424405

kuklp

Гость

Aprel9930, Хоть на китайском. Лишь бы в системе был установлен. Здесь http://forum.msexcel.ru/proekty_vba/otpravka_pisma_s_raznymi_temami_iz_yacheyki_kogda_yacheek_okolo_1000-t6234.0.html об отправке писем.

...

Рейтинг:

0 / 0

04.09.2011, 09:36

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

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

#37424407

kuklp

Гость

И здесь http://www.excel-vba.ru/chto-umeet-excel/kak-otpravit-pismo-iz-excel/

...

Рейтинг:

0 / 0

04.09.2011, 09:40

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

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

#37428390

Aprel9930

Гость

kuklp, Спасибо за ссылку! Там я разобрался, только поменять файл на лист и ссылки для адресатов и собственного ящика, но..., как мне прописать так, чтобы он сконвертил лист в PDF и тут же его отправил по почте, указанной в определенной ячейке? Пример тот же, что и с конвертацией и последующим сохранением в конкретной локации, только здесь конвертация и последующая отправка по почте конкретному адресату из ячейки...

...

Рейтинг:

0 / 0

07.09.2011, 10:18

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

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

#37428395

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Aprel9930, кстати, насколько я знаю, если у Вас Оффис 2003 и ниже он не конвертирует

...

Рейтинг:

0 / 0

07.09.2011, 10:21

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

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

#37428406

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

если у Вас Эксель >= 2007, то

Range("b2:c13").ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Проба.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

...

Рейтинг:

0 / 0

07.09.2011, 10:25

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

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

#37428408

Aprel9930

Гость

Ципихович Эндрю, у меня Office 2010

...

Рейтинг:

0 / 0

07.09.2011, 10:26

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

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

#37428415

Aprel9930

Гость

Ципихович Эндрю, как конвертнуть и сохранить, мы уже тут разобрались, а вот как конвертнуть и отправить конертнутый по адресу из ячейки? Вот вопрос...?

...

Рейтинг:

0 / 0

07.09.2011, 10:28

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

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

#37428423

Aprel9930

Гость

Ципихович Эндрю, Тем более, что он в разные папки раскидывает конвертнутые, да и имена у них все уникальные.... Так то и не укажешь откуда взять файл....

...

Рейтинг:

0 / 0

07.09.2011, 10:31

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

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

#37428431

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Aprel9930,

по адресу из ячейки? - как взять в переменную вопрос??
А как отправлять надо определится чем будете оправлять Оутлук, ... чем?

...

Рейтинг:

0 / 0

07.09.2011, 10:35

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

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

#37428446

Aprel9930

Гость

Ципихович Эндрю, отправлять лучьше из книги (без утлука)

...

Рейтинг:

0 / 0

07.09.2011, 10:40

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

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

#37428452

Aprel9930

Гость

Ципихович Эндрю, Вопрос простой, как прописать, чтобы за один присест, конвертнул в pdf и отправил адресату по адресу из ячейки.
P/S/^ ну как указать ячейку адресата, я по аналогии сделаю из выше приведенного примера по ссылке.

...

Рейтинг:

0 / 0

07.09.2011, 10:44

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

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

#37428484

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Aprel9930, я так понял нет одного звена
отправил адресату-так?, тогда вот Вам: http://www.cyberforum.ru/visual-basic/thread348110.html

...

Рейтинг:

0 / 0

07.09.2011, 10:54

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

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

#37428505

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

извиняюсь, это наоборот скачивание, найду выложу

...

Рейтинг:

0 / 0

07.09.2011, 11:02

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

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

#37428508

Aprel9930

Гость

Ципихович Эндрю, В этом топике, как сделать даунлоад мастер. А мне надо:
ЧТО ЕСТЬ: Некая форма в экселе на конкретном листе заполняется на основании уникального кода всякими данными и выглядет как готовая печатная форма.
ЧТО НАДО: Надо чтобы макрос конвертнул эту форму в pdf и отправил по почте на адрес, который указан в одной из ячеек на этой форме (в экселевской).

...

Рейтинг:

0 / 0

07.09.2011, 11:04

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

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

#37428521

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Вариант отправки письма без помощи Microsoft Outlook

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.

       Const CDO_Cnf = "http://schemas.microsoft.com/cdo/configuration/"
       Dim oCDOCnf As Object, oCDOMsg As Object
       Dim SMTPserver As String, sUsername As String, sPass As String, sMsg As String
       Dim sTo As String, sFrom As String, sSubject As String, sBody As String, sAttachment As String
       On Error Resume Next
       SMTPserver = "smtp.mail.ru" 'SMTPServer: для Mail.ru "smtp.mail.ru"; для Яндекса "smtp.yandex.ru"; для Рамблера "mail.rambler.ru"
       sUsername = "89028912680@mail.ru" 'учётная запись на сервере
       sPass = "12345" 'пароль к почтовому аккаунту
       If Len(SMTPserver) =  0  Then MsgBox "Не указан SMTP сервер", vbInformation, "Внимание": Exit Sub
       If Len(sUsername) =  0  Then MsgBox "Не указана учётная запись", vbInformation, "Внимание": Exit Sub
       If Len(sPass) =  0  Then MsgBox "Не указан пароль", vbInformation, "Внимание": Exit Sub

       sTo = "angpost@zlt.uvd.chel.su" 'кому
       sFrom = "89028912680@mail.ru" 'от кого
       sSubject = "Автоотправка" 'тема письма
       sBody = "Привет от Excel-VBA" 'текст письма
       'sAttachment = "C:/Temp/Книга1.xls" 'вложение (полный путь к файлу)
       'проверка наличия файла по указанному пути
       'If Dir(sAttachment, vbDirectory) = "" Then sAttachment = ""
       'назначаем конфигурацию CDO
       Set oCDOCnf = CreateObject("CDO.Configuration")
       With oCDOCnf.Fields
              .Item(CDO_Cnf & "sendusing") =  2 
              .Item(CDO_Cnf & "smtpauthenticate") =  1 
              .Item(CDO_Cnf & "smtpserver") = SMTPserver
              .Item(CDO_Cnf & "sendusername") = sUsername
              .Item(CDO_Cnf & "sendpassword") = sPass
              .Update
       End With
       'создаём сообщение
       Set oCDOMsg = CreateObject("CDO.Message")
       With oCDOMsg
              Set .Configuration = oCDOCnf
              .BodyPart.Charset = "koi8-r" 'устанавливаем кодировку страницы письма
              .From = sFrom 'от кого
              .To = sTo 'кому
              .Subject = sSubject 'тема письма
              .TextBody = sBody 'текст письма
              If Len(sAttachment) >  0  Then .AddAttachment sAttachment
              .Send 'отправляем письмо автоматом
       End With

       Select Case Err.Number
       Case - 2147220973 : sMsg = "Нет доступа к Интернет"
       Case - 2147220975 : sMsg = "Отказ сервера SMTP"
       Case  0 : sMsg = "Письмо отправлено"
       End Select
       MsgBox$ sMsg, vbInformation, "Внимание"
       Set oCDOMsg = Nothing: Set oCDOCnf = Nothing

...

Рейтинг:

0 / 0

07.09.2011, 11:08

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

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

#37428532

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

что Вы заладили - который указан в одной из ячеек на этой форме (в экселевской)
Это для проблема?? Вы же говорили, что нет

...

Рейтинг:

0 / 0

07.09.2011, 11:11

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

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

#37428540

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Это для Вас(пропустил) проблема?? Вы же говорили, что нет

...

Рейтинг:

0 / 0

07.09.2011, 11:12

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

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

#37428542

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

теперь перечёркивание вместо подчёркивания, одним словом заработался

...

Рейтинг:

0 / 0

07.09.2011, 11:13

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

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

#37431897

Aprel9930

Гость

Ципихович Эндрю, Так вот, даже несмотря на то, что я "ЗАЛАДИЛ", вы всё равно так и не поняли, чего требуется. Этот вариант указан по ссылке, которую любезно предоставил выше предоставил один из собеседников в данном топике. Я же Вам даже написал и что есть и что нужно. Для Вас ещё раз отмечу, что в данном примере, указывается конкретный файл, в конкретной локации. А мне надо, чтобы он конвертнул лист в ПДФ, и тут же (без сохранения, можно и с сохранением) отправил ПДФ по почте на адрес, которой относится конкретно к той информации, которая содержится на листе. (Теперь-то Вам понятно почему я "заладил").

...

Рейтинг:

0 / 0

09.09.2011, 03:58

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

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

#37431902

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Aprel9930,
то есть вопрос в том, что надо сделать темпашку отправить и удалить, для Ворда делал, не знаю подойдёт ли для Экселя

...

Рейтинг:

0 / 0

09.09.2011, 04:52

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

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

#37434593

Aprel9930

Гость

Ципихович Эндрю, можно сразу конвертировать во вложение, без темпашки и удаления. Но как?

...

Рейтинг:

0 / 0

11.09.2011, 08:10

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

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

#37434597

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

Aprel9930,
как это - без темпашки и удаления???
Вы отсылать собрались файл?? так его создать надо для начала

...

Рейтинг:

0 / 0

11.09.2011, 08:51

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

Как макрос конвертит в 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

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

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

#38368268

jeka_piter

Гость

Shocker.Pro,

да вы что?! серьезно? во вложении - файл заказ

...

Рейтинг:

0 / 0

15.08.2013, 22:46

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

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

#38368274

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

jeka_piterда вы что?! серьезно?а вы что, издеваетесь полдня? Посмотрите сами в собственный файл

...

Рейтинг:

0 / 0

15.08.2013, 22:56

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

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

#38368276

jeka_piter

Гость

Shocker.Pro,

Боже....с2 ????

...

Рейтинг:

0 / 0

15.08.2013, 23:04

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

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

#38368278

скукотища

Гость

Shocker.ProЧто и требовалось доказать, в ячейке ActiveSheet.Cells(11, 1) имя файла отсутствует
Имя файла естьjeka_piterпонял, спасибо, после исправления опять False, но теперь такой:
\\USER_S\Users\Мальтима\Счета\2013\Заказы 2013\Заказ покупателя № УТ000003819 от 15 августа 2013 г.pdf"
\\USER_S\Users\Мальтима\Счета\2013\Заказы 2013\ .pdf "
{skipped}
Непонятно, почему этот {censored} Excel не очет создать файл с именем ".pdf".

...

Рейтинг:

0 / 0

15.08.2013, 23:06

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

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

#38368281

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

скукотищаИмя файла естьеще один.
имя файла лежит во втором столбце, а не в первом, разуйте плиз глаза

...

Рейтинг:

0 / 0

15.08.2013, 23:09

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

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

#38368283

jeka_piter

Гость

Shocker.Pro,

куриная слепота и невнимательность не лечится :) теперь, pdf с нужным названием сохранятеся, но почему то дважы, тоесть 2 файла создаются. Это конечно не беда, но тем не менее. Огромное всем спасибо за помощь. Вы уж не ругайте сильно чайника )))

...

Рейтинг:

0 / 0

15.08.2013, 23:10

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

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

#38368285

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

так потому что там две команды сохранения
используйте мой первоначальный код

...

Рейтинг:

0 / 0

15.08.2013, 23:11

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

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

#38368287

jeka_piter

Гость

Shocker.Pro,

Огромное спасибо господа! Вот, что значит профессионалы !

...

Рейтинг:

0 / 0

15.08.2013, 23:14

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

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

#38368291

скукотища

Гость

Shocker.ProскукотищаИмя файла естьеще один.
имя файла лежит во втором столбце, а не в первом, разуйте плиз глаза Да я файл фообще не смотрел. Смотрел копипаст сообщения. Там есть имя файла - " .pdf ". Маленькое, но допустимое.

...

Рейтинг:

0 / 0

15.08.2013, 23:22

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

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

#38368294

jeka_piter

Гость

скукотища,

все равно спасибо!

...

Рейтинг:

0 / 0

15.08.2013, 23:41

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

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

#38368310

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

скукотищаимя файла - " .pdf ". Маленькое, но допустимое.недопустимое, ты не в Юниксе ))

...

Рейтинг:

0 / 0

16.08.2013, 00:22

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

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

#38368319

скукотища

Гость

Shocker.Pro,
windows xp sp3. Только что ещё раз проверил: создал файл ".txt" - создаётся, пишется в, читается из, удаляется. Без проблем.

...

Рейтинг:

0 / 0

16.08.2013, 00:32

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

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

#38368425

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

гм, значит я упустил тот момент, когда это стало допускаться )

...

Рейтинг:

0 / 0

16.08.2013, 08:44

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

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

#38369836

jeka_piter

Гость

Shocker.Pro,

Доброго времени суток! Искал по форму, либо плохо искал либо темы не было такой, решил сразу у грамотных людей спросить. Есть вопрос. Во вложенном счете на оплату выделил красным ячейку, в которую необходимо нажать для того чтобы ровно вставилась PND заготовка с печатью организации и подписями руководителя с последующим сохранением в PDF (за это отдельное вам спасибо). Так вот - реально ли создать макрос, который бы понимал адрес этой самой ячейки автоматически, так как каждый счет на оплату отличается кол-ом строк с товаром и соответственно с каждым счетом адрес ячейки изменяется. Буду признателен за ответ.

...

Рейтинг:

0 / 0

17.08.2013, 21:21

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

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

#38370224

Shocker.Pro

Участник

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

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

Рейтинг: 0 / 0

реально Модератор: Так, топик не ваш, не надо в нем задавать вопросы по другой теме, создайте отдельный

...

Рейтинг:

0 / 0

19.08.2013, 01:40

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

115 сообщений из 115, показаны все 5 страниц

все

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

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

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

start [/forum/topic.php?all=1&fid=61&tid=2174600]:	0ms
get settings:	12ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	42ms
get topic data:	12ms
get forum data:	3ms
get page messages:	115ms
get tp. blocked users:	2ms
others:	15ms

total:	219ms