매크로를 사용하여 미리 정의 된 일부 시트 만 새 통합 문서에 저장하고 싶습니다.다른 통합 문서에 일부 시트 만 저장
userform
을 사용하여 새 파일의 이름을 물어본 다음 작성한 다음 열어서 이전 파일에서 새 파일로 하나씩 복사하여 붙여 넣습니다.
이것은 이미 실행하는 데 많은 시간이 걸리며, 복사 및 붙여 넣기를 위해 시트에 점점 많은 데이터를 가져올수록이 작업은 더욱 어려워 질 것입니다.
다른 방법이 있습니까? Dico_export
는 시트의 이름이 포함 된 사전을 복사 할, WB
새로운 책, Ws
이 오래 된 책에있는 워크 시트입니다
WB2
는 오래 된 책입니다 :
여기 내 코드입니다.
For Each WS In WB2.Worksheets
If Dico_Export.Exists(WS.Name) Then
WB2.Worksheets(WS.Name).Copy after:=WB.Sheets(1 + i)
If WS.Name <> "Limites LPG" Then
tabl(i) = WS.Name
End If
i = i + 1
End If
Next
새 파일로 시트를 복사하는 데 사용하는 방법은 무엇입니까? –
첫 번째 도서의 각 시트에 대해 이름이 배열과 일치하는지 확인합니다. 그렇다면 .copy 방법을 사용합니다. –
질문에 기존 코드를 추가하십시오. –