求助，我想把这段代码的另存为.doc改成.pdf

Ethan645

代码是论坛找的我想代码中的另存为.doc改成.pdf，自己尝试修改未果，求大佬帮助谢谢~

Sub Macro1()
    Dim rng As Range
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set rng = Range("B3:C6")
    With CreateObject("Word.Application")
        .Visible = False
        .Documents.Add
        rng.Copy
        .Selection.PasteExcelTable False, False, False
        .ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "\" & [E3] & ".doc"
        .ActiveDocument.Close
        .Quit
    End With
    Application.CutCopyMode = False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "ok"
End Sub

ww87725244

1. Sub Macro2()
   
2.     Dim rng1 As Range, s$
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5. '    Set rng = Range("B3:C6")
   
6. '    With CreateObject("Word.Application")
   
7. '        .Visible = False
   
8. '        .Documents.Add
   
9. '        rng.Copy
   
10. '        .Selection.PasteExcelTable False, False, False
    
11. '        .ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "" & [E3] & ".PDF"
    
12. '        .ActiveDocument.Close
    
13. '        .Quit
    
14. '    End With
    
15.     s = ThisWorkbook.Name
    
16.     ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "" & Replace(Replace(s, Split(s, ".")(0), [e3]), "xls", "pdf")
    
17.     Application.CutCopyMode = False
    
18.     Application.DisplayAlerts = True
    
19.     Application.ScreenUpdating = True
    
20.     MsgBox "ok"
    
21. End Sub

复制代码