워크 시트를 PDF로 저장

여러 워크 시트를 pdf로 저장하는 데 문제가 있습니다. 나는이 웹 사이트 (및 다른 사람들)를 살펴 보았고 내가 사용했던 것과 비슷한 코드를 발견했다. 그러나 내가 수정 한 코드는 Save multiple sheets to .pdf과 http://www.vbaexpress.com/kb/getarticle.php?kb_id=160을 더 닮았습니다.워크 시트를 PDF로 저장

그러나 마지막 줄에 "424 : Object Required"오류가 있습니다. 올바른 방향으로 나를 조종 할 수 있다면 크게 환영 할 것입니다!

Sub SaveAs() 

Dim Fname As String 
Dim Fpath As String 

    Fname = Sheets("Sheet1").Range("FT5").Text 'The Cell I want to use as my file name 
    Fpath = "C:" 'my location 

    ThisWorkbook.Sheets(Array("Sheet 1", "Sheet 2")).Select 'My selected tabs 

    ActiveSheets.ExportAsFixedFormat Type:=xlTypePDF, _ 
     FileName:=Fpath & "\" & Fname & ".pdf", _ 
     Quality:=xlQualityStandard, _ 
     IncludeDocProperties:=True, _ 
     IgnorePrintAreas:=False, _ 
     OpenAfterPublish:=True 'My issue is with this line.... 
End Sub

출처

2013-06-06 user2437803

ActiveSheets과 같은 개체가 없으므로 마지막 줄에 오류가 발생합니다.

ActiveWindow.SelectedSheets을 사용자가 현재 선택한 용지를 단순히 인쇄하려면 Sheets("Sheet 1", "Sheet 3", "Sheet ...")으로 바꾸고 코드가있는 용지를 선택하려면 으로 바꾸십시오.

출처

2013-06-06 20:28:28

귀하의 답을 정답으로 선택했습니다. 그러나 ActiveSheets의 끝에서 단순히 's'를 제거하는 것은 내가해야 할 모든 것뿐이었습니다. 피터를 도와 줘서 고마워! – user2437803

잘 알고 있습니다. 사실, 다시 코드를 살펴보면'ThisWorkbook.Sheets (Array ("Sheet 1", "Sheet 2")에 마지막 두 줄을 병합하는 것이 좋습니다.) ExportAsFixedFormat (...' –

감사합니다. 내가 할 수 있다는 것을 알려줘! 내가 생각하는대로 그대로 남겨 두겠다. 내 배열을 쉽게 편집 할 수 있기를 원한다. – user2437803

워크 시트를 PDF로 저장

답변

관련 문제