Question

Set xlApp = CreateObject("Excel.Application") 这一步导入excle时出错。 它是什么意识

编程时出错

Answer 1

VB里？没有添加excel引用吧
从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），或者其他版本的，然后选择"确定"。表示在工程中要引用EXCEL类型库。

追问

真心不是很懂

追答

在VB中创建Excel对象时，需要先添加用Excel类型库的引用，方法上面说了。

追问

谢谢啊 但是找不到 Microsoft Excel 11.0 Object Library（EXCEL2003）， 只是找到Microsoft Excel 12.0 Object Library（EXCEL2003）， 可是还是老问题。解决不了

追答

这个引用了就可以使用，是什么错误提示？是在VB里吗？

追问

是VB。。。。就是Set xlApp = CreateObject("Excel.Application") 这一步提示错了

追答

不知道是不是因为没定义变量，一般不影响的，加上看看。
另外，你下面的
set xlbook=xlapp.workbooks.open("E:\h")
不对，应该加上文件名。
我给你一段实例，你单独试下能不能操作你的excel表，把路径、工作簿名、表名，换成你实际上的，试试看。
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "e:\data.xls" '要访问的工作簿路径和名称
SheetName = "sheet1" '指定的要访问的工作表名称
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表
xlSheet.Cells(5, 2) = Text1.Text '给单元格B5赋值
xlSheet.Cells(2, 3) = Text2.Text '给单元格C2赋值
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub

Answer 2

还有可能是Excel打开时有管理员权限，取消管理员权限或者给SolidWorks赋予管理员权限。

Answer 3

重装一下office2007