sub OutPut() Dim FileTitle, MyPath, MyFullName As String Application.ScreenUpdating = false '關閉表格公式的自動刷新 FileTitle = "待輸出的文件名" Sheets.Add.Name = "OutData" '創建臨時工作表 endline = sheet5.range("$A$65536").end(xlup).row '取得待輸出的工作表的總行數 Sheet5.Range("$A$2:$B$" & endline).Copy Sheets("OutData").Range("A1") '將待輸出的數據存放到臨時工作表 Sheets("OutData").Columns("A:B").EntireColumn.AutoFit '自動分配單元寬度 MyPath = ThisWorkbook.Path '獲取本文件目錄 MyFullName = MyPath & "\" & FileTitle & ".xls" '自動生成文件名稱 Sheets("OutData").Copy '復制OutData工作表的數據 ActiveWorkbook.SaveAs Filename:=MyFullName, FileFormat:=xlExcel8, CreateBackup:=False '生成新的工作簿 ActiveWorkbook.Close '關閉新生成的工作簿 Application.DisplayAlerts = False '關閉確認提示框 Sheets("OutData").Delete '刪除臨時表 Application.DisplayAlerts = True '打開確認提示框 Application.ScreenUpdating = True '開啟表格公式的自動刷新 end sub
最近忙於整理數據並輸出，特此將常用的核心代碼分享出來，供有需要的人調用。
————————————————————————————————————————————————————————
（2019.10.14更新）
FileFormat:=xlExcel8 這里是指定導出的格式，常見格式如下：
xlAddIn 18 Microsoft Office Excel 加載項
xlAddIn8 18 Excel 2007 加載項
xlCSV 6 CSV
xlCSVMac 22 Macintosh CSV
xlCSVMSDOS 24 MSDOS CSV
xlCSVWindows 23 Windows CSV
xlCurrentPlatformText -4158 當前平台文本
xlDBF2 7 DBF2
xlDBF3 8 DBF3
xlDBF4 11 DBF4
xlDIF 9 DIF
xlExcel12 50 Excel 12
xlExcel2 16 Excel 2
xlExcel2FarEast 27 Excel2 FarEast
xlExcel3 29 Excel3
xlExcel4 33 Excel4
xlExcel4Workbook 35 Excel4 工作簿
xlExcel5 39 Excel5
xlExcel7 39 Excel7
xlExcel8 56 Excel8
xlExcel9795 43 Excel9795
xlHtml 44 HTML 格式
xlIntlAddIn 26 國際加載項
xlIntlMacro 25 國際宏
xlOpenXMLAddIn 55 打開 XML 加載項
xlOpenXMLTemplate 54 打開 XML 模板
xlOpenXMLTemplateMacroEnabled 53 打開啟用的 XML 模板宏
xlOpenXMLWorkbook 51 打開 XML 工作簿
xlOpenXMLWorkbookMacroEnabled 52 打開啟用的 XML 工作簿宏
xlSYLK 2 SYLK
xlTemplate 17 模板
xlTemplate8 17 模板 8
xlTextMac 19 Macintosh 文本
xlTextMSDOS 21 MSDOS 文本
xlTextPrinter 36 打印機文本
xlTextWindows 20 Windows 文本
xlUnicodeText 42 Unicode 文本
xlWebArchive 45 Web 檔案
xlWJ2WD1 14 WJ2WD1
xlWJ3 40 WJ3
xlWJ3FJ3 41 WJ3FJ3
xlWK1 5 WK1
xlWK1ALL 31 WK1ALL
xlWK1FMT 30 WK1FMT
xlWK3 15 WK3
xlWK3FM3 32 WK3FM3
xlWK4 38 WK4
xlWKS 4 工作表
xlWorkbookDefault 51 默認工作簿
xlWorkbookNormal -4143 常規工作簿
xlWorks2FarEast 28 Works2 FarEast
xlWQ1 34 WQ1
xlXMLSpreadsheet 46 XML 電子表格