excel vba를 사용하여 선택한 시트 만 내 통합 문서로 복사 하시겠습니까?

Question

나는이 질문에 대해 유감스럽게 생각한다. 나는 VBA에서 완전히 새로운 사람이다. 제 질문에 대한 간단한 설명을 드리겠습니다.

탭 이름이 워크 시트 (a, b, c, d, e 및 f)가 포함 된 외부 통합 문서가 있습니다. 나는 단지 워크 시트 a, b, c를 내 자신의 워크 북에 복사하려고합니다. 문제는 a, b, c가 항상 존재하지 않는다는 것입니다. 때때로 통합 문서에는 a와 b 또는 a와 c 또는 b, c 또는 심지어 단일 워크 시트 만 있습니다.

엑셀 VBA를 적용하여 시트 a, b 및 c에 대한 검사를 수행하고이를 통합 문서에 복사 할 수 있는지 어떻게 알 수 있습니까?

감사합니다.

건배, 패치

Answer 1

은 아래가 OR 문을 사용하여 더욱 시트에 추가 할 수 있습니다, 당신을 도울 수 있어야합니다. 아래의 매크로는 다른 통합 문서의 끝 부분에 파일을 추가합니다. 이 매크로는 .Open 매개 변수를 제거 할 수 없도록하려는 경우 다른 통합 문서를 엽니 다.

코드는 테스트되지는 않았지만 작동하지 않습니다.

Sub TestMacro() 

Dim wb, wbData As Workbook 
Dim sh As Worksheet 

Set wb = ActiveWorkbook 
Set wbData = Workbooks.Open("<Your file address and name here>") 

For Each sh In wb.Worksheets 
    If sh.Name Like "a" _ 
     Or sh.Name Like "b" _ 
     Or sh.Name Like "c" Then sh.Copy Before:=wbData.Sheets(wbData.Sheets.Count) 
Next 

End Sub