Сохранение документа на сервер

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение документа на сервер (Макросы/Sub)

XbI3bIP

Дата: Понедельник, 13.07.2015, 12:52 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Вообщем столкнулся сегодня с такой проблемой, при использовании Application.GetSaveAsFilename файл сохраняется на локальном компьютере с именем mName (значение ячейки С4), а на сервере почему-то имя не подтягивает. Кто нибудь знает, в чём может быть беда?

В таком виде не работает:

[vba]

Код

Dim mName$, fName, iDefaultPath$
iDefaultPath$ = "\\10.16.102.4\общие документы\"
mName = [C4]
fName = Application.GetSaveAsFilename(InitialFileName:=iDefaultPath$ & mName, _
FileFilter:="Excel Files (*.xlsm), *.xlsm", _
Title:="Сохранение документа")
If fName <> False Then ThisWorkbook.SaveAs fName

[/vba]
тогда как в таком:

[vba]

Код

Dim mName$, fName, iDefaultPath$
iDefaultPath$ = "D:\общие документы\"
mName = [C4]
fName = Application.GetSaveAsFilename(InitialFileName:=iDefaultPath$ & mName, _
FileFilter:="Excel Files (*.xlsm), *.xlsm", _
Title:="Сохранение документа")
If fName <> False Then ThisWorkbook.SaveAs fName

[/vba]
Всё прекрасно работает.