Здравствуйте уважаемые форумчане,
Подскажите пожалуйста, как дополнить макрос?
На листе создал кнопку „Создать PDF“ при нажатии на которую создается pdf файл области печати, с названием файла „INVOICE_дата_сегодня“ и сохраняется в C:\
Sub INVOICE_PDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\" & "INVOICE_" & Worksheets("INVOICE").Range("D3") & "_" & Date & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
В итоге получается такой файл: INVOICE__16.04.2011.pdf
Как добавить в макрос, чтоб в название файла добавлялась фамилия и имя клиента из ячейки B7 (например IVANOV VASILI) ?
которое написано с пробелом или только фамилия например?
Т.е. необходимо создать файл с названием: 2011.04.16_INVOICE__IVANOV_VASILI.pdf
И еще небольшое но…!
Если в имени или фамилии встречаются буквы üõöä, то они заменяются на соответственно:
Ü – Y
Õ – O
Ö – O
Ä - A
Помогите пожалуйста!
Подскажите пожалуйста, как дополнить макрос?
На листе создал кнопку „Создать PDF“ при нажатии на которую создается pdf файл области печати, с названием файла „INVOICE_дата_сегодня“ и сохраняется в C:\
Sub INVOICE_PDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\" & "INVOICE_" & Worksheets("INVOICE").Range("D3") & "_" & Date & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
В итоге получается такой файл: INVOICE__16.04.2011.pdf
Как добавить в макрос, чтоб в название файла добавлялась фамилия и имя клиента из ячейки B7 (например IVANOV VASILI) ?
которое написано с пробелом или только фамилия например?
Т.е. необходимо создать файл с названием: 2011.04.16_INVOICE__IVANOV_VASILI.pdf
И еще небольшое но…!
Если в имени или фамилии встречаются буквы üõöä, то они заменяются на соответственно:
Ü – Y
Õ – O
Ö – O
Ä - A
Помогите пожалуйста!