Excel VBA读取其它excel单元格内容详细案例_LoveCatOne的博客-CSDN博客

本文链接：https://blog.csdn.net/weixin_43829604/article/details/113239269

Excel VBA 读取其它excel单元格内容详细案例

通过一个按钮读取其它excel表格的内容的方法：

创建一个按钮

在excel表单插入按钮，进入design mode后双击按钮进入宏程序编辑

   ```
   Private Sub CommandButton3_Click()
       '调用读取外部表单的子程序
       read_from_ext_excel
       
   End Sub

创建读取的子程序
子程序需要完成的任务：
-在本表的单元格内读取另一个excel表格路径
-打开路径表格
-读取表格内的A1,B1内容
-关闭表格
-在本表格将读取到的内容写入到M1，N1单元格。

具体代码如下：

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.0\Access\SettlementList.xlsx"
    
    'get value from SettlementList创建读取应用并打开路径文档
    Set xlApp = New Excel.Application
    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 = tmp1

End Sub