Question

I’ve tried something similar to this:

Set kitap = CreateObject("Excel.Application")
If IsXlsOpen() = True Then
    kitap.Application.Quit
End If

.. but didnt work out so I neeed to find how to close all excel files before starting my program in vb6

EDIT: Full code here:

Dim i As Integer
Dim kitap As Object

Dim strcnn As String
Dim cnn As New ADODB.Connection
Dim Cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

Private Sub Form_Load()

    strcnn = "myconn"
    cnn.Open strcnn
    Cmd.ActiveConnection = cnn

End Sub

Public Function dotdate(ByRef elem) As String
    Dim day, month, year As String

    year = Right(elem, 4)
    month = Mid(elem, Len(elem) - 5, 2)
    day = Mid(elem, 1, Len(elem) - 6)

    If Len(day) = 1 Then
        day = "0" & day
    End If

    dotdate = day & "." & month & "." & year

End Function

Public Function IsXlsOpen(wbName) As String
    Dim xl As Excel.Application

    IsXlsOpen = False
    On Error Resume Next
        Set xl = GetObject(, "Excel.Application")

        If Err.Number <> 0 Then Exit Function    
            xl.Workbooks(wbName).Activate    
        If Err.Number = 0 Then IsXlsOpen= True    
End Function

Private Sub Command1_Click()

    Dim i As Integer
    Dim cek As String

    Set kitap = CreateObject("Excel.Application")

    If IsXlsOpen("my.xls") = True Then
    kitap.Application.Quit
    End If

    kitap.Workbooks.Add

    cek = "Select * From blabla"
    rs.Open cek, cnn

    If rs.EOF = True Then
       Situation.Caption = "Situation : EOF"
    Else
       kitap.Cells(i + 1, 1).Value = "ID"
       kitap.Cells(i + 1, 2).Value = "Caption"
      kitap.Cells(i + 1, 3).Value = "Date"
       i = i + 1
       Do While Not rs.EOF
            kitap.Cells(i + 1, 1).Value = rs.Fields("id")
            kitap.Cells(i + 1, 2).Value = rs.Fields("capt")
            kitap.Cells(i + 1, 3).Value = dotdate(rs.Fields("date"))
            rs.MoveNext
            i = i + 1              
        Loop            
        rs.Close                
    End If

    kitap.ActiveWorkbook.SaveAs (App.Path & "\my.xls")
    kitap.Application.Quit
    Situation.Caption = "Situation : Excel Formatted Report Ready."

    Exit Sub

err:
    rs.Close
    Situation.Caption = "Critical Error! : Connection error detected. Please reset action."
End Sub

Answer 1

While I’m more a vbscript and vba guy, a bit more info would help:

• ie what is IsXlsOpen?
• what is your full kitmap code, ie have you opened and closed workbooks?
• do you have any other xl instances open (before or during your code)?.

this link often solves VBA issues, in fixing global references

Note that it is good practice to close/quit workbooks/instances and set them to Nothing, ie in Tushar’s code

 xlWB.Close False
 xlApp.Quit
 Set xlWB = Nothing
 Set xlApp = Nothing