怎样在AutoCAD的VBA中判断一个EXCEL文件是否已打开

ahlzl

我在写VBA时碰到这个问题:要判断一个EXCEL文件(如:C:\1.xls)是否已打开,若已打开则激活,不然则将其打开.看来是很简单的问题,我却总写不好.请各位高手多多指教,先谢谢了!

efan2000

思路是当文件以锁定方式打开时，如果文件已经打开就会出错。

2. 
   
3. Sub test()
   
4.     If IsFileOpened("d:\accountlist.xls") Then
   
5.         MsgBox "文件已经打开！"
   
6.     End If
   
7. End Sub
   
8. 
   
9. Function IsFileOpened(ByVal FileName As String) As Boolean
   
10.     IsFileOpened = True
    
11.    
    
12.     ' 使用锁定方式打开文件
    
13.     On Error GoTo ErrTrap
    
14.     Open FileName For Binary Lock Read Write As #1
    
15.     IsFileOpened = False
    
16.     Close #1
    
17.     Exit Function
    
18.    
    
19. ErrTrap:
    
20.     Close #1
    
21.     On Error GoTo 0
    
22. End Function
    

<br /> Sub test()<br />     If IsFileOpened("d:\accountlist.xls") Then<br />         MsgBox "文件已经打开！"<br />     End If<br /> End Sub<br /> <br /> Function IsFileOpened(ByVal FileName As String) As Boolean<br />     IsFileOpened = True<br />     <br />     ' 使用锁定方式打开文件<br />     On Error GoTo ErrTrap<br />     Open FileName For Binary Lock Read Write As #1<br />     IsFileOpened = False<br />     Close #1<br />     Exit Function<br />     <br /> ErrTrap:<br />     Close #1<br />     On Error GoTo 0<br /> End Function<br />

ahlzl

谢谢efan大师!
我还有个问题:我在你的代码中加了一行,想激话这个EXCEL文件,结果出错.(已正确引用)

2. 
   
3. Sub test()
   
4. 
   
5.     If IsFileOpened("c:\2.xls") Then
   
6.         MsgBox "文件已经打开！"
   
7.         [color=red]Workbooks("c:\2.xls").Activate[/color]
   
8.     End If
   
9. End Sub
   
10. 
    
11. Function IsFileOpened(ByVal FileName As String) As Boolean
    
12.     IsFileOpened = True
    
13.    
    
14.     ' 使用锁定方式打开文件
    
15.     On Error GoTo ErrTrap
    
16.     Open FileName For Binary Lock Read Write As #1
    
17.     IsFileOpened = False
    
18.     Close #1
    
19.     Exit Function
    
20.    
    
21. ErrTrap:
    
22.     Close #1
    
23.     On Error GoTo 0
    
24. End Function
    

<br /> Sub test()<br /> <br />     If IsFileOpened("c:\2.xls") Then<br />         MsgBox "文件已经打开！"<br />         [color=red]Workbooks("c:\2.xls").Activate[/color]<br />     End If<br /> End Sub<br /> <br /> Function IsFileOpened(ByVal FileName As String) As Boolean<br />     IsFileOpened = True<br />     <br />     ' 使用锁定方式打开文件<br />     On Error GoTo ErrTrap<br />     Open FileName For Binary Lock Read Write As #1<br />     IsFileOpened = False<br />     Close #1<br />     Exit Function<br />     <br /> ErrTrap:<br />     Close #1<br />     On Error GoTo 0<br /> End Function<br />

efan2000

Workbooks后面的参数必须是一个索引值或者名称（注：名称一般是不包含路径的文件名称），如：2.xls。就是在标题栏上显示的。

ahlzl

to efan大师:我把Workbooks("c:\2.xls").Activate改为Workbooks("2.xls").Activate,还是不行.

efan2000

1、能不能说明一下运行的环境，是在AutoCAD中运行，还是在Excel中执行。
2、是不是程序运行错误。
3、菜单“工具”-选项-视图中的任务栏中的窗口有没有去掉打勾，即任务栏上只能显示一个Excel的图标。

ahlzl

我的问题还没解决啊!我这样又写了一段代码:

2. 
   
3. Sub CAD_excel()
   
4. '先引用EXCEL
   
5. Dim ex As Excel.Application
   
6. Dim wk As Workbook
   
7. Dim wc As Worksheet
   
8. Set wk = ex.Workbooks("2.xls")   '该文件已先打开
   
9. Set wc = wk.Worksheets("sheet1")
   
10. wc.Cells(1, 1) = 2
    
11. End Sub

<br /> Sub CAD_excel()<br /> '先引用EXCEL<br /> Dim ex As Excel.Application<br /> Dim wk As Workbook<br /> Dim wc As Worksheet<br /> Set wk = ex.Workbooks("2.xls")   '该文件已先打开<br /> Set wc = wk.Worksheets("sheet1")<br /> wc.Cells(1, 1) = 2<br /> End Sub

还是出错!Set wk = ex.Workbooks("2.xls")
高手啊,快来帮帮我啊!

在efan大师的指导下,搞定了!在此再次表示感谢!!!