Question

VB代码问题

Dim xls As New Excel.Application '声明一个Excel应用程序对象
Dim xbook As New Excel.Workbook '声明一个Excel工作薄对象
Dim xsheet As New Excel.Worksheet '声明一个Excel工作表象
Private Sub Command1_Click()
Set xbook = xls.Workbooks.Add
Set xsheet = xbook.Worksheets(1)
xls.Visible = True
End Sub
我写的这代码运行报错,提示用户定义类型未定义,请问这是什么原因?

Answer 1

在引用中添加这个引用，我运行了你的代码，没有问题，可以打开工作簿。

我的是office 2007,如果你的不是2007，可能不是 Excel 12.0

Answer 2

vb中使用Excel需要先添加Excel控件的。

1) 在VB应用程序中调用Excel，计算机系统中必须安装Excel。从VB5“工程”菜单中选择“引用”
2) 在“引用”对话框中选择Excel类型库："Microsoft Excel9.0 Object Library"。其中Excel9.0是电脑上安装的Excel版本，不同电脑可能不同。

Answer 3

很有可能是没有添加引用

Answer 4

你这是vb.net？哪个.net版本？