精华内容
下载资源
问答
  • 将工作薄每一个工作表导出为PDF文件。   Sub PDF() Dim asy As Worksheet Dim spath As String spath = Excel.ThisWorkbook.Path For Each asy In Excel.ThisWorkbook.Worksheets sName = spath &...

     

    将工作薄每一个工作表导出为PDF文件。

     

    Sub PDF()
     Dim asy As Worksheet
     Dim spath As String
     spath = Excel.ThisWorkbook.Path
     For Each asy In Excel.ThisWorkbook.Worksheets
     sName = spath & "\" & asy.Name & ".pdf"
     asy.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sName
     Next
    End Sub

    将当前工作表导出为PDF文件。

     

    Sub PDF()
    spatch = Excel.ThisWorkbook.Path
    sName = spatch & "\" & ActiveSheet.Name & Format(Date, "yyyymmdd")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sName
    End Sub

     

     

     VBA 参考文档

    https://msdn.microsoft.com/zh-cn/VBA/Excel-VBA/articles/workbook-exportasfixedformat-method-excel

    转载于:https://www.cnblogs.com/aliensky/p/9622682.html

    展开全文
  • Excel多个sheet导出pdf

    2020-03-24 17:22:01
    需求一:将多个sheel导出为一个pdf 解决方案一:打开有多个sheel的excel工作表,打开vba编辑器(快捷键Alt和F11一起摁下),然后粘贴以下代码: Sub ConvertPDF() strPath = ThisWorkbook.Path & "\" For Each...

    背景一:一个Excel格式的预算表下有多个sheet
    需求一:将多个sheet导出为一个pdf
    解决方案:打开有多个sheet的excel工作表,打开vba编辑器(快捷键为Alt和F11一起摁下),然后粘贴以下代码:

    Sub ConvertPDF()
    strPath = ThisWorkbook.Path & "\"
    For Each s In Sheets
    If s.Name <> "w" Then   'w为当前excel表的名称
    s.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & s.Name & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End If
    Next
    End Sub
    

    点击运行,运行结果如下:
    在这里插入图片描述
    最后使用Adobe Acrobat DC按顺序合并以上pdf即可。

    背景二:一个文件夹下有有多个拥有多个sheet的Excel表格
    需求二:将所有Excel中所有sheet导出为一个pdf
    解决方案:vba编辑器就不多说了,打开复制以下代码:

    Sub ExportToPDF()
    Dim Arr, Str1, Str2, Shp, myPath1, myPath2, MyPos, Na, Sh, i1, i2
    On Error Resume Next               
    Application.ScreenUpdating = False 
    Application.DisplayAlerts = False  
    Arr = Array(".xls", ".xlsx", ".xlsm")  
    myPath1 = "D:\qwerdf\"        '文件的路径粘贴到这里
    myPath2 = myPath1 & "zxcv\"   '导出的路径这是好
    MkDir myPath2                '新建文一个件夹
    Set fs = CreateObject("Scripting.FileSystemObject") 
    Set fo = fs.GetFolder(myPath1)  
    For Each fi In fo.Files  
     i1 = 0
     i2 = 0
     Na = fi.Name  
     Do
      i1 = MyPos   
      i2 = i2 + 1
      MyPos = InStr(MyPos + 1, Na, ".") 
      If MyPos = 0 And i2 <> 1 Then
       Str1 = Right(Na, Len(Na) - i1 + 1) 
       Str2 = Left(Na, i1 - 1) & ".pdf"   
       If UBound(Filter(Arr, Str1)) = 0 Then  
        Workbooks.Open Filename:=myPath1 & Na 
        For Each Sh In Workbooks(Na).Sheets   
         Sh.PageSetup.Zoom = 80  
        Next
        Workbooks(Na).ExportAsFixedFormat Type:=xlTypePDF,  Filename:=myPath2 & Str2, Quality:=xlQualityStandard   
        Workbooks(Na).Close 
       End If
       Exit Do 
      End If
     Loop
    Next
    Application.DisplayAlerts = True  
    Application.ScreenUpdating = True 
    End Sub
    

    与方案一相比,方案二的优势在于:方案一仅仅适用于一个excel多个sheet,不适用于多个excel多个sheet;方案二进行了纸张打印面积80%的设置;方案二添加了错误警告和提示。
    需要注意的是:无论是方案一还是方案二对excel后缀格式的要求都是小写,一半预算软件导出的excel后缀为大写.XLS,会检测不到,所以在运行之前我们要把后缀改为小写。

    展开全文
  • http://www.e800.com.cn【e800编译】此示例演示如何使用ExportAsFixedFormat方法在MicrosoftExcel2010工作表中将数据以PDF或XPS格式导出。此代码段是Office2010的101项VBA代码示例中的一部分。与其它示例一样,这些...

    e800

    ,国内最具活力的

    IT

    门户网站。

    http://www.e800.com.cn

    e800

    编译】此示例演示如何使用

    ExportAsFixedFormat

    方法在

    Microsoft Excel 2010

    作表中将数据以

    PDF

    XPS

    格式导出。

    此代码段是

    Office

    2010

    101

    VBA

    代码示例中的一部分。与其它示例一样,这些将

    可以直接写入您的代码中。

    每块示例代码包含约

    5

    50

    行的代码,分别演示了一个独特的功能或功能集,在

    VBA

    VB

    以及

    C

    #中

    (在

    Visual Studio 2010

    中创建)

    每个示例之中都会包含代码以及相应注释,

    这样您就可以直接运行获取预期的结果,

    或者是根据代码注释提示来调整环境,

    运行示例代

    码。

    Microsoft

    Office

    2010

    提供了你所需要的工具来创建功能强大的应用程序。

    Microsoft

    Visual

    Basic

    Application

    (

    VBA

    )代码示例可以帮助你创建自己的应用程序,以执行特定功能

    或者以此为出发点实现更为复杂的功能。

    实例代码

    Excel

    2010

    中新建一工作簿,并将代码复制到

    Sheet1

    类模块。将光标置于

    TestExportAsFixedFormat

    内,按

    F8

    单步执行代码。

    Sub

    TestExportAsFixedFormat()

    ' For information on the final parameter, see this page:

    ' http://msdn.microsoft.com/en-us/library/aa338206.aspx

    Dim

    rng

    As

    Range

    Set

    rng=Range(

    "A1:E10"

    )

    SetupRangeDatarng

    Dim

    fileName

    As

    String

    ' Change this file name to meet your own needs:

    fileName=

    "C:\Temp\Export.pdf"

    ' Many of these properties are optional, and are included

    ' here only to demonstrate how you might use them. The

    ' Type parameter can be one of xlTypePDF and xlTypeXLS;

    ' the Quality parameter can be one of xlQualityStandard and

    ' xlQualityMinimum. Setting the OpenAfterPublish property

    ' to True will fail if you don't have a default viewer

    展开全文
  • 【e800编译】此示例演示如何使用ExportAsFixedFormat方法在Microsoft Excel 2010工作表中将数据以PDF或XPS格式导出。此代码段是Office 2010的101项VBA代码示例中的一部分。与其它示例一样,这些将可以直接写入您的...

    【e800编译】此示例演示如何使用ExportAsFixedFormat方法在Microsoft Excel 2010工作表中将数据以PDF或XPS格式导出。此代码段是Office 2010的101项VBA代码示例中的一部分。与其它示例一样,这些将可以直接写入您的代码中。每块示例代码包含约5至50行的代码,分别演示了一个独特的功能或功能集,在VBA或VB以及C#中(在Visual Studio 2010中创建)。每个示例之中都会包含代码以及相应注释,这样您就可以直接运行获取预期的结果,或者是根据代码注释提示来调整环境,运行示例代码。Microsoft Office 2010提供了你所需要的工具来创建功能强大的应用程序。Microsoft Visual Basic Application(VBA)代码示例可以帮助你创建自己的应用程序,以执行特定功能或者以此为出发点实现更为复杂的功能。实例代码在Excel 2010中新建一工作簿,并将代码复制到Sheet1类模块。将光标置于TestExportAsFixedFormat内,按F8单步执行代码。SubTestExportAsFixedFormat()' For information on the final parameter, see this page:' /en-us/library/aa338206.aspxDimrngAsRangeSetrng=Range("A1:E10")SetupRangeDatarngDimfileNameAsString' Change this file name to meet your own needs:fileName="C:\Temp\Export.pdf"' Many of these properties are optional, and are included' here only to demonstrate how you might use them. The' Type parameter can be one of xlTypePDF and xlTypeXLS;' the Quality parameter can be one of xlQualityStandard and' xlQualityMinimum. Setting the OpenAfterPublish property' to True will fail if you don't have a default viewer' installed and configured.rng.ExportAsFixedFormatType:=xlTypePDF,_fileName:=fileName,Quality:=xlQualityStandard,_IncludeDocProperties:=True,IgnorePrintAreas:=True,_From:=1,To:=1,OpenAfterPublish:=TrueEndSubSubSetupRangeData(rngAsRange)rng.Formula="=RANDBETWEEN(1, 100)"EndSub

    展开全文
  • 2) 装配设计程序组Assembly.catvba:检查零部件位置、导出产品结构树(含重量重心)、重命名实例、替换部件、按清单或结构树另存等; 3) 工程制图程序组Drafting.catvba:对齐文本、解锁视图、将表格数据导出到...
  • 2) 装配设计程序组Assembly.catvba:检查零部件位置、导出产品结构树(含重量重心)、重命名实例、替换部件、按清单或结构树另存等; 3) 工程制图程序组Drafting.catvba:对齐文本、解锁视图、将表格数据导出到...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
    本书的作者是当之无愧的世界级Excel电子表格专家,他读者倾心打造了这本专著,书中汇聚他15年来使用Excel的所有经验,涵盖Excel应用和VBA编程涉及的方方面面,是经典著作Excel 2003 Power Programming with VBA的...
  • Word转PDF应该是最常见的需求了,毕竟使用PDF格式可以更方便展示文档,虽然在Word中可以直接导出为PDF格式,但是使用Python可以批量转换,更加高效。 目前在Python中针对Word转换为PDF的库有很多,比如win32就可以...
  • 免费Spire.XLS: 处理Excel文档in C#, VB.NET

    热门讨论 2015-06-18 10:24:15
    Spire.XLS for .NET支持把数据从数据库导出Excel工作表,或者把数据从Excel数据导入到数据库。 Spire.XLS for .NET 提供强大的功能开发者设置单元格格式。这次格式化数字,文字缩进,定位调整,设置单元格边线,...
  • 12.3.3 将XPS转换为PDF 287 12.4 下一步 287 第13章 使用VBA创建图表 288 13.1 VBA简介 288 13.1.1 在Excel中启用VBA 289 13.1.2 在Excel中“开发工具”选项卡 289 13.1.3 Visual Basic编辑器 289 ...
  • 12.3.3 将XPS转换为PDF 287 12.4 下一步 287 第13章 使用VBA创建图表 288 13.1 VBA简介 288 13.1.1 在Excel中启用VBA 289 13.1.2 在Excel中“开发工具”选项卡 289 13.1.3 Visual Basic编辑器 289 ...
  • 中文版Excel.2007图表宝典 2/2

    热门讨论 2012-04-06 19:01:36
    完整清晰版 PDF ,有目录。共 140MB,分为 2 个分卷 中文版Excel2007 图表宝典 OFFICE2007 OFFICE2010 产品名称:中文版Excel 2007图表宝典 ISBN编号: 9787302194750 出版时间: 2009-3-1 出版社: 清华大学出版社 ...
  • 1487.2.5 将字段数据类型转换Access数据类型 1497.2.6 使用链接表管理器加载项重新链接表 1507.2.7 导入表和将数据库文件链接表 1507.3 导入和链接电子数据表文件 1517.3.1 通过导入Excel工作表创建一个表 1517....
  • 1487.2.5 将字段数据类型转换Access数据类型 1497.2.6 使用链接表管理器加载项重新链接表 1507.2.7 导入表和将数据库文件链接表 1507.3 导入和链接电子数据表文件 1517.3.1 通过导入Excel工作表创建一个表 1517....
  • 1487.2.5 将字段数据类型转换Access数据类型 1497.2.6 使用链接表管理器加载项重新链接表 1507.2.7 导入表和将数据库文件链接表 1507.3 导入和链接电子数据表文件 1517.3.1 通过导入Excel工作表创建一个表 1517....
  • 3-1-3 导入Excel的工作表 3-1-4 导入文本文件 3-1-5 导入XML文件 3-2 查找与替换数据 3-2-1 查找数据 3-2-2 替换数据 3-3 聪明的字段设定 3-3-1 输入掩码 3-3-2 字段数据验证 3-3-3 整笔记录的验证 3-3-4...
  • 1717.7.1 通过Windows剪贴板导出数据 1717.7.2 将数据导出为一个文本文件 1727.7.3 以其他文件格式导出数据 1737.8 疑难解答 1737.9 现实世界—Microsoft的付出与 回报 175第二部分 最大限度地利用查询第8章 设计...
  • JasperReports Subreport 实例

    千次阅读 2010-09-29 11:17:00
    公司的项目需要将数据导出为excelpdf,之前用过vba和poi,这次要使用jasper reports,期间遇到一个关于subreport的问题,现已解决,放出给大家参考。首先说明一下,subreport是iReport template编辑器中的一个...
  • BarcodeX 5.3 ActiveX条形码控件破解版

    千次下载 热门讨论 2008-01-30 11:19:11
    能工作于支持ActiveX的程序和开发环境如:Microsoft Office 97、Visual Studio、Visual C++、Visual Basic and Visual Basic for Applications (VBA)、J++, Visual FoxPro、 Access97、Word97、Excel、Works 4.5、...
  • BarcodeX ActiveX控件

    热门讨论 2005-12-29 10:05:56
    能工作于支持ActiveX的程序和开发环境如:Microsoft Office 97、Visual Studio、Visual C++、Visual Basic and Visual Basic for Applications (VBA)、J++, Visual FoxPro、 Access97、Word97、Excel、Works 4.5、...
  • PROJECT 2007宝典 9/9

    2012-04-01 19:13:00
    完整清晰版 PDF ,有目录。共 200MB,分为 9 个分卷 PROJECT 2007 宝典 OFFICE2007 OFFICE2010 PROJECT 2007宝典 原价:88.00元 作者:(美)马默 著,安晓梅,范书义 译 出版社:人民邮电出版社 出版日期:2008-1...
  • DUN:Microsoft拔号网络导出文件 DV:数字视频文件(MIME) DWG:AutoCAD工程图文件;AutoCAD或Generic CADD老版本的绘图格式 DXR:Macromedia Director受保护(不可编辑)电影文件 E EDA:Ensoniq ASR磁盘映像...
  • Kofler还是Definitive Guide to Excel VBA第2版的作者。 目录 封面 -23 封底 -22 扉页 -21 版权 -20 版权声明 -19 译者序 -18 前言 -16 目录 -11 第一部分 入门 1 第1章 什么是MySQL 2 1.1 什么是数据库 2 1.1.1...

空空如也

空空如也

1 2
收藏数 23
精华内容 9
关键字:

vba导出excel为pdf