Не работает макрос по сети

[ZHDN]

Attribute VB_Name = "Module16"
Sub ЖМИ_11()
 Dim FolderName2 As Range
    Set FolderName2 = ThisWorkbook.Worksheets("К-1").Range("I2")
    Dim PathToSave As String, FolderName As String, FellPathToSave As String
    Dim fs As Object
    PathToSave = "F:\Ведомость"    '\2011\" '<--------------- Здесь укажи путь к папке в которую нужно сохранить книгу
    FolderName = FolderName2    '<--------------- Здесь задай название папки
    FellPathToSave = PathToSave    '& FolderName & "\"
    Set fs = CreateObject("Scripting.FileSystemObject")
    If Not fs.FolderExists(FellPathToSave) Then fs.CreateFolder FellPathToSave
    FellPathToSave = FellPathToSave & "\2011\"
    If Not fs.FolderExists(FellPathToSave) Then fs.CreateFolder FellPathToSave
    FellPathToSave = FellPathToSave & FolderName & "\"
    If Not fs.FolderExists(FellPathToSave) Then fs.CreateFolder FellPathToSave
    Application.ThisWorkbook.SaveAs FellPathToSave & "Vedomost_BCD_Kotel_" & Format(Now, "DD_MM_YYYY HH_MM") & ".xls"
End Sub

Проблема в следующем если этот макрос запускать на своей машине все срабатовает нармально.
А я пытаюсь сделать так на другой машине создал общую папку с полным доступом к ней. Вынес ярлык на другую машину и при попытке выполнить макрос выдает ошибку "76 путь не найден" и подсвечивает строчку

 If Not fs.FolderExists(FellPathToSave) Then fs.CreateFolder FellPathToSave

[EducatedFool]

Попробуйте создать все папки одной строкой кода:
http://excelvba.ru/code/MkDir

[ZHDN]

А как это поможет при сетевом выполнении макроса. Опишу по подробнее чтоб было понятнее. Папка Ведомость находящаяся на диске F уже создана и расшарена. В этой папке должна создатся папка 2011 а уже в ней сохранится файлик.

[ZHDN]

И так вот что выяснилось. Опишу ситуацию более подробно.
Я открываю на машине которая в сети папку Ведомость в этой папке есть екселевская книга в которой прописан макрос. Я делаю созадть ярлык на рабочем столе. Соответственно ярлык появляется на моем компе. Открываю этот ярлык и выпалняю макрос далее следует ошибка что путь не найден. А дальше выяснилось вот что если я за место этого

 PathToSave = "F:\Ведомость"

сделаю вот так

 PathToSave = "D:\Ведомость"

То все сработает но сохранится на моей машине, а не на машине которая находится в сети. А ошибка вылетает патамучто на моей машине просто нет диска F. Дак как сделать так чтоб сохранялось именно на той машине на которую ссылается ярлык а не на моей.

[ZHDN]

HELP!!! =(

[IgorGO]

расшаренную папку, где храниться все это барахло на компьютере-источники через Subst подключите как отдельный диск, например, I:.
на остальных компьютерах подключайте в систему эту же папку тоже как диск I:.
в макросе обращайтесь к данным на диске I:, все покатит.
удачи!

[ZHDN]

Сообщение от IgorGO

расшаренную папку, где храниться все это барахло на компьютере-источники через Subst подключите как отдельный диск, например, I:.
на остальных компьютерах подключайте в систему эту же папку тоже как диск I:.
в макросе обращайтесь к данным на диске I:, все покатит.
удачи!

Это как так сделать? Если не затруднит объясните по шагам.

[IgorGO]

пуск, выполнить, CMD, SUBST /?
посмотрите как пользоваться SUBST. SUBST - это подставить, с помощью ее вы можете иммитировать наличие в системе дополнительного диска. Там два режима выполнения команды: подставить диск, отменить "подставу".
на компбтере, на котором хранится ваш файл. запишете простенький батник, который будет подставлять новый диск в систему и положите его в автозапуск.
расшарьте эту же папку. на остальных компьютерах подключайте ее при загрузке.
На всех компьютерах этот диск (подставленный, или подключенный) следует назвать одной буквой.

[ZHDN]

Большое спасибо за помошь