春雨 发表于：2010-03-18 08:09:05
各位老师，早上好。昨天在此请教了一个问题，就是“
仿叶海峰老师的帖子用SQL语句对mdb表进行导出到Excel”（贴子地址http://www.accessoft.com/bbs/showtopic.asp?id=7833），得到了王樵民老师的热情帮助，在此表示感谢，按照王老师的指导已解决问题，今天我又发现了另一个问题，如果导出的EXCEL文件已经存在，就会报错“运行时错误‘3010’，表已存在”。如果导出的EXCEL文件已经打开就更不行了，请教各位老师，如果来解决这个问题。
下面的程序如果文件存在就删除，然后导出，当用Excel打开时，我也不知如何办，就提示关闭Excel。
Private Sub 用SQL语句对mdb表进行导出到Excel_Click()
Dim strsql As String
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists("c:\a.xls") Then
On Error GoTo err1
fs.DeleteFile ("c:\a.xls")
End If
strsql = "Select Sm.ID, Sm.单位 INTO [excel 8.0;database=c:\a.xls].[sheet2] FROM Sm"
DoCmd.RunSQL (strsql)
Exit Sub
err1:
If Err.Number = 70 Then
q = MsgBox("该文件已经打开，请关闭Excel系统", vbOKCancel, "该文件已经打开")
If q = 1 Then
fs.DeleteFile ("c:\a.xls")
End If
End If
End Sub
总记录：1篇 页次：1/1 9 1 :
