ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / не могу открыть файл, из которого мне нужно подтянуть данные
11 сообщений из 11, страница 1 из 1
не могу открыть файл, из которого мне нужно подтянуть данные
    #36136587
NV-S
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NV-S
Гость
Добрый день, ситуация такая, мне нужно из файла взять определенные данные с помощью макроса.
Этот файл находится в сети и им постоянно кто-то пользуется.
Если я использую функцию

Workbooks.Open FileName:=F_Name_8

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

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

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


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

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


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

MsgBox выскочит.


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

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

> MsgBox выскочит.

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

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

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


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


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