VB打开EXCEL两个工作簿的问题

[ccbbcc]

先上代码：
Private Sub Form_Load()
Dim XlApp As New Excel.Application '使用 Excel 对象删除指定行
Dim XlBook As New Excel.Workbook
Dim XlSheet As New Excel.Worksheet


Set XlApp = CreateObject("Excel.Application") '创建EXCEL对象
XlApp.Visible = True
XlApp.Caption = "应用程序调用 Microsoft Excel"
Set XlBook = XlApp.Workbooks.Add
Set XlBook = XlApp.Workbooks.Open(App.Path & "\Book1.xlsx")
Set XlSheet = XlBook.Worksheets(1)

ActiveCell.AddComment "VB好犀利！"
MsgBox ActiveCell.Comment.Text
End Sub
打开一个EXCEL工作簿。
我意图是打开一个book1.xlsx工作簿，可是一下子打开了两个。
OFFICE是2010.
Book1.xlsx是这样的：

另一个是这样的：

请教高手，如何只打开一个？打开那个Book1.xlsx。谢谢！

[舉杯邀明月]

你自己的代码问题！

Set XlBook = XlApp.Workbooks.Add
　上面这句“新建”一个空白工作簿
Set XlBook = XlApp.Workbooks.Open(App.Path & "\Book1.xlsx")
　上面这句“打开”一个磁“盘文件”工作簿

你这样搞的，难道不应该是“两个”吗！！！

[舉杯邀明月]

Set XlBook = XlApp.Workbooks.Add
把这句代码删除就行了啊。

[ccbbcc]

果然好啦。我搞EXCEL是个小菜鸟。

[舉杯邀明月]

噫，你之前发的帖子，不是Office 2013吗，怎么又变成2010了？

难道是2013的问题…………

[舉杯邀明月]

更正一下：
楼上的最后那句是：　难道是2013有问题…………

[ccbbcc]

不是啊。我2013和2010都装了，都好用，只是2013那个在VB引用里不显示。