|
|
| 查看权限： |
需要 [年费会员] 级别以上才能查看。 |
| 发布时间： |
2023-04-19 05:13:07 |
| 信息简介： |
批量转化.xls文件为.PDF
Sub xlsx转pdf()
On Error Resume Next
Dim sEveryFile As String, sSourcePath As String, sNewSavePath As String, a
Dim CurXls As Object
a = Range("a2")
sSourcePath = ThisWorkbook.Path & "\" & a & "\" |
|
