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

[Extril]

Благодарю покорнейше. Скрипт выдает ошибку в строке, чтобы это моглло значить
ReDim b(1 To fso.GetFolder(p).Files.Count * 100, 1 To 9)

[Extril]

После правок, понял. что сам ошибся, в итоге все заработало. У меня вопрос,
1) а как сделать чтобы макрос работал без открытя книг, время на которое даже в скрытом режиме, занимает время. В той формуле которая была мной процитирована изначально макрос не открывает книги..

[SAS888]

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

Будет существенно медленнее. Хотите проверить?

[kuklp]

А точней не будет ни медленней ни быстрей. Нельзя получить(внести) данные так или иначе не открыв книгу. Разве что посекторным чтением диска, но и в этом случае что-то придется открыть, для преобразования двоичных данных в табличные

[SAS888]

Нельзя получить(внести) данные так или иначе не открыв книгу

И я о том же... Да еще, плюс ко всему, нужно вставить по 900 формул (ссылок) на каждый файл...

[Extril]

Спасибо, опробовал в действии, все работает. В этой связи, прошу нерадивому танкисту подсказать
1. Можно ли сделать этот макрос работающим из той же папки где находяться копируемые файлы
2. И гласное, возможно ли использовать в качестве пути
\\nwdata.nw.megafon.ru\DavWWWRoot\s ites\ur_dep\DocLib\мегафон"

[DiemonStar]

1. Можно ли сделать этот макрос работающим из той же папки где находяться копируемые файлы

1. Если Вы разместите книгу с макросом в папке с данными и в качестве пути используете путь к книге как путь к данным
2. Переделаете макрос из VBA в VBS и будете запускать скрипт, который обрабатывает все файлы в папке где он находится и сохраняет результат по указанному пути.

2. И гласное, возможно ли использовать в качестве пути
\\nwdata.nw.megafon.ru\DavWWWRoot\s ites\ur_dep\DocLib\мегафон"

Поскольку доступ к файлам идет через стандартные механизмы Windows, то если данный путь открывается в проводнике и ресурс доступен для записи (если там планируется что-то записывать), то его вполне можно использовать.

[Extril]

[QUOTE=DiemonStar;1305496]1. Если Вы разместите книгу с макросом в папке с данными и в качестве пути используете путь к книге как путь к данным

Скажите пожалуйста, а как это прописать ?

У меня почему то ошибка выскакивает, с подсветкой строки
Set ws1 = GetObject(p & f).Worksheets("Проверки"), не понимаю, что это может быть.

[Extril]

Странно, что с локального диска при указании c:\temp макрос отлично работает, но стоит указать путь расположения обрабатываемых файлов "\\nwdata.nw.megafon.ru\DavWWWRoot\ sites\ur_dep\DocLib\W\": f = Dir(p & "*.xlsx*"): k = 0 то выдает подсветку Set ws1 = GetObject(p & f).Worksheets("Лист2").
Протестил другим макросом доступ к папке\\nwdata.nw.megafon.ru\DavWWWR oot\sites\ur_dep\DocLib\W\, путь доступен для работы. Ничего не понимаю, может быть работоспособность зависит от длинны пути ?

[SAS888]

У меня почему то ошибка выскакивает, с подсветкой строки
Set ws1 = GetObject(p & f).Worksheets("Проверки"), не понимаю, что это может быть.

При размещении файла с макросом в той же папке, в которой находятся файлы-источники, ошибка будет возникать при попытке еще раз открыть файл с макросом. Другими словами, нужно добавить условие:

Do While f <> ""
    If f <> ThisWorkbook.Name Then
        Set ws1 = GetObject(p & f).Worksheets("Лист2")
        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