Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Сохранить книгу с именем из ячейки, Помогите поправить код
 
Доброго всем вечера.
Прошу о помощи в решение моей задачи.
Есть книга с 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 - 3 Апр 2015 00:06:01
 
Код макроса копируйте при русской раскладке клавиатуры, а здесь оформляйте соответствующим тегом. Исправляйте.
 
В поиске наберите Сохранить книгу с именем из ячейки
будет два листа ссылок
Страницы: 1
Читают тему (гостей: 1)