怎么在VB中读取excel的数据

怎么在VB中读取excel的数据

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

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

dim a(3, 3) as intege for i = 1 to 3 for j = 1 to 3 '这步是利用a到c之间的ascii码来处理，如果是i循环1,5的话，那就会是a,b,c,d,e,内循环j管a3~a5, a(i, j) = int(xlsheet.range(chr(asc("a")+i-1)) & cstr(j+2)) next j, i

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对象模型以及相关对象、属性、方法、事件的介绍