как проверить наличие excel файла на сервере из файла Excel?

[Irin]

необходимо собрать отчет в excel-e из др. файлов, хочу проверить есть файлы или нет, если есть читаем данные
как проверить наличие excel файла на сервере из др.файла Excel?
я могу проверить наличие на компьютере с помощью ф-ции Dir(file_name),как быть если на сервере?

[alibek]

Точно также.

[Irin]

функция Dir работает "локально" может проверить толь на данном компьютере, если что

[alibek]

Функция Dir$() работает и с сетевыми путями.
Впрочем, можешь пытаться открыть этот файл и ловить ошибку. В чем-то это правильнее.

[anvg]

Подключи через Tools/References Microsoft Scripting Runtime (для удобства)

Код: Выделить всё


    Dim fso As New Scripting.FileSystemObject
    Dim pFolder As Scripting.Folder
    Dim pFile As Scripting.File
   
    Set pFolder = fso.GetFolder("\\myserver\needfolderpath")
    For Each pFile In pFolder.Files
        If StrComp(fso.GetExtensionName(pFile.Name), "xls") = 0 Then
            Debug.Print pFile.Path
        End If
    Next pFile


[/syntax]

[Денис]

Irin
Используй UNC-путь