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

Excel VBA ——如何导出数据到excel表格的更多相关文章

  1. java代码导出数据到Excel、js导出数据到Excel(三)

     jsp内容忽略,仅写个出发按钮:          <button style="width: 100px" onclick="expertExcel()&quo ...

  2. POI操作Excel(批量导出数据/下载excel)

    目录 1.第一个demo:创建工作簿,创建sheet页,创建单元格    2.创建一个时间格式的单元格    3.遍历工作簿的行和列并获取单元格内容    4.文本提取    5.单元格对齐方式    ...

  3. Export GridView Data to Excel. 从GridView导出数据到Excel的奇怪问题解析

    GridView导出函数内容如下 string attachment = "attachment; filename=Contacts.xls";            Respo ...

  4. Python导出数据到Excel表格-NotImplementedError: formatting_info=True not yet implemented

    在使用Python写入数据到Excel表格中时出现报错信息记录:“NotImplementedError: formatting_info=True not yet implemented” 报错分析 ...

  5. 导出数据到Excel表格

    开发工具与关键技术:Visual Studio 和 ASP.NET.MVC,作者:陈鸿鹏撰写时间:2019年5月25日123下面是我们来学习的导出数据到Excel表格的总结首先在视图层写导出数据的点击 ...

  6. Java操作Jxl实现导出数据生成Excel表格数据文件

    实现:前台用的框架是Easyui+Bootstrap结合使用,需要引入相应的Js.Css文件.页面:Jsp.拦截请求:Servlet.逻辑处理:ClassBean.数据库:SQLserver. 注意: ...

  7. 1.ASP.NET MVC使用EPPlus,导出数据到Excel中

    好久没写博客了,今天特地来更新一下,今天我们要学习的是如何导出数据到Excel文件中,这里我使用的是免费开源的Epplus组件. 源代码下载:https://github.com/caofangshe ...

  8. 使用Open xml 操作Excel系列之二--从data table导出数据到Excel

    由于Excel中提供了透视表PivotTable,许多项目都使用它来作为数据分析报表. 在有些情况下,我们需要在Excel中设计好模板,包括数据源表,透视表等, 当数据导入到数据源表时,自动更新透视表 ...

  9. ASP.NET导出数据到Excel 实例介绍

    ASP.NET导出数据到Excel  该方法只是把asp.net页面保存成html页面只是把后缀改为xlc不过excel可以读取,接下连我看看还有别的方式能导出数据,并利用模版生成. 下面是代码 新建 ...

随机推荐

  1. C#读写Excel实践笔记

    使用第三类包:NPOI 介绍 Github地址:https://github.com/tonyqus/npoi,Java POI项目的.NET版. 通过它可以在没有安装Office软件的情况下,快速的 ...

  2. python基础知识11---函数1

    函数 一.背景 在学习函数之前,一直遵循:面向过程编程,即:根据业务逻辑从上到下实现功能,其往往用一长段代码来实现指定功能,开发过程中最常见的操作就是粘贴复制,也就是将之前实现的代码块复制到现需功能处 ...

  3. day02python基本数据类型

    python基本数据类型   基本数据类型(int,bool,str) 1.基本数据数据类型: int 整数 str 字符串. 一般不存放大量的数据 bool 布尔值. 用来判断. True, Fal ...

  4. var entsMapLocation = {……}函数

    var entsMapLocation = { global: { $popupCityBox: $(".ents-map-location-popup-box"), isPosi ...

  5. css 实现 左右div 等高, 同时父级div就是最高的子div的高度

    原文地址:https://www.cnblogs.com/cbza/p/7145384.html 方法一: 通过父级overflow:hidden,  自己设置padding-bottom 和 mar ...

  6. C/C++中的函数指针的使用与总结

    概要: 函数指针介绍 typedef简化函数指针的定义 指向函数的指针的初始化和赋值 通过指针调用函数 函数指针形参 返回指向函数的指针 指向重载函数的指针 参考<C++ Primer> ...

  7. centos7安装nginx,以及使用node测试反向代理

    1.添加nginx的安装源 vi /etc/yum.repos.d/nginx.repo 2.输入下面内容,并保存退出 [nginx] name=nginx repo baseurl=http://n ...

  8. layer弹出层父子页面交互(子页面form表单提交)

    例如:父页面中有数据需要修改,但不需要跳转到下一个页面进行处理 例图:

  9. EXT 获取gird各值

    var cellclick = function (item, td, cellIndex, record, tr, rowIndex, e) { //[ListenerArgument(0, &qu ...

  10. 极速认识RSS!

    在解释RSS是什么之前,让我先来举个栗子. 大家都能在街道看到许多海报栏.在那里,会贴出各种各样最新的消息,比如哪个系要开讲座了.星期二晚上的电影放什么.二手货转让等 等.只要看一下海报栏,就会对学校 ...