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

佚名 6年前 (2019-04-22) 随笔 1296人围观抢沙发百度已收录

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:=xlOpenXMLWorkbook, CreateBackup:=False '生成新的工作簿
    ActiveWorkbook.Close   '关闭新生成的工作簿
    
    Application.DisplayAlerts = False '关闭确认提示框
    Sheets("OutData").Delete  '删除临时表
    Application.DisplayAlerts = True '打开确认提示框
    
    Application.ScreenUpdating = True '开启表格公式的自动刷新
end sub