Excel VBA读取其它excel单元格内容详细案例 Excel VBA 读取其它excel单元格内容具体案例 通过一个按钮读取其它excel表格的内容的方法 创建一个按钮 在excel表单插入按钮进入design mode后双击按钮进入宏程序编辑 Private Sub CommandButton3_Click() 调用读取外部表单的子程序 read_from_ext_excel End Sub 创建读取的子程序 子程序需要完成的任务 -在本表的单元格内读取另一个excel表格路径 -打开路径表格 -读取表格内的A1,B1内容 -关闭表格 -在本表格将读取到的内容写入到M1N1单元格。 详细代码如下 Sub read_from_ext_excel() define Excell applications定义excel应用 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim path As String excel文件的路径从当前excel的G1单元格读取 path Range(G1).Value path E:I4.0AccessSettlementList.xlsx get value from SettlementList创建读取应用并打开路径文档 Set xlApp New Excel.Application — 1 — Set xlBook xlApp.Workbooks.Open(path) get sheet content创建表单应用并指定表单编号 Dim sheet As Excel.Worksheet Set sheet xlBook.Worksheets(1) read A1 content读取表单A1的值和B1的值 Dim tmp As String tmp sheet.Range(A1) tmp1 sheet.Range(B1) close workbook读取完毕关闭工作表 xlBook.Close set M1 value 将读取到的值填充到当前工作表的M1和N1 Range(M1).Value tmp Range(N1).Value tmp1End Sub — 2 — 本文来源：https://www.wddqw.com/doc/b4ea5cba72fe910ef12d2af90242a8956becaaea.html