Обьединение листов из закрытых книг

[Extril]

Прошу прощения, за свою контуженность, но эта вставка уже есть в макросе. А проблемка почему то возникает при прописывании сетевого пути.
1) Книга с макросом находиться \\nwdata.nw.megafon.ru\DavWWWRoot\s ites\ur_dep\DocLib\
2) Файлы источники находяться
\\nwdata.nw.megafon.ru\DavWWWRoot\s ites\ur_dep\DocLib\W\

При выполнении макроса выскакивает подсветка строки (красным)


Private Sub CommandButton1_Click()
Dim ws As Worksheet, ws1 As Worksheet, i As Integer, j As Integer, k As Integer, p As String, f As String, x, a(), b()
Application.ScreenUpdating = False
Set ws = ThisWorkbook.Sheets("Проверки")
Set fso = CreateObject("Scripting.FileSystemO bject")
Set x = CreateObject("Scripting.Dictionary" )
p = "\\nwdata.nw.megafon.rutes\ur_dep\D ocLib\W\": f = Dir(p & "*.xlsx*"): k = 0
a = ws.Range("D1:D" & ws.Cells(Rows.Count, 4).End(xlUp).Row + 1).Value
For i = 1 To UBound(a, 1)
If Not x.Exists(a(i, 1)) Then x.Add a(i, 1), a(i, 1)
Next
ReDim b(1 To fso.GetFolder(p).Files.Count * 100, 1 To 9) Do While f <> ""
If f <> ThisWorkbook.Name Then
Set ws1 = GetObject(p & f).Worksheets("Проверки")
a = ws1.Range("A1:I100").Value
For i = 1 To UBound(a, 1)
If a(i, 4) <> "" And a(i, 4) <> 0 Then
If Not x.Exists(a(i, 4)) Then
x.Add a(i, 4), a(i, 4)
k = k + 1
For j = 1 To UBound(a, 2): b(k, j) = a(i, j): Next
End If
End If
Next
ws1.Parent.Close (False)
End If
f = Dir
Loop
If k <> 0 Then ws.Cells(ws.Cells(Rows.Count, 4).End(xlUp).Row + 1, 1).Resize(k, 9).Value = b
Set x = Nothing
End Sub

[Hugo121]

Ещё раз сравнить эту строку с авторским вариантом не пробовали?

[Extril]

Вообще прежде чем написать я попробовал и оригинальный вариант, и с учетом изменений в последнем посте. Но ничего не изменилось, блин как то странно, может сетевой путь не принимает из за его длинны

[Hugo121]

Может быть что угодно, нужно по месту смотреть.
Ну скопируйте файл поближе, например в D:\TMP\ - если заработает, значит смотрите свой путь.

[Extril]

Не могу понять, почему путь C:\Users\dvsundyu\Documents\Temp\Пр имер\ работоспособен, а
\\nwdata.nw.megafon.ru\DavWWWRoot\s ites\ur_dep\DocLib\W\ не хочет работать.
Блин, неужели никак не исправить ситуацию, у меня вся отчетность на сетке выложена для руководства. Помогите пожауйста

[Extril]

После внесения правок и проб и ошибок, макрос останавливается на строке Set ws1 = GetObject(p & f).Worksheets("Проверки")

[EducatedFool]

Попробуйте заменить GetObject
на Workbooks.Open

Не уверен, что поможет, - но вдруг...

[Hugo121]

Да, разок помогло. Я уже тоже начал писать такую подсказку, но оборвал - ведь по логике уже проверили работу с этим файлом, но с другим путём?
Может только путь влиять на то, что будет разница между GetObject и Workbooks.Open?
Может сейчас узнаем?

[Extril]

Спасибо всем огромное, все заработало )))) Я щаслив как слон

[Hugo121]

Не узнали...