用vba把excel文件发布转化为pdf格式文件_difu7498的博客

相关文章推荐

茫然的筷子 · vba判断一个字符串是否为全数字 - CSDN文库· 1 月前 ·

坏坏的海龟 · VBA) (Property Let ...· 1 月前 ·

有胆有识的开心果 · Java ...· 4 月前 ·

苦闷的手术刀 · 贝叶斯网络中的noisy max算法 ...· 1 年前 ·

朝气蓬勃的李子 · java - Caused by: ...· 1 年前 ·

有胆有识的沙滩裤 · 反汇编arm的.so库,查看源码,嵌入式工程 ...· 1 年前 ·

酒量大的莲藕 · yocto（二）——bitbake工作流程_ ...· 1 年前 ·

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 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

将工作薄每一个工作表导出为PDF文件。　Sub PDF() Dim asy As Worksheet Dim spath As String spath = Excel.ThisWorkbook.Path For Each asy In Excel.ThisWorkbook.Worksheets sName = spath & "\" &am... On Error Resume Next Dim ALL_FILE As String, SourcePath As String, NewSaveFile As String Dim CurFile As Object Dim shit As Worksh... 本文转自www. excel 123.cn 原文作者 Excel 123 Excel 2010和 Excel 2007可以将 Excel 工作簿另存为 PDF 格式文件，但手工的方法每次只能转换一个工作簿，要转换多个工作簿就显得有些繁琐。如果没有批量转换软件，在 Excel 2010和 Excel 2007中，利用 VBA 代码也可以轻松实现将 Excel 工作簿批量转换为 PDF ，方法如下：

利用 VBA 将表格保存为 PDF 文件表格保存为 PDF 函数代码表格保存为 PDF 在 VBA 编程处理数据时，经常会需要将处理完成的数据或是报表保存输出为 PDF 文件，以便进行传播。下面的函数即可以实现将指定表的内容保存为 PDF 文件。保存文件前，需要确认表格内容已经是排版完成的内容，此函数没有排版的功能，具体请大家自行测试。 Function SaveAs PDF (Optional FlName As String = "当前文件名") On Error GoTo err If FlName = "当前文件名

Dim readText As String filepath = "C:\temp\FileName.txt" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTe... 代码可以做成wsf 文件，通过C语言或者java调用 <job id="etop"> <reference guid="{00020813-0000-0000-C000-000000000046}" comment="MS Excel 2000 tag library, under HKEY_CLASSES_ROOT\TypeLib\"/> <script language="VBScript"> Option Explicit 解压缩，用office的 Excel 打开《 vba 批量另存为工具.xlsm》文件，启用宏选择转换文件，ctrl A 本目录下文件全选，注意去掉后缀后不要有名称相同的，不然会报不能打开相同名称工作薄错误。点击执行，选择另存的目录，注意不要选择原来的目录，默认覆盖目录中已有文件。下载地址：www. excel fb.com...

VBA 是Visual Basic for Applications的缩写，用于微软Office项目的编程语言。 VBA 开发人员可以编写 VBA 代码来自动完成复杂任务，可以大大提高工作效率。在日常工作中，我们常常需要将 Excel 文件转换为 PDF 格式，以便在不同平台上共享和传递。手动将每个 Excel 文件转换为 PDF 格式是非常繁琐的，因此使用 VBA 将 Excel 文件批量转换为 PDF 格式是非常有用的。使用 VBA 批量转换 Excel 文件为 PDF 的主要步骤如下： 1.打开需要转换的 Excel 文件所在的目录。 2.遍历目录中的每个 Excel 文件，使用 VBA 代码将其转换为 PDF 格式。 3.保存转换后的 PDF 文件。在这个过程中，需要使用 VBA 的文件操作和打印功能。文件操作需要使用FileSystemObject或Dir函数。打印功能可以使用PrintOut方法或 Pdf Creator等第三方库。以下是一个简单的 VBA 代码示例，演示如何批量将 Excel 文件转换为 PDF 。代码中假设所有的 Excel 文件都保存在同一个文件夹中。 Sub ConvertTo PDF () Dim myPath As String Dim myFile As String Dim Wb As Workbook '指定文件夹的路径 myPath = "C:\Users\MyFolder\" '获取文件夹中的第一个文件名 myFile = Dir(myPath & "*.xlsx") '遍历所有文件 Do While myFile <> "" '打开工作簿 Set Wb = Workbooks.Open(myPath & myFile) '将工作簿另存为 PDF 文件 Wb.ExportAsFixedFormat Type:=xlType PDF , Filename:= _ myPath & Replace(myFile, ".xlsx", ". pdf "), Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False '关闭工作簿 Wb.Close SaveChanges:=False '获取文件夹中的下一个文件名 myFile = Dir End Sub 这个 VBA 代码示例非常简单，只是将 Excel 文件转换为 PDF 格式并保存在同一个文件夹中。但是，根据具体需求，可以进一步优化代码以满足不同的转换需求。