Private Sub getValue_Click()
Dim MyWorkbook As Workbook
Set MyWorkbook = Application.Workbooks.Open("C:\Users\jiangwenwen\Desktop\VBAテスト\テスト２.xlsx")
ThisWorkbook.Sheets("Sheet1").Range("A1").value = MyWorkbook.Sheets("Sheet1").Range("C7").value
MsgBox (MyWorkbook.Sheets("Sheet1").Range("C7").value)
End Sub
相关文章：
- （七）POI-读取excel，遍历一个工作簿 2022-12-23
- 把Excel工作簿的每个工作表提取出来保存为新工作簿 2021-10-27
- VBA汇总同目录下的所有工作簿数据到另一个工作簿，并进行统计 2022-12-23
- 如何将一个工作簿中多个工作表拆分成独立的工作簿 2021-12-15
- 在Excel里如何将多个工作簿合并到一个工作簿中 2021-12-29
- 如何快速的合并多个 Excel 工作簿成为一个工作簿 2021-12-29
- Excel合并多个工作簿和拆分多个工作簿 2021-12-05
- WPS 合并一个工作簿中多个工作表 2021-11-26