打印Excel问题？

[wnglish]

我在模块中定义：Option Explicit
Public Ap As New Application
Public Book As Workbook
Public Sub PrintExcel
Set Book = Ap.Workbooks.Open(App.Path & "\ftgl.xls")

我在运行时出现Ap未定义对象变量或with变量块为定义，book的值也时空，这是怎么回事啊，可能什么有问题？请高手分析一下。

[luckii1]

是不是要这样呀？
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

[j4sxw]

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
如果还出错，看看有没有引用ms word9.0 libarily