用vb读取excel表中的数据。在线等候...

[jl_ronnie]

我需要读取一个excel表中的数据，这个表格很规整，在vb中怎么实现呢？
应该时能读到每个cell中的数据吧？

[liutiejiang]

可以应用excel.application的方法，但是这种方法运行速度很慢
如果你能下载formula one 控件的话，利用这个控件来读取excel文件速度及快，利用它的readex方法。

[forever_chang]

Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet

　　3、在程序中操作EXCEL表常用命令：

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

[hj0849cn]

Dim ExlNew As Excel.Application
Dim WorkNew As Excel.Workbook
Dim SheetNew As Excel.Worksheet
Set ExlNew = CreateObject("excel.application")
Set WorkNew = ExlNew.Workbooks.Open("c:\test.xls")
ExlNew.Visible = True
Set SheetNew = WorkNew.Worksheets(1)

SheetNew.Cells(i,j)就是每一个CELL里面的数据