系统换成了WIN8后，代码就出了问题，怎样解决

我的系统原来是XP,下面代码运行得很快，也不出问题，现在换成了WIN8，却不能运行了。现请教各位协助解决

颜色部分我只把F盘改成了D盘（电脑已无F盘才改），这是窗体上的按钮，当数据筛选后，把子窗体的数据导出插入到EXECL文件中

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("D:\克拉玛依物资数据库\材料全部明细缺口.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次数据文件导出已完成,再提示后面操作