VB Forum / COM / February 2004

Hi,
I have a VB program like below. oXLApp, oXLWBook, oXLWSheet are declared as global variables. The function is called by a button click event. In first time, the excel is displayed after executing "oXLApp.Visible = True". Then I saved the excel & close the excel.
But in second time, the excel never show up. I really don't know why?

==================================
' Global variable
Public oXLApp  As Excel.Application
Public oXLWBook As Excel.Workbook
Public oXLWSheet As Excel.Worksheet

'==================================
Public Function genOPReport(frdate, todate) As Boolean
On Error GoTo ErrorHandler

 Set oXLApp = CreateObject("Excel.Application")
  Set oXLWBook = Workbooks.Add
  'oXLApp.Visible = False
  'set oXLWSheet =
   ' Open recordset to enable changes
    Set rstAP = New ADODB.Recordset
   
   
    strSQL1 = "SELECT distinct ane_op_detail.site, ane_op_detail.customer_code, ane_op_detail.style_num " & _
              " FROM ane_sales_detail, ane_op_detail " & _
              " Where ane_op_detail.site = ane_sales_detail.site "

    rstAP.Open strSQL1, Cnxn, adOpenDynamic, adLockPessimistic, adCmdText

    Cnxn.BeginTrans
    recNo = 0
    Do Until rstAP.EOF
       rowno = rowno + 1
       If recNo = 0 Then
          oXLWBook.Sheets.Add
          Set oXLWSheet = oXLWBook.ActiveSheet
          oXLWSheet.Name = "S" + Str(SheetNo)
       End If
       recNo = recNo + 1
       OK = getOPDetail(rstAP!site, rstAP!customer_code, rstAP!style_num, frdate, todate, recNo)
       rstAP.MoveNext
    Loop
    Application.DisplayAlerts = False
    Worksheets("Sheet1").Delete
    Application.DisplayAlerts = True
   
    oXLApp.Visible = True
    oXLApp.Quit
    ' always remember to tidy up before you leave
    Set oXLWSheet = Nothing
    Set oXLWBook = Nothing
    Set oXLApp = Nothing
   
    rstAP.Close
    Set rstAP = Nothing
end function