我想在VB内使用,打开一个EXCEL文件,并显示打印...

Question

在一事件内:On Error GoTo err_handle1
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet1 As Excel.WorksheetSet xlApp = CreateObject("EXCEL.APPLICATION")
Set xlBook = xlApp.Workbooks.Open("D:\test.xls")
Set xlSheet1 = xlBook.Worksheets(1)xlSheet1.Activate
xlSheet1.PrintPreview
xlApp.DisplayAlerts = False
xlApp.Quit
Exit Sub
    
err_handle1:
    MsgBox Err.Description可是....总是弹出一个错误提示...什么busy,switch to的...大侠帮我....

Answer 1

.....FT.....原来少了一句:
xlApp.visible=true通过了...