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

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

评论 1 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:1024 设计师:我叫白小胖 返回首页

打赏作者

LoveCatOne

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值