先上代码：
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
End Sub
打开一个EXCEL工作簿。
我意图是打开一个book1.xlsx工作簿，可是一下子打开了两个。
OFFICE是2010.
Book1.xlsx是这样的：

另一个是这样的：

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

好像不要这行
Set XlBook = XlApp.Workbooks.Add

谢谢，好了。