datagrid导出数据到excle,能覆盖已有文件吗?

Question

Dim connconn As New ADODB.Connection
connconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\check.mdb;Persist Security Info=False"
connconn.Execute " SELECT 日期,摘要,余额  INTO [Excel 8.0;DATABASE=" & App.Path & "\check.xls].[账单] FROM ch_bank "
connconn.Close
 MsgBox "导出成功，请查看本软件目录下check.xls的银行未达账表"在做这个的时候如果已经存在了那张表,我想覆盖,应该怎么改代码?
或者有其他导出datagrid数据的方法也可以.

Answer 1

当然是删除文件简单啦
dim fs as new filesystemobjectIf Dir("d:\table.xls") = "" Then
    ………………
else
    fs.deletefile "d:\table.xls"
End If

Answer 2

工程==>引用 
MICROSOFT SCRIPTIONG RUNTING

Answer 3

当然是删除文件简单啦
dim fs as new filesystemobjectIf Dir("d:\table.xls") = "" Then
    ………………
else
    fs.deletefile "d:\table.xls"
End If
set fs=new....................
new 后面的代码是什么?

Answer 4

我知道要先删除了
就是 fs.deletefile "d:\table.xls"
但是前面定义 dim fs as new filesystemobject
需要set fs=new....................我想知道set fs=new....................  这里怎么写