시트를 새 workbok에 복사하고 VBA로 저장

Question

데이터 유효성 검사 목록을 통과하고 워크 시트를 새 통합 문서에 복사하는 코드를 작성했습니다. 나는 그것을 저장할 그러나 나는 t이 나에게 오류를 제공 t. The loop doesn 새로운 통합 문서에서 복사 및 붙여 넣기를 유지하지만 실제로 내가 위의

Dim ValidationList As Range 
Set ValidationList = Range("BF1:BF13") 
VCount = ValidationList.Count 


For i = 1 To VCount 
FolderPath = "C:\Users\A734810\Desktop\Efficiency" 
namesheet = Cells(i, 58) 
Path = FolderPath & namesheet & "\*.xlsx" 
Filename = Dir(Path) 

Range("A8") = Cells(ValidationList(i).Row, ValidationList.Column) 

ThisWorkbook.Sheets("Professionals comparative").Copy 
ActiveWorkbook.SaveCopyAs Filename:=Filename 

Next 

Answer 1

Path = FolderPath & namesheet & "\*.xlsx" 

을 설정 디렉토리에있는 통합 문서의 복사본을 저장 할 수 없다 셀 Cells(i, 58)이 \을 가지고 그리고 난 당신의 게시물에 따라 당신이 못하고 오류

문제는 becuase 당신이 "\"가 생각 제공 정확한지 여기

입니다)

Filename 그냥 파일의 이름이,

파일은 아니지만 당신이 생각 위치에 저장 얻고있다. 당신이`ActiveWorkbook.SaveCopyAs 파일 이름을 코드의 나머지 부분을 보지 못했다

ActiveWorkbook.SaveCopyAs Filename:=FolderPath & namesheet & "\" & Filename