dim excel
set excel = createobject("excel.application")
excel.Workbooks.Add
excel.Save path & name & ".xls"
end Sub
createExcel "c:\","my" '這裏是調用子過程生成指定路徑下指定名字的excel文件