主题：[求助]MSExcel.Application 服务器出现意外情况

本人在测试帮助中一段代码时，出现如图所示错误，发现在执行“Wb.SaveAs("d:\123.xls")”时出错。请问如何解决。

注：本人电脑系统:XP ,execl2003  ,net20sp2

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
Wb.WorkSheets(1).name = "hhh"
Wb.WorkSheets(1).range("A1").Value = "hhh123"
Wb.SaveAs("d:\123.xls")
App.Quit

此主题相关图片如下：未命名.bmp