谢谢，可是我怎样做都是还不能达到下列要求，请看下面的代码，想把红色部位代码路径改为与数据库同一文件夹下，怎样写能能达到打开文件，然后插入数据？
Private Sub Command15_Click()
Dim xlApp1 As Excel.Application
Dim xlBook1 As Workbook, xlSheet1 As Worksheet '定义
Set xlApp1 =CreateObject("Excel.Application")
Set xlApp1 = New Excel.Application
'开始第一次的第1个文件数据导出
Set xlBook1 = xlApp1.Workbooks.Open("F:\项目每周统计数据\材料全部明细缺口.xls") '打开要输出的EXECL文件
Set xlSheet1 = xlBook1.Worksheets(1) '这里是插入数据而需要打开上报数据文件中第1个工作表
xlSheet1.Range("A3", "K60000").ClearContents '这里是标注插入数据从A列第3行至DD列60000行之间
Me.xiong0723.Form.Recordset.MoveFirst
'从窗体上把数据导出,但窗体必须要打开
xlBook1.Worksheets(1).Range("A3").CopyFromRecordset
Me.xiong0723.Form.Recordset '这里是完成第1个数据文件的导出
xlBook1.Close '关闭工作薄
xlApp1.Quit '退出后,提示保存文件
Set rst = Nothing '释放内存资源，让计算有更多的空间，通道顺畅。
DoEvents
MsgBox "已完成数据第一次导出,接着第二次数据导出，请稍后........."
'提示第1次数据文件导出已完成,再提示后面操作
End Sub
