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


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM