Доброго всем вечера.
Прошу о помощи в решение моей задачи.
Есть книга с 20 листами необходимо сохранять лист в специальную папку, с определенным названием, в последнее время нужно что бы после названия добавлялись еще буквы, пример.
Сейчас происходит так книга сохраняется по именем
NON RADIATION CERTIFICATE (BL 1)
а теперь нужно что бы он сохранял:
NON RADIATION CERTIFICATE (BL 1) + текст из ячейки A1 из листа под названием MAP.
Помогите поправить макрос (желательно просто поправить (дополнить) так как в этом не очень разбираюсь
Заранее всех благодарю!
Sub Ìàêðîñ9()'
' Ìàêðîñ9 Ìàêðîñ
' NON RADIOACTIVITY CERTIFICATE
'
'
Sheets("RAD";).Visible = True
Sheets("RAD";).Select
Sheets("RAD";).Copy
Cells.Select
Range("A34";).Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ChDir _
"D:\FORWARDER DEPARTMENT\EXPORT DEPARTMENT\(5) TEMPORARY DRAFTS\SHIPPERS DRAFTS (pdf)"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\FORWARDER DEPARTMENT\EXPORT DEPARTMENT\(5) TEMPORARY DRAFTS\SHIPPERS DRAFTS (pdf)\NON RADIOACTIVITY CERTIFICATE (BL 1).pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
ChDir _
"D:\FORWARDER DEPARTMENT\EXPORT DEPARTMENT\(5) TEMPORARY DRAFTS\SHIPPERS DRAFTS (xls)"
ActiveWorkbook.SaveAs Filename:= _
"D:\FORWARDER DEPARTMENT\EXPORT DEPARTMENT\(5) TEMPORARY DRAFTS\SHIPPERS DRAFTS (xls)\NON RADIOACTIVITY CERTIFICATE (BL 1).xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Sheets("START";).Select
End Sub
Прошу о помощи в решение моей задачи.
Есть книга с 20 листами необходимо сохранять лист в специальную папку, с определенным названием, в последнее время нужно что бы после названия добавлялись еще буквы, пример.
Сейчас происходит так книга сохраняется по именем
NON RADIATION CERTIFICATE (BL 1)
а теперь нужно что бы он сохранял:
NON RADIATION CERTIFICATE (BL 1) + текст из ячейки A1 из листа под названием MAP.
Помогите поправить макрос (желательно просто поправить (дополнить) так как в этом не очень разбираюсь
Заранее всех благодарю!
Sub Ìàêðîñ9()'
' Ìàêðîñ9 Ìàêðîñ
' NON RADIOACTIVITY CERTIFICATE
'
'
Sheets("RAD";).Visible = True
Sheets("RAD";).Select
Sheets("RAD";).Copy
Cells.Select
Range("A34";).Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ChDir _
"D:\FORWARDER DEPARTMENT\EXPORT DEPARTMENT\(5) TEMPORARY DRAFTS\SHIPPERS DRAFTS (pdf)"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\FORWARDER DEPARTMENT\EXPORT DEPARTMENT\(5) TEMPORARY DRAFTS\SHIPPERS DRAFTS (pdf)\NON RADIOACTIVITY CERTIFICATE (BL 1).pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
ChDir _
"D:\FORWARDER DEPARTMENT\EXPORT DEPARTMENT\(5) TEMPORARY DRAFTS\SHIPPERS DRAFTS (xls)"
ActiveWorkbook.SaveAs Filename:= _
"D:\FORWARDER DEPARTMENT\EXPORT DEPARTMENT\(5) TEMPORARY DRAFTS\SHIPPERS DRAFTS (xls)\NON RADIOACTIVITY CERTIFICATE (BL 1).xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Sheets("START";).Select
End Sub
Изменено: Mazyuka - 03.04.2015 00:06:01