엑셀 매크로를 사용하여 작은 데이터베이스 쿼리 시스템을 만드는 방법

Sub C5C 15_B3B 13 ()

Dim Fo 는 객체로, myName 은 문자열로

Fo = 응용 프로그램을 설정합니다. 파일 대화상자 (msoFileDialogFilePicker)

Fo. 제목 = "C5: C 15 데이터를 복사할 파일 선택:"

만약 Fo 라면. Show = True Then myName = Fo 입니다. 항목 선택 (1)

내 이름이 "그럼

MsgBox "파일 선택을 취소했기 때문에 이 처리가 완료되지 않았습니다. 바로 종료합니다.", vbo only+VB information.

출구 커넥터

만약 ... 끝날거야

Wb 를 통합 문서로 설정

통합 문서의 각 WB 에 대해 다음을 수행합니다

Wb 인 경우. Fullname = myName, wbHasOpened 로 이동합니다

그리고 나서

Set WB = workbooks. open(my name)

WbHasOpened:

Sh 를 워크시트로 표시

Wb.sheets 의 각 sh 에 대해 다음을 수행합니다

Sh.name = "음성 품질" 인 경우

[B3: b13] = sh. [c5:c 15]. 가치

수출대상

만약 ... 끝날거야

그리고 나서

Msgbox "처리가 완료되었습니다!"

정말 닫다

끝단 접합