vbaexceluserform轉(zhuǎn)為vb
用文本器打開FRM文件，
VERSION5.00
Begin{C62A69F0-16DC-11CE-9E98-00AA00574A4F}UserForm1'這里需要修改成BeginVB.FormForm1
Caption=＂UserForm1＂
ClientHeight=3120
ClientLeft=45
ClientTop=435
ClientWidth=4710
OleObjectBlob=＂UserForm1.frx＂:0000'這行去掉
StartUpPosition=1'所有者中心
End
AttributeVB_Name=＂UserForm1＂
AttributeVB_GlobalNameSpace=False
AttributeVB_Creatable=False
AttributeVB_PredeclaredId=True
AttributeVB_Exposed=False
'其他對象也做類似修改
把excel中的數(shù)據(jù)導入到VB中
在VB中要想調(diào)用Excel，需要打開VB編程環(huán)境“工程”菜單中的“引用”項目，并選取項目中的“MicrosoftExcel11.0objectlibrary”項。由于你的Excel版本不同，所以這個選項的版本號也是不同的。
因為EXCEL是以層次結(jié)構(gòu)組織對象的，其對象模型中含有許多不同的對象元素。
第一層：Application對象，即Excel本身；
第二層：workbooks對象集，指Excel的工作簿文件
第三層：worksheets對象集，表示的是Excel的一個工作表；
第四層：Cells和Range對象，指向Excel工作表中的單元格。
DimxlappAsExcel.Application'Excel對象
DimxlbookAsExcel.Workbook'工作簿
DimxlsheetAsExcel.Worksheet'工作表
Setxlapp=CreateObject(＂Excel.Application＂)'創(chuàng)建EXCEL對象
Setxlbook=xlapp.Workbooks.Open(＂D:data.xls＂)'打開已經(jīng)存在的data.xls工件簿文件
xlapp.Visible=True'設置EXCEL對象可見（或不可見）
Setxlsheet=xlbook.Worksheets(1)'設置活動工作表''
''~~~當前工作簿的第一個表，這里也可以換成“表名”比如“Sheet1”
【數(shù)組部分自行定義】
將表中某個單元格中的值賦值給一個變量，比如數(shù)組中的一個元素
arr(1,1)=xlsheet.Range(＂B2＂).Value
……
如何將excel數(shù)據(jù)引入vb二維數(shù)組中
用數(shù)據(jù)庫的查詢方式
讀取出來放入到二維數(shù)組中
Dimcnn2AsNewADODB.Connection
Dimrs2AsNewADODB.Recordset
cnn2.Open＂Provider=Mi