Hi all,
i write a export excel function, i want to exported the excel not call book1 , how can i do to change the excel file name ?
i mean change the Workbooks.name thank you ~~~

Dim XL As Excel.Application
Dim WB As Excel.Workbook
Dim Sheet As Excel.Worksheet



                XL = CreateObject("Excel.Application")
                XL.Visible = True

 

                WB = XL.Workbooks.Add
                Sheet = WB.ActiveSheet


XL.Visible = True

                XL.UserControl = True

                Sheet = Nothing

                WB = Nothing

                XL = Nothing