VB6.0如何判断excel文件是否已打开？

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

Q1
在打开工作薄之前，可以zhidao用这个方法来查看工作薄是否打
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
楼主想问啥？vbA判断？
sub 判断（）
if a=b then c=1
'if判断 如果a等于b 那么 c=1
end sub

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