Excel VBA ——如何导出数据到excel表格

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 电子表格