Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel: открытие файла / 4 сообщений из 4, страница 1 из 1
29.08.2006, 17:31:04
    #33950525
Secundra Dass
Secundra Dass
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel: открытие файла
Открываю файл:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub Телефон()
    Dim xlApp As Object, xlBook As Variant, xlSheet As Object
        
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Workbooks.Open ActiveWorkbook.Path & "\телефоны.xls"
    xlApp.Visible = True

End Sub

Проблема в том, что при каждом выполнении программы открывается новая копия файла. Что нежелательно, т.к. прога выполнется по 10-20 раз.

Можно ли как-нибудь проверить, открыт ли файл, и если да, то второй раз не открывать? Или как-то еще выйти из ситуации...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2006, 17:35:08
    #33950541
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel: открытие файла
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Function FileAlreadyOpened(FName As String) As Boolean
    FileAlreadyOpened = False
    For intI =  1  To Workbooks.Count
        If Workbooks(intI).Name Like FName Then
            FileAlreadyOpened = True
        End If
    Next intI
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2006, 17:42:34
    #33950573
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel: открытие файла
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub pr()
    If WorkbookIsOpen("телефоны.xls") Then MsgBox "файл открыт"
End Sub

Private Function WorkbookIsOpen(wbname As String) As Boolean 
    'функция проверки отрыт файл или нет
    Dim OpenBook As Workbook

    On Error Resume Next
    Set OpenBook = Workbooks(wbname)
    If Err =  0  Then
        WorkbookIsOpen = True
        Else: WorkbookIsOpen = False
    End If
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.08.2006, 17:47:40
    #33950594
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel: открытие файла
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub Телефон()
    Dim xlApp As Object, xlBook As Variant, xlSheet As Object
        
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Workbooks.Open ActiveWorkbook.Path & "\телефоны.xls"
    xlApp.Visible = True
    xlApp.Workbooks("телефоны.xls").Close
    Set xlApp = Nothing
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel: открытие файла / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 294ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2184379]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 30ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 207ms
total:  294ms
x
x
Закрыть


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