新手求助:求个链接EXCEL表格的按扭代码

1.用access链接excel表，得到一个链接表1。

用链接表1生成一个数据透视表窗体。

用代码打开这个窗体

DoCmd.OpenForm "窗体名", acFormPivotTable

2。用以下代码打开EXCEL表格（数据透视表）

Dim xlApp As Excel.Application
Dim xlBook As Workbook, xlSheet As Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("excel文件完整路径.xls")
Set xlSheet = xlBook.Worksheets(1)

要引用microsoft excel 11.0......