Как программно обратиться к сетевому файлу

[Bezdar]

Подскажите, пожалуйста. Как программно обратиться к файлу, находящемуся на сервере, а не локально. Чтобы проделать с ним ряд манипуляций. Открыть его программно могу, но скопировать данные из него - нет. Ругается Path/File accsess error (ошибка 75). Обращаюсь к нему по относительному пути (по имени файла), а как прописать абсолютный путь? И надо ли?
Буду признательна за любую подсказку.

[Юнлинг]

А каким интерфейсом ты пользуешься.
Если TCP/IP то это просто //IPадрес_сервера/полный_путь/ИМЯ_файла

Если именнованый то немного сложнеее. Необходимо чтобы на сервере был включен Name Pipes API-интерфейс (стандартно все рабоnают именно с ним, но забываю его включить.)
Тогда обращаться к нему нужно так \\.\pipe\ИмяСервераPipe\ПолныйПуть\ ИМЯ файла

[Bezdar]

Я обращаюсь так:
workbooks("\\IPадрес_сервера/полный_путь/ИМЯ_файла").sheets (такой-то).copy ну и т.д.
ругается. синтаксис не такой? как правильно написать?

[Юнлинг]

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

Я обращаюсь так:
workbooks("\\IPадрес_сервера/полный_путь/ИМЯ_файла").sheets (такой-то).copy ну и т.д.
ругается. синтаксис не такой? как правильно написать?

Мне кажется ты ошибся
надо писать так

\\IPадрес_сервера\полный_путь\ИМЯ_файла

[EducatedFool]

Для открытия файла выполняем такую команду:
Workbooks.Open ("\\IPадрес_сервера\полный_путь\ИМЯ_ф айла")

Далее (при работе с файлом) обращаемся так:
Workbooks("ИМЯ_файла").Sheets(такой - то).Copy


Вообще, лучше написать код несколько иначе:

    Dim WB As Workbook:
    Set WB = Workbooks.Open("\\IPадрес_сервера\полный_путь\ИМЯ_файла") ' открываем книгу
    WB.Sheets(такой - то).Copy ' копируем лист
    WB.Close False ' закрываем книгу

[Bezdar]

Спасибо большое! Наконец-то мозги на место встали.
Но проблема все равно осталась. Копирует не все файлы в сетевой папке, а изборочно. И ругается, как я выше описала. В чем может быть причина?

[Юнлинг]

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

Спасибо большое! Наконец-то мозги на место встали.
Но проблема все равно осталась. Копирует не все файлы в сетевой папке, а изборочно. И ругается, как я выше описала. В чем может быть причина?

Первое Наверное из сетевой папки, а не в сетевую.
Воторое Ошибок копирования может быть несколько
Назову две основных.
1. Если в папке часть файлов ReadOnly, закрытые администратором или другим пользователем, то ты получишь ошибку при копировании. Метод исправления - отменить ReadOnly для этого файла.
2. Если одновременно файлом пользуется другой пользователь, а в условиях стоит однопользовательский режим работ. Метод исправления - открыть многопользовательский режим работы с файлом (Зависит от типа файла, Многие файлы это просто не позволяют это делать - например системные) Но просто копировать эти файлы невозможно.

[Bezdar]

Ко всем файлам сетевой папки у меня полные права, а файлы хоть с ReadOnly, хоть без него - один дается копироваться, другой - нет. И думай на что хочешь. Еще один момент - не дает копировать именно листы, а не инф-цию в них, инф-ция идет на ура.

[Юнлинг]

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

Ко всем файлам сетевой папки у меня полные права, а файлы хоть с ReadOnly, хоть без него - один дается копироваться, другой - нет. И думай на что хочешь. Еще один момент - не дает копировать именно листы, а не инф-цию в них, инф-ция идет на ура.

Полные права не означают системные администраторские (это сетевая прибамбаха). Если readOnly сделан администратором то хотя у тебя и будет видно что полный доступ в реальности нет. (Мне честно говоря ни разу не удавалось в прямую скопировать файлы только побайтово). В этом случае ты можешь прочитать, но скопировать системной командой copy сомневаюсь. Но если удается все таки макросом его прочитать то соответственно можно и записать но не как целостный файл. Естественно создав как байтовый файл. Как это делается в VBA не знаю. а в C есть команда putchar()
В твоем случае файлы наверное заняты или другими пользователями или сервером. Обратись к админу он должен помочь в этом случае.