집 > 기사 > 소프트웨어 튜토리얼 > VBA Excel 사용자 양식을 VB로 변환
텍스트 편집기로 FRM 파일을 엽니다.
버전 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 'Begin VB.Form Form1로 수정해야 합니다
캡션 = "UserForm1"
클라이언트 높이 = 3120
클라이언트왼쪽 = 45
클라이언트탑 = 435
클라이언트 너비 = 4710
OleObjectBlob = "UserForm1.frx":0000 '이 줄을 제거하세요
StartUpPosition = 1 '오너 센터
끝
속성 VB_Name = "UserForm1"
속성 VB_GlobalNameSpace = False
속성 VB_Creatable = False
속성 VB_PredeclaredId = True
속성 VB_Exposed = False
'다른 개체도 비슷한 수정을 합니다
VB에서 Excel을 호출하려면 VB 프로그래밍 환경의 "프로젝트" 메뉴에서 "참조" 항목을 열고 프로젝트에서 "MicrosoftExcel 11.0 개체 라이브러리" 항목을 선택해야 합니다. Excel 버전이 다르기 때문에 이 옵션의 버전 번호도 다릅니다.
EXCEL은 객체를 계층 구조로 구성하기 때문에 객체 모델에는 다양한 객체 요소가 포함되어 있습니다.
첫 번째 레이어: 응용 프로그램 개체, 즉 Excel 자체
두 번째 레이어: 통합 문서 개체 집합, Excel 통합 문서 파일을 참조
세 번째 레이어: Excel의 워크시트를 나타내는 워크시트 개체 집합
레벨 4: Excel 워크시트의 셀을 가리키는 셀 및 범위 개체.
Dim xlapp As Excel.Application 'Excel 개체
Dim xlbook As Excel.Workbook '워크북
Dim xlsheet As Excel.Worksheet '워크시트
Set xlapp = CreateObject("Excel.Application") 'EXCEL 객체 생성
Set xlbook = xlapp.Workbooks.Open("D:data.xls") '기존 data.xls 통합 문서 파일을 엽니다
xlapp.Visible = True 'EXCEL 객체가 보이도록(또는 보이지 않게) 설정
Set xlsheet = xlbook.Worksheets(1) '활성 워크시트 설정''
''~~~현재 통합 문서의 첫 번째 시트를 여기서 "Sheet1"과 같은 "시트 이름"으로 변경할 수도 있습니다
【배열 부분을 직접 정의할 수 있습니다】
테이블의 셀 값을 배열의 요소와 같은 변수에 할당
arr(1,1)=xlsheet.Range("B2").Value
…
마지막 마감일:
xlbook.Close
xlapp.quit
그런 다음 세 가지 개체를 아무것도 아닌 것으로 설정하세요
데이터베이스 쿼리 방법 사용
읽고 2차원 배열에 넣어보세요
새로운 ADODB.Connection으로 Dim cnn2
Dim rs2를 새로운 ADODB.Recordset으로
cnn2.Open "공급자=Microsoft.Jet.OLEDB.4.0;보안 정보 유지=False;데이터 소스=" & Text1.Text & ";확장"
rs2.Open "[sheet1$]에서 이름, 성별 선택", cnn2, adOpenKeyset, adLockOptimistic
i=0
s = rs2.ields.Item(0).Value '시트1의 이름과 성별을 읽어옵니다
IsNull(s)이면 Do를 종료하세요
a(i)=rs2.fields.Item(0).Value '이름
b(i)=rs2.Fields.Item(1).Value 'Gender
i=i+1
rs2.MoveNext
루프
rs2 설정 = 없음
cnn2 = 없음 설정
셀 A2를 읽는 코드: (데이터는 변수 R에 있으며, 프로젝트 전에 MICROSOFT EXCEL OBJECT LIBRARY를 인용해야 합니다.)
Private excelApp은 excel.Application으로
비공개 하위 명령2_Click()
ExcelApp 설정 = 새로운 excel.Application
excelApp.Visible = True
excelApp.Workbooks.Open FileName:="C:student.xls"
excelApp.Range("A2").Select
r = excelApp.ActiveCell.FormulaR1C1
디버그.인쇄 r
excelApp.Quit
excelApp = 없음 설정
끝 서브
'모든 사람이 EXCEL 인터페이스를 볼 수 없도록 하려면 excelApp.Visible = True를 제거하면 됩니다.
위 내용은 VBA Excel 사용자 양식을 VB로 변환의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!