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