Excel 통합 문서의 개별 워크 시트를 PDF로 저장

Question

내 워크 북의 모든 워크 시트를 내 바탕 화면의 특정 폴더에 저장하는 코드가 있습니다.이 방법이 작동하지만 내 네트워크의 폴더로 저장 대상을 변경 한 경우 드라이브가 작동하지 않으면 코드가 작동하지 않습니다. 오류는 발생하지 않지만 파일은 폴더에 저장되지 않습니다.

For Each ws In ActiveWorkbook.Worksheets 
    strPDFName = ws.Name 
    strDir = "SAVEFOLDER" 
    ChDir strDir 
    fileSaveName = ws.Name 
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False 
    Next ws 

Answer 1

대신이 작업을 수행 할 수있을 때 왜 ChDir를 사용 : 여기

내 코드?

fileSaveName = strDir & "\" & ws.Name 

ChDir 내가 '당신의 strDir 아무튼 가정 있기 때문에 당신이 정말 원하는 것은 디렉토리와 파일 이름을 연결하여 pdf 파일의 전체 경로를 지정하는 것입니다 (나는 그들 사이에 백 슬래시를 추가 작업 디렉토리를 변경합니다 끝에는 하나가있다).