여러 통합 문서에서 하나의 단일 통합 문서로 작성하는 Excel 매크로

Question

동일한 서식의 300 개의 개별 통합 문서가 있으며 각각의 특정 필드를 하나의 통합 문서로 작성하여 infile을 SAS로 가져와 보고서를 실행할 수 있습니다. 나는 간단한 복사와 붙여 넣기로 매크로를하는 방법을 안다. 그러나 각 책의 이름을 알아야하고 그것들을 열어보아야한다. 그리고 나는 그들이 다양한 병원에서 보내지기 때문에 이름이 다른 300 개의 별도 워크 북을 가지고있다.

예 : "(

johnhopkins.worksheets ("Sheet1의 ") 범위 : 내 책이 1 병원 책 johnhopkins 단순히 매크로라고, 다른 하나는 센트럴 플로리다이며, 그래서

에 가능한 코드입니다. a1 : g2 ") 복사 워크 시트 ("macro.xslx "). 워크 시트 ("sheet1 "). 범위 ("a1 ") 삽입 이동 : x1down

문제는 특정 셀을 복사하여 붙여 넣으려고합니다. 통합 문서에있는 모든 항목이 단일 통합 문서에 제공되지는 않으며 원하는 항목을 선택하는 방법을 모르겠습니다. 그들은 B5, b8, g13, i13, j13, k13, l13

등의 실제 셀이며 내 통합 문서의 a1부터 g2까지 복사하려고합니다.

다른 문제는 통합 문서의 이름이 모두 다르기 때문에 모두 300 개입니다. 매번 실제 이름을 넣지 않고 연 통합 문서를 복사하는 매크로가 있습니까?

Answer 1

당신은 이런 일에 시작할 수 : 방금 범위를 복사해야

For i = 1 To Sheets.Count 

Sheets.Item(i).Select 
Range("A1:D10").Select 
Selection.Copy 
Sheets("Result").Select 
Range("A1").Select 
Selection.End(xlDown).Select 
ActiveSheet.Paste 

Next i 

당신은 루프 쓰루, 당신의 이름을 모른 채 시트, 그리고 지금 당신의 "결과"시트 에 결과를 붙여 넣을 수 있습니다 설명하고 다른 시트에 붙여 넣으십시오.

재미있게 보내십시오!