受注 日语:vb和execl 的问题

我在 Windows 2000 sever 操作系统，office xp和VB6.0的环境开发一个小程序，其中程序中调用了 EXECL, 工程引用的是 Microsoft Excel 10.0 objet Library,在我的机器上可以通过
Set mybook = myexcel.Workbooks.Add '加一个新的BOOK
Set mysheet = mybook.Worksheets(1)
mysheet.Cells.CopyFromRecordset rs4 ' rs4是一个数据库的记录集
If Dir(system_download_yeb + system_shuju_riqi + "_" + jgbm + "_" + tmptime + suiji_ch + ".xls") <> "" Then
Kill system_download_yeb + system_shuju_riqi + "_" + jgbm + "_" + tmpetime + suiji_ch + ".xls"
End If
mybook.SaveAs (system_download_yeb + system_shuju_riqi + "_" + jgbm + "_" + tmptime + suiji_ch + ".xls") ' 保存文件
mybook.Close (True)
myexcel.Quit ' 结束EXCEL对象
Set mybook = Nothing
Set myexcel = Nothing
可以保存Execl文件，但是当我把这程序在操作系统 Windows XP office 2000环境下运行的时候，运行到 mybook.SaveAs (system_download_yeb + system_shuju_riqi + "_" + jgbm + "_" + tmptime + suiji_ch + ".xls") ' 保存文件 就会出现出现下面这样的错误，是不是office的版本造成的，请赐教！！！感谢