VBA 를 사용하여 여러 Excel 에서 정보를 가져와 새 테이블을 생성합니다.

암담한가? MyPath$,? 내 파일 $,? AK? 로? 연습장

암담한가? N? 로? 정수

암담한가? 대답? 로? 정수

대답? =? 2

B? =? 1

신청하다. 화면 업데이트? =? "가짜?" 화면이 떨리지 않도록 화면을 고정합니다.

내 길? =? D:\test\ "? 변수의 파일 경로를 정의합니다.

내 서류? =? Dir (내 경로? & amp? "*.xls")? * 을 (를) 찾았습니다. Xls 파일은 지정된 경로에 순차적으로 배치됩니다.

뭐해? 언제? 내 서류? & lt& gt? "? 지정된 경로에 파일이 있을 때 반복합니다.

만약? 내 서류? & lt& gt? 이 워크북. 이름? 그리고 나서

설정? AK? =? 연습장. 열기 (myPath? & amp? 내 파일? 요구 사항을 충족하는 파일을 엽니다.

MsgBox? ""

N? =? 1

뭐해? 언제? N? =? 1

설정? Rng? =? ActiveSheet 입니다. UsedRange.Find("MTBI ")

만약? Rng? 그래요? 아무것도 없어? 그리고 나서

MsgBox? ("그런 값 없음")

기타

MsgBox? 다음에서 가치 찾기:&? (Chr(64? +? Rng. 칼럼)? & amp? Rng. 줄) 을 참조하십시오

Rng. 고르다

N? =? N? +? 1

데이터를 book 1 의 시트 2, page 1? 2? 3? 4 열, 2 행에서 시작

워크북 ("book 1"). 워크시트 (워크시트 2). 세포 (하나, 1)? =? ActiveSheet 입니다. 세포 (Rng). 긋다,? Rng. 칼럼? +? 1)

워크북 ("book 1"). 워크시트 (워크시트 2). 세포 (하나, 2)? =? ActiveSheet 입니다. 세포 (Rng). 긋다,? Rng. 칼럼? +? 2) 을 참조하십시오

워크북 ("book 1"). 워크시트 (워크시트 2). 세포 (하나, 3)? =? ActiveSheet 입니다. 세포 (Rng). 긋다,? Rng. 칼럼? +? 3) 을 참조하십시오

워크북 ("book 1"). 워크시트 (워크시트 2). 세포 (하나, 4)? =? ActiveSheet 입니다. 세포 (Rng). 긋다,? Rng. 칼럼? +? 4) 을 참조하십시오

대답? =? 대답? +? 1

끝? 만약

고리

끝? 만약

내 서류? =? Dir? 다음 찾기 *. Xls 파일

고리

신청하다. 화면 업데이트? =? "정말?" 화면을 고정하다. 이런 문은 일반적으로 쌍으로 사용한다.

끝? 잠수함