【vc怎么显示excel】VB读取EXCEL表格

今天介绍说，VB读取EXCEL表，读取A列和B列的数据进行判断，得出C列的数据。

4个新组合控件、1个COMBO控件、1个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 Integer

公开赛艾尔

Tex=xl(1，1)

Tex=xl(2，1)

Tex=xl(3，1)

End Sub

Private Sub openEl()

Dim myPath As String

MyPath='\book.xlsx '

set xlapp=createobject(' excel . application ')

Set xlBook=xlA myPath)

set XL sheet=xlbook . worksheets(' sheet 1 ')

set ek sheet=El books . worksheets(1)

XlA=False

End Sub

选择“Private Sub Command2_Click()”判断

For I=1至18

If xl(i，1)=Combo1。Text Then

If xl(i，2)=Combo2。Text Then

Tex=xl(i，3)

Exit Sub

End If

End If

Next I

End Sub

Private Sub Form_Load()

公开赛艾尔

Combo1。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