功能实现批量修改该文件夹下Excel文件并及时到处PDF到指定文件夹

最新推荐文章于 2024-09-14 18:46:05 发布

weixin_45514748

最新推荐文章于 2024-09-14 18:46:05 发布

阅读量271

点赞数 1

文章标签： servlet java sql

本文链接：https://blog.csdn.net/weixin_45514748/article/details/126254295

版权

这是一个VBA宏代码示例，用于批量修改指定文件夹内的Excel文件内容，并将修改后的文件导出为PDF保存到特定文件夹。用户首先定义了文件路径，然后通过Dir函数遍历文件夹中的Excel文件，打开文件进行修改，接着保存并导出为PDF格式。导出的PDF文件名与原始Excel文件名相同。

摘要由CSDN通过智能技术生成

Sub Save_PDFFlile() '打开文件夹内所有Excel表格并修改导出PDF
'
'
'
Dim myPath$, myFile$, WB As Workbook '这个$是相当于定义字符串

myPath = "D:\1.0重要资料\新SCD-检验报告-22\SCD-来料检验报告-22\2101\" '把文件路径定义给变量，这里请自行更改，记得最后要加一个反斜杠

'PDF保存路径
FolderNamePDF = "D:\1.0重要资料\新SCD-检验报告-22\SCD-来料检验报告-22\2101\PDF\"

myFile = Dir(myPath & "*.xls*") '依次找寻指定路径中的*.x1s,或者x1sx文件

Do While myFile <> "" '当指定路径中有文件时进行循环

If myFile <> ThisWorkbook.Name Then '如果我们这个宏文件在需要处理的文件夹之中，这个判断就会跳过下面的操作

Set WB = Workbooks.Open(myPath & myFile) '打开符合要求的文件

'Range("B6").Select '需要修改的地方
' ActiveCell.FormulaR1C1 = "需要修改的内容" '修改此位置的内容