Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / не могу открыть файл, из которого мне нужно подтянуть данные / 11 сообщений из 11, страница 1 из 1
11.08.2009, 11:52
    #36136587
NV-S
NV-S
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу открыть файл, из которого мне нужно подтянуть данные
Добрый день, ситуация такая, мне нужно из файла взять определенные данные с помощью макроса.
Этот файл находится в сети и им постоянно кто-то пользуется.
Если я использую функцию

Workbooks.Open FileName:=F_Name_8

то вылезает ошибка Error 1004

Если из этого файла все вышли то все работает нормально.
Как быть в этом случае?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2009, 14:12
    #36137127
FAndrew
FAndrew
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу открыть файл, из которого мне нужно подтянуть данные
NV-S,
как вариант, разрешите совместный достпу к файлу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.08.2009, 11:28
    #36138852
NV-S
NV-S
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу открыть файл, из которого мне нужно подтянуть данные
А как это сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.08.2009, 11:32
    #36138878
NV-S
NV-S
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу открыть файл, из которого мне нужно подтянуть данные
Эту проблему я решил. Теперь новая возникла:
При открытии файла с помощью Workbooks.Open
предлагается вариант сохранить этот файл под другим именем.
Я не собираюсь в открывающейся файл вносить никаких изменений, мне нужно из него подцепить данных и закрыть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.08.2009, 11:33
    #36138886
by-pass
by-pass
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу открыть файл, из которого мне нужно подтянуть данные
общий доступ:
откройте файлик; в меню "Сервис - Доступ к книге" на первой вкладке поднимите флажок.
только вроде у Вас и так с файликом могут работать несколько человек ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.08.2009, 11:35
    #36138898
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу открыть файл, из которого мне нужно подтянуть данные
> Автор: NV-S
> Эту проблему я решил. Теперь новая возникла:
> При открытии файла с помощью Workbooks.Open
> предлагается вариант сохранить этот файл под другим именем.

У метода Close есть параметр ;)))
Ну и не нужно забывать о DisplayAlerts


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.08.2009, 11:38
    #36138912
by-pass
by-pass
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу открыть файл, из которого мне нужно подтянуть данные
а если так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
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
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.08.2009, 11:41
    #36138926
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу открыть файл, из которого мне нужно подтянуть данные
> Автор: by-pass

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


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.08.2009, 12:03
    #36139025
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу открыть файл, из которого мне нужно подтянуть данные
Явка была провалена?)

MsgBox выскочит.


Jah loves you.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.08.2009, 12:14
    #36139071
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу открыть файл, из которого мне нужно подтянуть данные
> Автор: Antonariy
> Явка была провалена?)

Да нет, система была "голая", только, что мою же поставленная
А тут я, весь в белом со своей программой

> MsgBox выскочит.

Кстати да, это я недочитал, привык по другому писать обработку ошибок.
нет екселя, а от его имени идет попытка закрыть активную книгу, которая, кстати может быть и не открыта вовсе.

И кстати с тех самых пор стал инициацию екселя делать отдельной функцией, что-бы поносу не так больно щелкало :)

> Jah loves you.
Кстати, хотел спросить, что эта за трава у тебя такая зелёная?
- Нет, ну интуитивно, я конечно догадываюсь, но хотелось бы уточнить (с) КВН


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.08.2009, 20:14
    #36140436
NV-S
NV-S
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не могу открыть файл, из которого мне нужно подтянуть данные
by-pass СПАСИБО ТЕБЕ. ВСЕ ЗАРАБОТАЛО :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / не могу открыть файл, из которого мне нужно подтянуть данные / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]