ztool

Ferramenta de lista de problemas

 On Error GoTo ErrorHandler

Dim xlapp As Excel.Application

Set xlapp = GetObject(, "Excel.Application")

'xlapp.Visible = Verdadeiro

 Debug.Print xlapp.Workbooks.Count
For i = 1 To xlapp.Workbooks.Count
    Debug.Print xlapp.Workbooks(i).Name
Next

Set xlapp = Nothing

ErrorHandler: Set xlapp = CreateObject("Excel.Application") Exit Sub ' xlappWorkbooks.Open FileName:=Application.GetOpenFilename("Arquivos Excel ( . ), Arquivos Excel( . )", , "打开新的工作簿")