Excelvba从另一个工作簿取值

Private Sub getValue_Click()

Dim MyWorkbook As Workbook
Set MyWorkbook = Application.Workbooks.Open("C:\Users\jiangwenwen\Desktop\VBAテスト\テスト2.xlsx")

ThisWorkbook.Sheets("Sheet1").Range("A1").value = MyWorkbook.Sheets("Sheet1").Range("C7").value
MsgBox (MyWorkbook.Sheets("Sheet1").Range("C7").value)

End Sub

转载于:https://www.cnblogs.com/jiangwenwen1/p/10294566.html

  • 0
    点赞
  • 0
    评论
  • 6
    收藏
  • 扫一扫,分享海报

参与评论 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值