1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；
2、运行前，在菜单的选“工程”->“引用”->找到MicrosoftExcel12.0ObjectLibrary->确定；然后才可以运行；
3、代码如下：DimExAppAsNewExcel.ApplicationDimExbAsExcel.WorkbookDimExshAsExcel.WorksheetDimarr(6,6)AsInteger'定义一个二维数组，数据类型为整数ExApp.Workbooks.Open"c:ook1.xls"'打开EXEL文件，路径和文件名自己根据实际修改SetExb=ExApp.Workbooks(1)SetExsh=Exb.Worksheets("Sheet1")Fori=1To6'假设是读取A1:F6的6X6区域数据Forj=1To6arr(i,j)=Exsh.Cells(i,j)NextjNexti'把自己需要对数组数据进一步处理的部分加进去...ExApp.Workbooks.CloseExApp.QuitSetExApp=Nothing
