VBA Excel 사용자 양식을 VB로 변환

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

'다른 개체도 비슷한 수정을 합니다

Excel에서 VB로 데이터 가져오기

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

그런 다음 세 가지 개체를 아무것도 아닌 것으로 설정하세요

VB 2차원 배열에 Excel 데이터를 도입하는 방법

데이터베이스 쿼리 방법 사용

읽고 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 = 없음 설정

VB 전문가가 가르칩니다: 스프레드시트의 데이터를 VB로 가져오는 방법

셀 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 중국어 웹사이트의 기타 관련 기사를 참조하세요!