精华内容
下载资源
问答
  • 将该文件与需要转换的Excel文件放在同一个文件夹中,打开该文件,点击开始转换,稍等片刻即可完成转换
  • 需要传两个参数,excel路径和pdf路径。 代码可以做成wsf文件,通过C语言或者java调用 <job id="etop"> <reference guid="{00020813-0000-0000-C000-000000000046}" comment="MSExcel 2000 tag library, ...

    需要传两个参数,excel路径和pdf路径。
    代码可以做成wsf文件,通过C语言或者java调用

    <job id="etop">
    <reference guid="{00020813-0000-0000-C000-000000000046}"	comment="MSExcel 2000 tag library, under HKEY_CLASSES_ROOT\TypeLib\"/>
    <script language="VBScript">
    
    Option Explicit
    
    Dim excel_file
    Dim pdf_file 
    
    'If WScript.Arguments.Count < 2 Then
    '	MsgBox "Usage: t1 <excel_file> <pdf_file> "
    '	WScript.Quit
    'End If
    
    excel_file = WScript.Arguments(0)
    pdf_file= WScript.Arguments(1)
    
    Dim ExcelApp
    Set ExcelApp = CreateObject("Excel.Application")
    
    With ExcelApp
    	.Visible = False '设置excel为可见
    	'With .Options
    	'	.CheckSpellingAsYouType = False '不检查拼写
    	'	.CheckGrammarAsYouType = False '不检查语法
    	'End With
    	'打开模板文件
    	.Workbooks.Open(excel_file)
    	.Workbooks(1).Activate '激活文档
    	Dim doc
    	Set doc = .ActiveWorkbook '得到这个使用中的文件
    	
    	doc.ExportAsFixedFormat 0,pdf_file,xlQualityStandard,True,True
    	'pdf_file, 17, False, 0, 0, 1, 1, 0, True, True, 0, True, True, False
    
    	doc.Close False
    	'With .Options
    	'	.CheckSpellingAsYouType = True
    	'	.CheckGrammarAsYouType = True
    	'End With
    	.Quit
    	
    End With
    </script>
    </job>
    
    展开全文
  • 将工作薄每一个工作表导出为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

    展开全文
  • 一个基于ExcelVBA开发的自动生成.pdf
  • 利用VBA将表格保存为PDF文件

    千次阅读 2020-07-01 23:04:15
    利用VBA将表格保存为PDF文件表格保存为PDF函数代码 表格保存为PDFVBA编程处理数据时,经常会需要将处理完成的数据或是报表保存输出为PDF文件,以便进行传播。下面的函数即可以实现将指定表的内容保存为PDF文件。 ...

    利用VBA将表格保存为PDF文件

    表格保存为PDF

    在VBA编程处理数据时,经常会需要将处理完成的数据或是报表保存输出为PDF文件,以便进行传播。下面的函数即可以实现将指定表的内容保存为PDF文件。
    保存文件前,需要确认表格内容已经是排版完成的内容,此函数没有排版的功能,具体请大家自行测试。

    函数代码

    Function SaveAsPDF(Optional FlName As String = "当前文件名")
    On Error GoTo err
    If FlName = "当前文件名" Then
        FlName = ActiveWorkbook.FullName
        FlName = Left(FlName, InStrRev(FlName, ".")) & "PDF"
    End If
    If Dir(FlName) <> "" Then
        If MsgBox("此文件已存在!是否要覆盖保存?", vbCritical + vbYesNo, "校验文件是否存在") <> vbYes Then SaveAsPDF = False: Exit Function
    End If
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FlName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    SaveAsPDF = True
    Exit Function
    err:
    SaveAsPDF = err.Number & "_" & err.Description
    End Function
    

    ——专注办公软件的二次开发及培训,你有问题,我有思路!
    ——微博、微信、CSDN同号:w_dexu
    ——转载请注明出处!

    微信二维码扫码加微信

    展开全文
  • 解决excelpdfexcel格式与导出pdf的格式不一致的问题的相关jar包及相关代码
  • VBA批量转换Excel工作簿为PDF

    千次阅读 2013-07-18 09:46:39
    本文转自www.excel123.cn 原文作者 Excel123  Excel 2010和Excel 2007可以将Excel...如果没有批量转换软件,在Excel 2010和Excel 2007中,利用VBA代码也可以轻松实现将Excel工作簿批量转换为PDF,方法如下:  1...

        本文转自www.excel123.cn 原文作者 Excel123

        Excel 2010和Excel 2007可以将Excel工作簿另存为PDF格式文件,但手工的方法每次只能转换一个工作簿,要转换多个工作簿就显得有些繁琐。如果没有批量转换软件,在Excel 2010和Excel 2007中,利用VBA代码也可以轻松实现将Excel工作簿批量转换为PDF,方法如下:

        1.按Alt+F11,打开VBA编辑器。

        2.在右侧代码窗口中输入下列代码:

    Sub BatchConvertWorkBookToPDF()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

        Dim fDialog As FileDialog
        Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
        Dim vrtSelectedItem As Variant
        Dim wkBook As Workbook
        Dim showFolder  As Boolean
        showFolder = False
        With fDialog
            .Filters.Add "Excel文件", "*.xls; *.xlsx; *.xlsm", 1
            If .Show = -1 Then
                For Each vrtSelectedItem In .SelectedItems
                    '如果选择了本工作簿则跳过
                    If InStrRev(vrtSelectedItem, ThisWorkbook.Name) = 0 Then
                        On Error Resume Next
                        Set wkBook = Application.Workbooks.Open(vrtSelectedItem, ReadOnly:=True, Password:="")
                        '跳过设置打开密码的工作簿
                        If Not wkBook Is Nothing Then
                           '跳过隐藏的工作簿
                           If Windows(wkBook.Name).Visible = True Then
                           showFolder = True
                           '转换开始
                           wkBook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                              Left(vrtSelectedItem, InStrRev(vrtSelectedItem, ".") - 1) & ".pdf" _
                              , Quality:=xlQualityMinimum, IncludeDocProperties:=False, IgnorePrintAreas _
                              :=True, OpenAfterPublish:=False
                           wkBook.Close , savechanges = False
                           Else
                           wkBook.Close , savechanges = False
                           End If
                        End If
                   End If
                Next vrtSelectedItem
                If showFolder Then Call Shell("explorer.exe " & Left(fDialog.SelectedItems(1), _
                    InStrRev(fDialog.SelectedItems(1), "")), vbMaximizedFocus)
            End If
        End With
       
        Set fDialog = Nothing
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    End Sub

        3.将需要转换的Excel工作簿复制到某个文件夹中。

        4.关闭VBA编辑器返回Excel界面。按Alt+F8打开“宏”对话框,执行“BatchConvertWorkBookToPDF”宏。

        5.在弹出的“浏览”对话框中选择包含要转换工作簿的文件夹,选择所有要转换的工作簿,单击“打开”按钮即可开始转换。

        说明:

        1.已转换的PDF文件位于原工作簿所在的文件夹中,转换完成后会自动打开该文件夹。

        2.不能转换设置了打开密码的工作簿、隐藏的工作簿、隐藏的工作表和包含上述VBA代码的工作簿。

        3.转换的文件类型为“*.xls”、“*.xlsx”、“*.xlsm”。如果要转换其他类型的工作簿,可在代码中添加文件类型。

        4.如果要转换的工作簿具有相同的名称和不同的后缀,如“Book1.xls”和“Book1.xlsx”,则先转换的PDF文件会被覆盖。

        5.Excel2007必需安装用于 2007 Microsoft Office system 的“另存为 PDF 或 XPS”加载项,下载地址http://www.microsoft.com/zh-cn/download/details.aspx?id=7

    展开全文
  • Private Sub Workbook_AfterSave(ByVal Success As Boolean) Dim fso Dim f Dim readText As String filepath = "C:\temp\FileName.txt" Set fso = CreateObject("Scripting.FileSystemObject"...
  • VBA实现自动发送PDF附件邮件功能。非常好用的,每当保存动作完成,系统就自动发送一份邮件通知相关已经定义好的群组!
  • 可以将一个文件夹中的所有xlsx或类似的表格文件批量转换为pdf文件,遍历每个工作表的每个sheet并逐一转换。 Sub TO_PDF() On Error Resume Next Dim ALL_FILE As String, SourcePath As String, NewSaveFile As...
  • Excel多个sheet导出pdf

    千次阅读 2020-03-24 17:22:01
    需求一:将多个sheel导出为一个pdf 解决方案一:打开有多个sheel的excel工作表,打开vba编辑器(快捷键Alt和F11一起摁下),然后粘贴以下代码: Sub ConvertPDF() strPath = ThisWorkbook.Path & "\" For Each...
  • 有时候需要把大量的xlsx文件另存其它格式,比如pdf、xls、csv,或者反向转换,可以用VBA批量处理。启动Excel,按下Alt+F11,打开Microsoft Visual Basic for Applications,点击 插入>模块,将下面的代码粘贴...
  • #资源达人分享计划#
  • 项目中原来有使用QT的QAxObject使用OfficeExcel的组件导出Excel报告文件的功能,由于项目要求导出PDF功能比较急,如果使用其他样式需要重新组织格式等,花费较多时间,因此考虑将原来的Excel报告直接导出PDF, ...
  • 将jpg图片批量插入到word文档中,然后使用word的导出功能将文档转为pdf文件。 主要步骤: 1,使用Scripting.FileSystemObject对象遍历图片文件. 2,建立word.application的引用Set appWD = CreateObject(...
  • 辛辛苦苦写的文档,不能随便谁都能看吧,于是就想着加个密码,但是导出的时候遇到加密选项是灰色的: ... 这个灰色,显然就是无法加密。...只需要把【符合PDF/A】前面的复选框去掉勾选,这样就可以继续加密啦! ...
  • Excel VBA脚本自动适配行高度

    千次阅读 2020-04-27 15:51:17
    (打开excel后需要点击一下允许执行宏) Alt + F11查看Vba脚本 也可以去我的github上查看整套代码: https://github.com/xiaowanziwuha2/note 运行下面测试类后打开console中输出的xls查看结果。
  • 自动导出 Excel 的利器

    2018-11-20 15:55:16
    有时我们需要用程序来自动生成 Excel 文件,但 Excel 本身带的 VBA 并不好用,而集算器作为数据处理工具实现这个需求就会方便很多。本文将介绍如何用集算器生成 Excel 文件,而集算器本身强大的数据计算能力不是本文...
  • 2) 装配设计程序组Assembly.catvba:检查零部件位置、导出产品结构树(含重量重心)、重命名实例、替换部件、按清单或结构树另存等; 3) 工程制图程序组Drafting.catvba:对齐文本、解锁视图、将表格数据导出到...
  • excel vba 自动读取文件名与文件夹名
  • 批量excel导成PDF.xlsm

    2020-09-13 19:59:59
    使用方法1。 鼠标右击打开的工作表(如sheet1)。选择“查看代码”,就可以...选择模块1,点击上面的运行,选中你要批量导出excel就OK了。 使用方法2。 打开后点击上面,启用宏,关闭本文件,在打开就会自动运行了,
  • 这里写自定义目录标题欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的...,丰富你的文章UML 图表FLowchart流程图导出与导入导出导入...
  • 自动导出Excel的利器

    千次阅读 2018-08-29 11:01:00
    有时我们需要用程序来自动生成Excel文件,但Excel本身带的VBA并不好用,而集算器作为数据处理工具实现这个需求就会方便很多。本文将介绍如何用集算器生成Excel文件,而集算器本身强大的数据计算能力不是本文重点,...
  • C#调用WPS转换WORD,EXCEL,PPT文件为PDF

    千次阅读 2017-09-12 09:55:46
    1.使用WPS软件的二次开发实现word对PDF转换,具体转换程序及参考内容放在下面的链接里。程序下载链接:http://download.csdn.net/download/lqw_6/9982719 其他excel及ppt方法可根据二次开发手册添加。WPS二次开发...
  • 有时候需要把大量的docx文件另存其它格式,比如pdf、doc、rtf、txt,或者反向转换,可以用VBA批量处理。启动word,按下Alt+F11,打开Microsoft Visual Basic for Applications,点击 插入>模块,将下面的代码...
  • 第11章以一个具有较大使用价值的固定资产管理系统案例,详细介绍Excel VBA开发管理系统的过程。每个实例分析透彻,代码完整,技巧全面,使用得心应手。 目录 第1章 动态创建Access数据库和数据表 实例1-1 利用...
  • 数据源为excel,word中建立表模板,利用邮件合并功能实现批量填表,利用VBA技术将填表结果分成独立的文档
  • 2) 装配设计程序组Assembly.catvba:检查零部件位置、导出产品结构树(含重量重心)、重命名实例、替换部件、按清单或结构树另存等; 3) 工程制图程序组Drafting.catvba:对齐文本、解锁视图、将表格数据导出到...
  • Sub 宏1()Application.DisplayAlerts = FalseApplication.ScreenUpdating = False Dim fDialog As FileDialogSet fDialog = Application.FileDialog(msoFileDialogFilePicker)Dim vrtSelectedItem As VariantDim ...
  •  使用DoCmd.OutputTo可以将窗体、查询、报表的内容导出为excel、txt、html、pdf等文档。 使用shell执行命令,打开目录 Shell "explorer.exe " & CurrentProject.Path & " \导出结果\", vbNormalNoFocus

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 615
精华内容 246
关键字:

vba导出excel为pdf