vb如何读取当前活动的excel单元格的数据？

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