创建excel文件
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了创建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宸ヤ綔琛?
Set exlworksheet = exlapp.Worksheets.Add
‘濡傛灉excel瀛樺湪灏辨槸鐢╯ave锛屽鏋滄柊澧瀍xcel鍒欑敤saveas
exlworkbook.SaveAs(excelpath)
‘鍏抽棴excel宸ヤ綔绨?
exlworkbook.Close
‘閫€鍑篹xcel瀵硅薄
exlapp.Quit
Set exlapp =Nothing
Set exlworkbook =Nothing
Set exlworksheet =Nothing
End Sub
以上是关于创建excel文件的主要内容，如果未能解决你的问题，请参考以下文章