Create Excel Application dynamically in vb6

[cycleinmars]

hello guys ,
Just found the way to create a excel application using vb6 .

Dim AppXls As Excel.Application
Dim ObjWb As Excel.Workbook
Dim objws As Excel.Worksheet

Set AppXls = CreateObject("Excel.Application")
Set ObjWb = AppXls.Workbooks.Add
Dim a As String

a = "newexel.xls"
ObjWb.SaveAs (App.Path & "\" & a & "")
ObjWb.Close (SaveChanges = True)

well this is for starters like me.