vb保存excel

Question

vb中另存为是这个：objWorkBook.SaveAs ("c:\001.xls")
想每次保存都自动重命名，如下次是002.xls，而不是覆盖以前的，
或者弹出一个重命名对话框也可以，我看了半天不会，希望高手解决！
代码说的详细点，少了我看不懂，哈哈
解决的追加30分！

Answer 1

我这个保证你测试通过。你按我的做：新建一个Excel，保存他到桌面（当然只需要保存这一次，以后就是自动的啦），文件名就是1.xls,在这个文件里，建一个按钮，叫做CommandButton1。他的代码是：
Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & CStr(Val(Replace(ActiveWorkbook.FullName, ActiveWorkbook.Path & "\", "")) + 1) & ".xls"
End Sub
这样，你每次单击，就会在那个路径（也就是桌面，当然你可以第一次保存的时候选择别的路径，那么以后自动保存的时候就在那个路径）自动生成2.xls,3.xls…………我测试通过的。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
当然，你的原意肯定是不要按钮的，我这里只是提供一下测试，让你能够清晰的看到效果，你把我这个代码的核心
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & CStr(Val(Replace(ActiveWorkbook.FullName, ActiveWorkbook.Path & "\", "")) + 1) & ".xls"
相应的弄到你的代码里，就OK了。

Answer 2

i=1
i=i+1
r=format(trim(str(i)),"000")
r="c:\"+r+".xls"
objWorkBook.SaveAs (r)

Answer 3

用File.Exists()来判断是否存在文件.

或者用open去打开目标文件
如果文件不存在自然报错，用vb的错误处理代码处理也可以达到这个效果。