Открытие файла макросом

Горбунков

Гость

27.08.2008 18:51:51

Макрос из файла 1.xls открывает файл 2.xls. Если во время выполнения макроса файл 2.xls закрыт, то все в порядке. Но если он открыт, то выдается сообщение об ошибке. Как обойти эту проблему?
Часть кода которым открывается файл следующая:

...
ChDir ThisWorkbook.Path
Workbooks.Open "2.xls"
Windows("1.xls").Activate
...
Заранее спасибо.

Юрий М Гость	#2 27.08.2008 19:12:10 Попробуйте использовать Application.DisplayAlerts = False в начале кода. Затем верните в исходное.

Pavel55 Гость	#3 27.08.2008 20:50:57 Sub Макрос1() Dim Wb2 As Workbook On Error Resume Next Set Wb2 = Workbooks("2.xls") If Err <> 0 Then Err.Clear Set Wb2 = Workbooks.Open(Filename:="C:\Temp\2.xls") 'укажите путь к файлу Else MsgBox "Книга 2.xls уже открыта!", 64, "" End If On Error GoTo 0 End Sub

Горбунков

Гость

28.08.2008 10:00:05

Ув. Юрий М. Ваш вариант мне подходит, при первой попытке прошло удачно.

Ув. Pavel55. Честно даже не пытался опробовать Ваш код, т.к. он немного великоват по сравнению с предыдущим, но не это главное.
Workbooks.Open(Filename:="C:\Temp\2.xls") 'укажите путь к файлу
У меня путь к файлу должен определяться из текущей папки (той где находится сам файл с макросом), и папка эта довольно часто перемещается (или переименовывается) - но оба файла всегда находятся в одной директории. Поэтому жестко привязывать файл к определенному адресу, в моем случае, не имеет смысла.

Юрий М, Pavel55 спасибо за помощь.

Pavel55

Гость

28.08.2008 10:25:10

Ну и хорошо, что у вас всё получилось.

А я на всякий случай выложу код, который будет брать второй файл из той же папки, где и первый, без указания точного адреса местоположения. Может кому-нибудь другому пригодится

Sub Макрос1()
Dim Wb2 As Workbook
On Error Resume Next
Set Wb2 = Workbooks(ThisWorkbook.Path & "/" & "2.xls")
If Err <> 0 Then
Err.Clear
Set Wb2 = Workbooks.Open(Filename:=ThisWorkbook.Path & "/" & "2.xls")
Else
MsgBox "Книга 2.xls уже открыта!", 64, ""
End If
On Error GoTo 0
End Sub

Pavel55 Гость	#6 28.08.2008 10:27:27 хм, я в вышеуказанном коде слэши не туда развернул ( / вместо \ ), но всё работает...

Pavel55 Гость	#7 28.08.2008 10:30:25 Вот так будет совсем хорошо ) Sub Макрос1() Dim Wb2 As Workbook On Error Resume Next Set Wb2 = Workbooks(ThisWorkbook.Path & Application.PathSeparator & "2.xls") If Err <> 0 Then Err.Clear Set Wb2 = Workbooks.Open(Filename:=ThisWorkbook.Path & Application.PathSeparator & "2.xls") Else MsgBox "Книга 2.xls уже открыта!", 64, "" End If On Error GoTo 0 End Sub

Читают тему