vb,读取excel表格数据并在listview控件中显示.pdfVIP

竭诚为您提供优质文档/双击可除

vb,读取excel表格数据并在listview

控件中显示

篇一：Vb用listView读取excel实例

Vb用listView读取excel实例

第一步：用excel创建成绩表，如下图示例

第二步：打开Vb6创建一工程、标准窗口

第三步：引用excel，在菜单栏，工程——引用，如下

图

第四步：在工具栏加载控件

microsoftwindowscommoncontrols6.0(sp6)，如下图

第五步：在标准窗口加入listview控件，控件属性设

置如下图

在“列首”标签添加字段名，如下图

第五步：编写代码

dimxlappasexcel.application

privatesubForm_load()

18

xlapp.Visible=False

xlapp.workbooks.openapp.path查找列中所有的单元

格setlitem=listView1.listitems.add()

blnnullRow=true

Forinti=1to10

iftrim$(objimportsheet.cells(intcounti,inti).Value)iftrim$(objimportsheet.cells(intcounti,inti).Value)

blnnullRow=False

endif

nextinti

若不是空行，则进行读取动作，否则继续向后遍历excel

中的行

ifblnnullRow=Falsethen

获取单元格中的数据，做有效性check，并将合法数据

创建为实体存入对象数组中

objimportsheet.cells(intcounti,1).Value

……

endif

nextintcounti

28

5、退出excel进程，并关闭excel相关操作对象

objexcelFile.quit

setobjworkbook=nothing

setobjimportsheet=nothing

setobjexcelFile=nothing

篇三：vb代码读取excel数据源

取得excel文件所有内容：

addmicrosoftadofrist.

privatesubcommand2_click()

dimadoconnectionasnewadodb.connection

dimadoRecordsetasnewadodb.Recordset

commondialog1.showopen

oledb+odbcdriver方式:

microsoft.jet.oledb.4.0方式,(建)

;persist

38

on,adopenkeyset,adlockoptimistic

debug.printadoRecordset.Recordcount

dimiasinteger

dountiladoRecordset.eoF

Fori=0toadoRecordset.Fields.count-1

debug.pr