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

你可能感兴趣的:(Excelvba从另一个工作簿取值)