Страницы: 1
RSS
Сохранение книги в сетевую папку, с именем из определенной ячейки
 
Здравствуйте, есть макрос, после его выполнения книга должна сохраниться в сетевую папку (откуда она была открыта - \\Serverlex\FAILS (D)\Мои документы\КОМПАНИИ\Хик\Август-сентябрь\Документы 2014\ГАББРО) , она сохраняется но не всегда, через раз, то в папке Мои документы, то в сетевой.


Код
1
2
3
4
5
6
7
8
Sub WPrintButton_Click()
Worksheets("Упаковочный").Range("A1:H35").PrintOut Copies:=2
Worksheets("Инвойс").Range("A1:I39").PrintOut Copies:=2
Worksheets("Приложение").Range("A1:H50").PrintOut Copies:=3
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Worksheets("Расчетка").Range("H22").Value
Sheets("ДТ").Select
MsgBox "Документы сохранены и распечатаны, заполняйте декларацию!", vbExclamation
End Sub

Объясните что сделал не так?
 
А что у вас написано в ячейке
Код
1
Worksheets("Расчетка").Range("H22").Value
только имя файла, или полный путь к файлу?
Надо, чтобы был полный путь
Его можно составить:
Код
1
ThisWorkbook.SaveAs ThisWorkbook.path & "\" & ThisWorkbook.Worksheets("Расчетка").Range("H22").Value
Изменено: Игорь - 27.03.2014 19:01:10
 
Спасибо, вот так все работает.
Код
1
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets("Расчетка").Range("H22").Value
Изменено: Denis_pog - 27.03.2014 19:01:20
 
Может открыть папку где лежит файл и глянуть путь и скопировать его?
Страницы: 1
Читают тему
Наверх
Loading...