主题：excel 与 vba

• 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
  

如帮助文件里的这些代码,,在运行到第二行的时候就出现以下错误,求解答
此主题相关图片如下：搜狗截图20140511011705.jpg

我刚测试了下，我的没有问题哦。

 这个原因：自己处理一下即可。

1、第一招：

http://www.cnblogs.com/bile/p/3520439.html

2、第二招：

桌面右击foxtable启动快捷方式，选择“以管理员身份运行”

3、第三招：

开始----运行----输入word 2003的安装路径，例如 "C:\Program Files\Microsoft Office\OFFICE11\winword.exe" /regserver 注意/符号前面有一个空格，其中"C:\Program Files\Microsoft Office\OFFICE11\winword.exe" 是word 2003的安装程序的路径，参数regserver表示注册的意思！
运行后，会启动Office 2003的安装程序，进行修复，重新注册。
word 2007为默认的启动程序的方法类同，可以执行 开始----运行----"D:\Program Files\Microsoft Office\Office12\winword.exe" /regserver