Sub CreateXLWorkbook()
Dim xlApp As Object ' Excel.ApplicationDim xlWkb As Object ' Excel.WorkbookSet xlApp = CreateObject ("Excel.Application") ' New Excel.ApplicationSet xlWkb = xlApp.Workbooks.AddLet xlApp.Visible = TrueSet xlApp = NothingSet xlWkb = Nothing
End Sub
Nenhum comentário:
Postar um comentário