Сохранение книги в сетевую папку, с именем из определенной ячейки

Пользователь

Сообщений: 39 Регистрация: 09.03.2014

27.03.2014 06:48:48

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

Код

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

Объясните что сделал не так?

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

27.03.2014 08:56:06

А что у вас написано в ячейке

Код
Worksheets("Расчетка").Range("H22").Value

только имя файла, или полный путь к файлу?
Надо, чтобы был полный путь
Его можно составить:

Код
ThisWorkbook.SaveAs ThisWorkbook.path & "\" & ThisWorkbook.Worksheets("Расчетка").Range("H22").Value

Изменено: Игорь - 27.03.2014 19:01:10

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Denis_pog

Пользователь

Сообщений: 39 Регистрация: 09.03.2014

27.03.2014 09:53:54

Спасибо, вот так все работает.

Код
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets("Расчетка").Range("H22").Value

Изменено: Denis_pog - 27.03.2014 19:01:20

alexthegreat Пользователь Сообщений: 1212 Регистрация: 31.01.2014	#4 27.03.2014 09:58:26 Может открыть папку где лежит файл и глянуть путь и скопировать его?

Читают тему