Question

Excel中VB编程中如何判断文件是否已经打开的问题

有如下代码:
Workbooks.Open (""c:\1.xls)
如果该文件未打开则没有什么问题,但如果已经打开了,会跳出一个对话框,让我确认是否再次打开该文件,很麻烦
我的问题是是否有办法让程序先检查该文件是否已经打开呢?
当然前提是不能使用错误跳转语句
最好把所需代码写的详细点
多谢了

Answer 1

Option Explicit

Sub 宏1()
'
' 宏1 Macro
' user 记录的宏 2011-5-1
'
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name = "技巧.xls" Then Exit For
Next wb
If wb.Name <> "技巧.xls" Then Workbooks.Open ("技巧.xls")
End Sub