EXCEL 에서 VBA 를 사용하여 동일한 통합 문서에 있는 여러 워크시트의 컨텐츠를 ACCESS 의 한 테이블로 가져오는 방법은 무엇입니까?

Sub? Ttt ()

암담한가? 조타 장치를 지휘하다

설정? 콘? =? CreateObject("adodb.connection ")

콘. 연결선? =? "공급업체 = Microsoft. Jet. OLEDB.4.0 데이터? Source=E:\Test.mdb "

제어실이 열리다

통제실. 실행? "삽입? 로? 테이블명 (a, b, c)? 선택? *? 어디서 왔어요? [엑셀? 8.0; 데이터베이스 = "? & amp? ActiveWorkbook. 전체 이름? & amp? " ]. [표 1$] "

통제실. 실행? "삽입? 로? 테이블명 (b, d, e)? 선택? *? 어디서 왔어요? [엑셀? 8.0; 데이터베이스 = "? & amp? ActiveWorkbook. 전체 이름? & amp? " ]. [표 2$] "

통제실. 실행? "삽입? 로? 테이블명 (a, d)? 선택? *? 어디서 왔어요? [엑셀? 8.0; 데이터베이스 = "? & amp? ActiveWorkbook. 전체 이름? & amp? " ]. [표 3$] "

통제실을 닫다

설정? 콘? =? 아무것도 없다

끝? 위의 코드는 엑셀로 쓴 것이다.

E: ₩ test.mdb 는 access 데이터베이스의 전체 경로이고 테이블 이름은 access 대상 테이블의 이름입니다.

이 코드는 SQL 명령을 세 번 실행하여 세 개의 테이블을 가져옵니다.