2017-05-22 2 views
0

이것은 기본 일 수 있으며 많은 제안 된 답변을 시도했지만 저장하기 위해 특정 셀을 지정했기 때문에 제대로 가져올 수 없습니다. (매번 구원 받기를 원하는 것이 훨씬 더 많기 때문에).셀을 선택할 때 셀 이름으로 시트 저장 및 PDF로 저장

다음

당신으로 (지금까지 내 코드입니다

I 셀 C20로 저장하기 위해 시트를 얻기 위해 노력하고 있지만이 파일 이름 범위 ("C20") 이후에 추가하는 경우이 약관을 읽고 동의를 원 .... 이 코드에서) 지금에서 빙빙 돌고

Sub Testsave9() 
' 
' Testsave9 Macro 
' 

' 
    ActiveWindow.SmallScroll Down:=33 
    Range("A1:J46").Select 
    Range("A46").Activate 
    Selection.ExportAsFixedFormat Type:=xlTypePDF, filename:= 
     "L:\Liberty 2017\Luke\Despatch Test\Despatch Save Location\NameHere.pdf", _ 
     Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
     :=False, OpenAfterPublish:=True 
End Sub 

을 시험 9 메신저를 볼 수 있습니다 나는 박스로 저장에서 'NameHere'간단 저장했습니다. 인쇄 사양을 유지하면서 C20 셀의 값으로 저장하도록 Excel에 지시하는 방법은 무엇입니까?

감사

누가 복음

답변

0

당신은 사용할 수 있어야합니다 :

Selection.ExportAsFixedFormat Type:=xlTypePDF, filename:= _ 
    "L:\Liberty 2017\Luke\Despatch Test\Despatch Save Location\" & Range("C20").Text & ".pdf", _ 
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
    :=False, OpenAfterPublish:=True 

그러나, 당신은 확인해야합니다 C20은 파일 이름 등

에서 사용할 수있는 문자 만 포함
+0

감사합니다. 오류가 발생합니다 ... 컴파일 오류 : 신텍스 오류 첫 번째 행이 강조 표시됩니다. 셀 c20은 숫자와 문자 만 포함합니다. – LukeWestern

+0

복사/붙여 넣기 오류 일 수 있습니다. 'filename : ='다음에 밑줄을 넣으십시오. (내 대답을 바꿀 것입니다.) – CLR

+0

Perfect. 그게 효과가 있어요. 정말 고맙습니다. 다행스럽게도 Testsave10에서 끝낼 수 있습니다 !! – LukeWestern