创建excel文件

创建excel文件
Sub addexcel(excelpath)
    '定义excel文件对象
    Dim exlapp
    '定义excel工作簿
    Dim exlworkbook
    '定义excel表格
    Dim exlworksheet
    '创建excel对象
    Set exlapp = CreateObject("excel.application")
    '创建excel工作簿
    Set exlworkbook =exlapp.Workbooks.Add
    '创建excel sheet表
    Set exlworksheet = exlapp.Worksheets.Add
    '保存为save,另存为是saveas
    exlworkbook.SaveAs(excelpath)
    '关闭excel工作簿
    exlworkbook.Close
    '退出excel应用
    exlapp.Quit
    Set exlapp =Nothing
    Set exlworkbook =Nothing
    Set exlworksheet =Nothing
End Sub