ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как макрос конвертит в PDF и сохраняет в определенную папку
25 сообщений из 115, страница 1 из 5
  1  все
Как макрос конвертит в PDF и сохраняет в определенную папку
    #37404854
Aprel9930
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aprel9930
Гость
СИТУАЦИЯ: Макрос конвертит файл в PDF и сохраняет его с конкретно прописанным в макросе именем и в конкретно прописанную локацию.
НЕОБХОДИМО: Чтобы макрос сохранял файл с именем, аналогичным значению в конкретной ячейке, а также в папке с именем, соотносящимся с именем файла.
ВОПРОС: Как это прописать в макросе?
...
Рейтинг: 0 / 0
21.08.2011, 05:05
| Ответить | Цитировать | Написать  
Как макрос конвертит в PDF и сохраняет в определенную папку
    #37404857
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
 
ЦЭ, опять ты лезешь с ответом, не имеющим никакого отношения к вопросу? Все, жалуюсь модератору.
Aprel9930Как это прописать в макросе?
Начнем со среды, по слову "ячейка" можно подумать, что речь идет об экселе... по PDF - о ворде.

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

Не ленитесь задать вопрос более развернуто, указать среду и привести фрагмент макроса, тогда и получите вменяемый ответ
...
Рейтинг: 0 / 0
21.08.2011, 09:35
| Ответить | Цитировать | Написать  
Как макрос конвертит в PDF и сохраняет в определенную папку
    #37405198
Aprel9930
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: 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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aprel9930
Гость
Shocker.Pro,

Класс! А как указать папку в которую надо сохранить?
Путь к папке также находится в ячейке.
Да, имя файла и путь к папке прописываются в ячейке как формула. В зависимости от указанного кода, в ячейке прописываются те или иные имя и путь к сохранению.
...
Рейтинг: 0 / 0
21.08.2011, 20:04
| Ответить | Цитировать | Написать  
Как макрос конвертит в PDF и сохраняет в определенную папку
    #37405222
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
Filename:= ActiveSheet.Cells( 1 , 2 ) & ActiveSheet.Cells( 1 , 1 )
...
Рейтинг: 0 / 0
21.08.2011, 20:07
| Ответить | Цитировать | Написать  
Как макрос конвертит в PDF и сохраняет в определенную папку
    #37405224
Aprel9930
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Aprel9930Тогда подробнее, что такое ActiveSheet.Cells( 1,2 ) & ActiveSheet.Cells( 1,1 )
ячейка A2, склеенная с ячейкой A1
...
Рейтинг: 0 / 0
21.08.2011, 20:14
| Ответить | Цитировать | Написать  
Как макрос конвертит в PDF и сохраняет в определенную папку
    #37405232
Aprel9930
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aprel9930
Гость
Shocker.Pro
Код: plaintext
Filename:= ActiveSheet.Cells( 1 , 2 ) & ActiveSheet.Cells( 1 , 1 )



Да, и ещё вопрос: Что из них имя файла, а что путь к папке?
...
Рейтинг: 0 / 0
21.08.2011, 20:15
| Ответить | Цитировать | Написать  
Как макрос конвертит в PDF и сохраняет в определенную папку
    #37405234
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aprel9930
Гость
Shocker.ProAprel9930Тогда подробнее, что такое ActiveSheet.Cells( 1,2 ) & ActiveSheet.Cells( 1,1 )
ячейка A2, склеенная с ячейкой A1


Для уточнения: В этих ячейках мы видим конкретные текстовые символы, но содержание ячеек формульное. Как макрос их прочитает, как текст или как формулу?
...
Рейтинг: 0 / 0
21.08.2011, 20:18
| Ответить | Цитировать | Написать  
Как макрос конвертит в PDF и сохраняет в определенную папку
    #37405239
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Aprel9930А что такое Value, 0, -1, 0, , , 0 ? И почему ExportAsFixedFormat 0 Имена констант замененные на значения.
Вставьте в одну ячейку имя и путь: "D:\Проба\ОУ3.001.pdf", меньше проблем с синтаксисом будет.
...
Рейтинг: 0 / 0
21.08.2011, 20:22
| Ответить | Цитировать | Написать  
Как макрос конвертит в PDF и сохраняет в определенную папку
    #37405240
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Как текст. Но если сильно смущает, можете писать Cells(1,1).Value
...
Рейтинг: 0 / 0
21.08.2011, 20:22
| Ответить | Цитировать | Написать  
Как макрос конвертит в PDF и сохраняет в определенную папку
    #37405246
Aprel9930
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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:42
| Ответить | Цитировать | Написать  
Как макрос конвертит в PDF и сохраняет в определенную папку
    #37405252
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
но если очень хочется буквами, то можно так:
Код: plaintext
Filename:=ActiveSheet.Range("D2") & ActiveSheet.Range("A21")
...
Рейтинг: 0 / 0
21.08.2011, 20:43
| Ответить | Цитировать | Написать  
Как макрос конвертит в PDF и сохраняет в определенную папку
    #37405253
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Aprel9930, откуда нам знать, что у Вас в ячейках? Выложите неработающий пример в файле Эксел, поправим. Предположительно - отсутствует слэш между путем и файлом. Дальше, строка:
ChDir "D:\Проба"
абсолютно бесполезна.
...
Рейтинг: 0 / 0
21.08.2011, 20:44
| Ответить | Цитировать | Написать  
Как макрос конвертит в PDF и сохраняет в определенную папку
    #37405254
Aprel9930
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
kuklp,

я уже ответил - у него просто проблема в синтаксисе
...
Рейтинг: 0 / 0
21.08.2011, 20:46
| Ответить | Цитировать | Написать  
Как макрос конвертит в PDF и сохраняет в определенную папку
    #37405257
Aprel9930
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aprel9930
Гость
kuklpAprel9930А что такое Value, 0, -1, 0, , , 0 ? И почему ExportAsFixedFormat 0 Имена констант замененные на значения.
Вставьте в одну ячейку имя и путь: "D:\Проба\ОУ3.001.pdf", меньше проблем с синтаксисом будет.

Сейчас сделаю, но всё же, какая именно синтаксис ошибка, где, в каком месте, перед чем я не поставил/поставил нужный/ненужный символ?
...
Рейтинг: 0 / 0
21.08.2011, 20:52
| Ответить | Цитировать | Написать  
Как макрос конвертит в PDF и сохраняет в определенную папку
    #37405262
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Shocker.Proно если очень хочется буквами, то можно так:
Код: plaintext
Filename:=ActiveSheet.Range("D2") & ActiveSheet.Range("A21")
Я бы и тут по логике сделал:
[d2] & [a21]
Судя по примеру автора(макрорекордер) макрос в общем модуле, а значит по умолчанию обращение к активному листу. Вопрос в том - есть ли слэш:-)
...
Рейтинг: 0 / 0
21.08.2011, 20:53
| Ответить | Цитировать | Написать  
25 сообщений из 115, страница 1 из 5
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как макрос конвертит в PDF и сохраняет в определенную папку
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37405253&tid=2174600]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 38ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 67ms
get tp. blocked users:
 2ms
others: 15ms
total:  171ms
созд. / загр.: 171ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]