Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Повторное открытие файла
 
#1
28.12.2008 22:27:05
Как сделать так чтобы не выводилось сообщение о повторном открытии файла и при этом уже открытый ранее файл не обновлялся. (прошу макрос)
 
 
 
#2
28.12.2008 23:37:17
Не совсем понятно, а точнее ничего не понятно. Вы пытаетесь открыть один и тот же файл дважды? Т.е. хотите открыть файл, который уже открыт?
 
 
 
#3
29.12.2008 00:20:08
Sub Макрос1()  
Dim iFileName As String  
 
   iFileName = "Пример.xls" 'имя вашего файл  
   If IsWorkbookOpen(iFileName) Then  
       MsgBox "Книга " & iFileName & " уже открыта!", 48, ""  
   Else  
       MsgBox "Книга " & iFileName & " не открыта!", 48, ""  
   End If  
End Sub  
 
Private Function IsWorkbookOpen(wbName As String) As Boolean  
'   Returns TRUE if the workbook is already opened  
   On Error Resume Next  
   With Workbooks(wbName): End With  
   IsWorkbookOpen = (Err = 0)  
End Function
 
 
 
#4
29.12.2008 00:23:00
Кто-нибудь объъяснит о чём речь?
 
 
 
#5
29.12.2008 01:16:01
Согласен с Юрием, что просто повторное открытие файла - это не есть хорошо. Т.к. все не сохранённые данные удаляться при повторном открытии.  
Если вам надо проверить открыта ли уже нужная вам книга, чтобы случайно не открыть её ещё раз, я вам дал код выше.  
Если вы отдаёте себе отчёт и всё-таки хотите повторно открыть уже открытый файл, то  
 
Sub Макрос1()  
   Application.DisplayAlerts = False  
   Workbooks.Open Filename:="C:\Temp\Пример.xls", UpdateLinks:=False  
End Sub
 
 
 
#6
29.12.2008 10:43:27
{quote}{login=Pavel55}{date=29.12.2008 01:16}{thema=}{post}Согласен с Юрием, что просто повторное открытие файла - это не есть хорошо. Т.к. все не сохранённые данные удаляться при повторном открытии.  
Если вам надо проверить открыта ли уже нужная вам книга, чтобы случайно не открыть её ещё раз, я вам дал код выше.  
Если вы отдаёте себе отчёт и всё-таки хотите повторно открыть уже открытый файл, то  
 
Sub Макрос1()  
   Application.DisplayAlerts = False  
   Workbooks.Open Filename:="C:\Temp\Пример.xls", UpdateLinks:=False  
End Sub{/post}{/quote}  
 
 
Уважаемый Pavel55  
Вопрос состоит в том, что если файл «Пример.xls» открыт , то при повторном его открытии не должно появлялось сообщение с предложением заменить файл  или нет и далее замена уже открытого файла не должна происходить. В предложенном коде замена почему то происходит.
 
 
 
#7
29.12.2008 11:24:19
У меня, если пытаюсь открыть уже открытый файл, никакого сообщения вообще не появляется. Просто становится активным запрашиваемый.
 
 
 
#8
29.12.2008 12:08:30
{quote}{login=Стас}{date=29.12.2008 10:43}{thema=Re: Повторное открытие файла}{post}{quote}{login=Pavel55}{date=29.12.2008 01:16}{thema=}{post}Согласен с Юрием, что просто повторное открытие файла - это не есть хорошо. Т.к. все не сохранённые данные удаляться при повторном открытии.  
Если вам надо проверить открыта ли уже нужная вам книга, чтобы случайно не открыть её ещё раз, я вам дал код выше.  
Если вы отдаёте себе отчёт и всё-таки хотите повторно открыть уже открытый файл, то  
 
Sub Макрос1()  
   Application.DisplayAlerts = False  
   Workbooks.Open Filename:="C:\Temp\Пример.xls", UpdateLinks:=False  
End Sub{/post}{/quote}  
 
 
Уважаемый Pavel55  
Вопрос состоит в том, что если файл «Пример.xls» открыт , то при повторном его открытии не должно появлялось сообщение с предложением заменить файл  или нет и далее замена уже открытого файла не должна происходить. В предложенном коде замена почему то происходит.{/post}{/quote}Тогда проверяйте его на открытие:  
 
If Not IsWorkbookOpen("Пример.xls") Then Workbooks.Open Filename:="C:\Temp\Пример.xls"  
 
Private Function IsWorkbookOpen(wbName As String) As Boolean  
' Returns TRUE if the workbook is already opened  
On Error Resume Next  
With Workbooks(wbName): End With  
IsWorkbookOpen = (Err = 0)  
End Function  
Вариантов проверки на открытие (функция IsWorkbookOpen) много, смотрим их подробнее здесь: http://www.msoffice.nm.ru/faq/macros/workbooks2.htm#faq93
 
 
 
#9
29.12.2008 12:09:35
Забыл залогиниться :)
Bite my shiny metal ass!      
 
 
 
Страницы: 1
Читают тему
Наверх