怎么用vb判断某个excel文件是否打开

On Error Resume Next
Name "c:\test.xls" As "c:\test2.xls"
if Err.Number=75 then
msgbox "文件已复打开！"
else
On Error Resume Next
Name "c:\test2.xls" As "c:\test.xls"
endif
这个应制该是够简单的了吧？知不用后台打开Excel程序来判断。道

Workbooks("XXXX.xls").Close False/True 将XXXX.xls换成你要关闭的文件名（必须确保已经打开），如果不保存关闭，则参数用False，反之用TRUE

Visual Basic开发工具模式可以直接从Excel表格中进入，不需要另外打开。

具体步骤百：

1、在电脑上桌面上找到Excel表格图标，双击打开。

2、打开Excel软件后，点度击左上角按钮。

3、点击后会弹出一个菜单，在菜单中点回击Excel选项按钮。

4、然后在弹出的对话框中勾选自定义功能区中的“开发工具”。

5、然后点击右下方确定按钮。

6、点击确定后，会返回Excel页面。

7、然后在Excel上方的导航栏中点击开发工具按钮。

8、然后在开发工具页面，点击Visual Basic选项。

9、点击后就会进入Visual Basic开发模式。答

10、点击左侧导航栏中的Excel中的sheet表格，就可以在Visual Basic中打开了。

Q1
在打开工作薄来之前，可以用这个方法来源查看工作薄是否打
on error resume next
set wk=xlapp.workbooks("test")
if err then xlapp.workbooks.open("d\test.xls")
on error goto 0

Q2
第二个问题，可用百SAVEAS方法，关键是构建一个新文件名，并且这个文度件名在当前目录问并不存在,下面代码仅答供参考，可以变化很大
k=1
curpath="d:\"
do
if dir("test"). & K & ".xls")<>"" then
.......saveas
exit do
k=K+1
loop