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