Не могу открыть файл, из которого мне нужно подтянуть данные

NV-S

Добрый день, ситуация такая, мне нужно из файла взять определенные данные с помощью макроса.Этот файл находится в сети и им постоянно кто-то пользуется.Если я использую функциюWorkbooks.Open FileName:=F_Name_8 то вылезает ошибка Error 1004Если из этого файла все вышли то все работает нормально.Как быть в этом случае?
10 ответов

NV-S

NV-S,как вариант, разрешите совместный достпу к файлу.


NV-S

А как это сделать?


NV-S

Эту проблему я решил. Теперь новая возникла:При открытии файла с помощью Workbooks.Openпредлагается вариант сохранить этот файл под другим именем.Я не собираюсь в открывающейся файл вносить никаких изменений, мне нужно из него подцепить данных и закрыть.


NV-S

общий доступ:откройте файлик; в меню "Сервис - Доступ к книге" на первой вкладке поднимите флажок.только вроде у Вас и так с файликом могут работать несколько человек ?


NV-S

> Автор: NV-S> Эту проблему я решил. Теперь новая возникла:> При открытии файла с помощью Workbooks.Open> предлагается вариант сохранить этот файл под другим именем.У метода Close есть параметр ;)))Ну и не нужно забывать о DisplayAlerts


NV-S

а если так
Public Function import(sFN As String) As Boolean
Dim xlsApp As Object

 On Error GoTo L_Err 
 Set xlsApp = CreateObject("Excel.Application")
 xlsApp.Visible = False
 ...
 With xlsApp
 .Workbooks.Open sFN
 ...
 End With
 
L_Exit:
 xlsApp.ActiveWorkbook.Close False
 xlsApp.Quit
 Set xlsApp = Nothing
L_Err: MsgBox Err.Description & " (" & Err.NUMBER & ")", vbExclamation, "import": GoTo L_Exit
End Function


NV-S

> Автор: by-passА если по каким-то причинам объект екселя не создался?Ситуация редкая, но я один раз на это попался.


NV-S

Явка была провалена?)MsgBox выскочит. Jah loves you.


NV-S

> Автор: Antonariy> Явка была провалена?)Да нет, система была "голая", только, что мою же поставленная А тут я, весь в белом со своей программой > MsgBox выскочит.Кстати да, это я недочитал, привык по другому писать обработку ошибок.нет екселя, а от его имени идет попытка закрыть активную книгу, которая, кстати может быть и не открыта вовсе.И кстати с тех самых пор стал инициацию екселя делать отдельной функцией, что-бы поносу не так больно щелкало :)> Jah loves you.Кстати, хотел спросить, что эта за трава у тебя такая зелёная?- Нет, ну интуитивно, я конечно догадываюсь, но хотелось бы уточнить (с) КВН


NV-S

by-pass СПАСИБО ТЕБЕ. ВСЕ ЗАРАБОТАЛО :-)