VBDIM(VBdim a asinteger)速看

今天介绍VB读取EXCEL表格，通过读取A列和B列的数据，进行判断，得出C列的数据新建四个COMBO控件，和一个COMMAND控件，一个TEXT

今天介绍VB读取EXCEL表格，通过读取A列和B列的数据，进行判断，得出C列的数据新建四个COMBO控件，和一个COMMAND控件，一个TEXT控件打开FORM时，combo1控件显示EXCEL A列的所有数据，combo1控件显示EXCEL B列的所有数据，点击command1,TEXT1显示C列的数据；

代码如下：Dim xlApp As Excel.Application 定义EXCEL类Dim xlBook As Excel.Workbook 定义工件簿类Dim xlsheet As Excel.Worksheet 定义工作表类

Dim TblMap_Card 创建一个变量Private Sub Command1_Click()Dim i As IntegeropenElText1.Text = xlsheet.Cells(1, 1)

Text2.Text = xlsheet.Cells(2, 1)Text3.Text = xlsheet.Cells(3, 1)End SubPrivate Sub openEl()Dim myPath As String

myPath = "\book.xlsx"Set xlApp = CreateObject("Excel.Application")Set xlBook = xlApp.Workbooks.Open(App.Path & myPath)

Set xlsheet = xlBook.Worksheets("sheet1")Set ekSheet = elBooks.Worksheets(1)xlApp.Visible = FalseEnd Sub

Private Sub Command2_Click() 选择判断For i = 1 To 18 If xlsheet.Cells(i, 1) = Combo1.Text Then If xlsheet.Cells(i, 2) = Combo2.Text Then

Text4.Text = xlsheet.Cells(i, 3) Exit Sub End If End IfNext iEnd SubPrivate Sub Form_Load()openElCombo1.AddItem "11"

Combo1.AddItem "22"Combo1.AddItem "33"Combo1.AddItem "44"Combo1.AddItem "55"Combo1.AddItem "66"Combo2.AddItem "10"

Combo2.AddItem "20"Combo2.AddItem "30"End Sub