已解决： 导出成PDF代码，如何增加指定工作表？

crazynet

求VBA 导出成PDF代码，带自定义重命名或者指定单元格为名称的功能，谢谢

找到一个，如何修改成指定工作表，而不是当前工作表？

1. Sub PDFActiveSheet()
   
2.     Dim wsA As Worksheet
   
3.     Dim wbA As Workbook
   
4.     Dim strTime As String
   
5.     Dim strName As String
   
6.     Dim strPath As String
   
7.     Dim strFile As String
   
8.     Dim strPathFile As String
   
9.     Dim myFile As Variant
   
10.     On Error GoTo errHandler
    
11. 
    
12.     Set wbA = ActiveWorkbook
    
13.     Set wsA = ActiveSheet
    
14.     strTime = Format(Now(), "yyyymmdd\_hhmm")
    
15. 
    
16.     strPath = wbA.Path
    
17.     If strPath = "" Then
    
18.       strPath = Application.DefaultFilePath
    
19.     End If
    
20.     strPath = strPath & ""
    
21. 
    
22.     strName = Replace(wsA.Name, " ", "")
    
23.     strName = Replace(strName, ".", "_")
    
24. 
    
25.     strFile = strName & "_" & strTime & ".pdf"
    
26.     strPathFile = strPath & strFile
    
27. 
    
28.     myFile = Application.GetSaveAsFilename _
    
29.         (InitialFileName:=strPathFile, _
    
30.             FileFilter:="PDF Files (*.pdf), *.pdf", _
    
31.             Title:="Select Folder and FileName to save")
    
32. 
    
33.     If myFile <> "False" Then
    
34.         wsA.ExportAsFixedFormat _
    
35.             Type:=xlTypePDF, _
    
36.             Filename:=myFile, _
    
37.             Quality:=xlQualityStandard, _
    
38.             IncludeDocProperties:=True, _
    
39.             IgnorePrintAreas:=False, _
    
40.             OpenAfterPublish:=False
    
41. 
    
42.         MsgBox "Les QrCodes ont été exporter dans le fichier PDF" _
    
43.           & vbCrLf _
    
44.           & myFile
    
45.     End If
    
46. 
    
47. exitHandler:
    
48.     Exit Sub
    
49. errHandler:
    
50.     MsgBox "Erreur lors de l'exportation"
    
51.     Resume exitHandler
    
52. End Sub

复制代码

3190496160

Set wsA = ActiveSheet
修改这句代码
Set wsA = sheets("")
引号内输入工作表名称

crazynet

3190496160 发表于 2021-1-5 14:21
Set wsA = ActiveSheet
修改这句代码
Set wsA = sheets("")

谢谢，明白了……