VB中不引用EXCEL版本时出错!

[w1984721]

'Dim XlsApp As New Excel.Application
' Dim XlsSheet As New Excel.Worksheet
' Dim XlsBook As New Excel.Workbook
'Set XlsApp = New Excel.Application
' Set XlsBook = XlsApp.Workbooks.Open(D:\测风塔方位.xls)
'Set XlsSheet = XlsBook.Worksheets(2)
上面是引用Microsoft Excel11.0 ObjectLibrary,运行没问题。

但是下面不引用出错。
Dim XlsApp As Object
Dim XlsBook As Object
Dim XlsSheet As Object

Set xlApp = CreateObject("excel.application")
Set XlsBook = XlsApp.Workbooks.Open("D:\测风塔方位.xls")、这行出错“对象变量或with未设置”
Set XlsSheet = xlBook.Worksheet(1)

请各位高手解决。
由于EXCEL有很多版本，所以不想用引用。不知还有什么解决办法.

[w1984721]

[Quote=引用 1 楼 jhone99 的回复:]
参考
http://topic.csdn.net/t/20050810/20/4201549.html
[/Quote]
麻烦写出代码来，我是新手。

[jhone99]

参考
http://topic.csdn.net/t/20050810/20/4201549.html

[三断笛]

set XlsBook=CreateOjbect("Excel.Workbook")
Set XlsBook = XlsApp.Workbooks.Open("D:\测风塔方位.xls")、这行出错“对象变量或with未设置”