Vba 코드를 통해 pdf 배치의 이름을 파일의 필드로 지정합니다

다음 코드를 사용해보십시오: Sub? Macro3()

온? Error? Resume? 다음

Dim? 내 경로,? 내 파일 $,? Iamp；; ,? D? As? 개체

내 경로? =? [F1]

If? Dir (내 경로? Amp；; -응? "*",? Vb 디렉토리)? =? "? Then

MsgBox? "파일 주소가 없습니다. 다시 입력하십시오."

Exit? Sub

엔드? If

If? Range("C65536").End(xlUp).Row? =? 1? Then

MsgBox? C 열에 새 이름 입력

Exit? Sub

엔드? If

아르? =? Range ("a2: c"? Amp；; -응? Range ("a65536"). end (xlup). row)

셋? D? =? Createobject ("scripting.dictionary")

D.CompareMode? =? 1

For? I? =? 1? To? UBound(arr)

D(arr(i,? 1))? =? "

다음

For? I? =? 1? To? UBound(arr)

If? D.Exists(arr(i,? 3))? Then

MsgBox? "원본 파일과 같은 파일 이름으로 파일 이름을 수정할 수 없습니다."

Exit? Sub

엔드? If

다음

내 경로? =? 내 경로? Amp；; -응? "\"

For? I? =? 1? To? UBound(arr)

If? 아르 (I,? 3)? Lt; Gt; -응? "? Then

If? Dir (내 경로? Amp；; -응? 아르 (I,? 1))? Lt; Gt; -응? "? Then? Name? 내 경로? Amp；; -응? 아르 (I,? 1)? As? 내 경로? Amp；; -응? 아르 (I,? 3)

엔드? If

다음

MsgBox? 수정 완료

엔드? Sub

A 열은 원래 파일 이름으로, c 열은 수정된 파일 이름으로, 모두 파일 접미사 ...