2016-12-26 2 views
1

У меня есть код здесь, чтобы сохранить файл в формате PDF, в то же время, я хочу сделать папку с именем значения ячейки и сохранить файл в этой папкеКак я могу сохранить лист как PDF и сохранить папку

Sub Button1_Click() 
Sheet3.ExportAsFixedFormat _ 
Type:=xlTypePDF, _ 
Filename:=ActiveWorkbook.Path & "\" & Sheet1.Range("A2").Value & "-" & Sheet1.Range("B2").Value, _ 
OpenAfterPublish:=True 


End Sub 
+2

Отлично! И вопрос в том? – Sgdva

+1

В какой ячейке указано имя новой папки? Или как выглядит новое имя папки? На данный момент вы используете 'ActiveWorkbook.Path', но что вы ** хотите использовать **? – YowE3K

ответ

0

чтобы создать папку, которую нужно использовать MkDir

Dim folder As String 

folder = ActiveWorkbook.Path & "\" & Sheet1.Range("A2").Value 
MkDir folder 'this makes the folder 

Sheet3.ExportAsFixedFormat _ 
Type:=xlTypePDF, _ 
Filename:=folder & "\" & Sheet1.Range("B2").Value 'saves the file in that folder 

Если есть шанс создать папку/файл с таким же названием, которое я хотел бы добавить в некоторых /, то заявления, если проверить, если папка/файл существует первым или нет.

Смежные вопросы