弱弱的问：VB调用EXCEL中的一个问题！！

Question

今天第一次用VB，一个小问题，不知到哪里查，这里先行谢过各位过路的大虾！！
其中有一端：
Dim xlApp As Excel.Application
Dim xlBook1, xlBook2 As Excel.Workbook
Dim xlSheet1, xlSheet2 As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook1 = xlApp.Workbooks.Open("F:\TEST\绘图数据.xls") '打开已经存在的要存的EXCEL工件簿文件
Set xlBook2 = xlApp.Workbooks.Open("D:\Documents and Settings\user\桌面\基线矫正data第2次\Stef290403_A1_Mag_Avr_.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet1 = xlBook1.Worksheets("Sheet1") '设置活动工作表
Set xlSheet2 = xlBook2.Worksheets("Sheet1") '设置活动工作表请问用什么命令设xlBook1为工作簿而又不用打开EXCEL文件的？？

Answer 1

createobject改成getobject，可以调用excel而不显示。

Answer 2

设xlBook1为工作簿的命令不用OPEN，改用什么呢？请问。

Answer 3

首先我要指出的是：Dim xlBook1, xlBook2 As Excel.Workbook
Dim xlSheet1, xlSheet2 As Excel.Worksheet这样定义结果是 xlBook1和xlSheet1 为Variant ，虽然在这段程序不会有任何问题，但这是一个要注意的地方,VB不支持那种方便的定义用什么命令设xlBook1为工作簿???你不打开一个文件就为新建工作薄了，如果你要新建你根本不用打开，而xlBook1已经为工作簿Look:Private Sub Command1_Click()
   Dim xlApp As New Excel.Application
   Dim xlBook1 As Excel.Workbook 
   Set xlBook1 = xlApp.Workbooks.Add
   xlApp.Visible = True
   Set xlBook1 = Nothing
   Set xlApp = Nothing
End Sub