怎么在VB中读取excel的数据

Question

如题所述

Answer 1

sub test()
Set xlsApp=GetObject(,"excel.application")
if xlsApp Is Nothing then exit sub
msgbox xlsApp.ActiveCell.Value
end sub

用Set xlsApp=GetObject(,"excel.application")可以获得当前打开的excel程序
可以用xlsApp.workbooks(i)表示第i个打开的工作簿（也就是.xls文件）
再往下是xlsApp.workbooks(i).sheets(j)表示上述工作簿的第j个工作表
再往下是xlsApp.workbooks(i).sheets(j).cells(rowIndex, ColIndex)表示上述工作表rowIndex行,ColIndex列的单元格，或者用类似xlsApp.workbooks(i).sheets(j).range("A1:B10")取得上述工作表中的A1:B10区域
如果在装office的时候选上“VBA帮助文件”，可以进excel后按alt + F11进入“Microsoft Visual basic”编辑器，然后按F1查看帮助中关于Excel对象模型以及相关对象、属性、方法、事件的介绍

Answer 2

添加引用 Microsoft Excel ，可以自由操纵Excel
使用SQL语言，把Excel当作一个数据库来读取

Answer 3

excel可以另存为TXT格式的，VB打开TXT格式的会把。
fn = FreeFile
Open Trim$(“路径") For Input As #fn
Do Until EOF(fn)
Input #fn, stra
loop
close #fn本回答被网友采纳