VBA 读取写入指定单元格

测试excel：

读取用：

         

写入用：

         

 代码：

Sub readValue()

    Dim wkBook1 As Workbook
    Dim wkSheet1 As Worksheet
    
    ' 指定excel文件
    Set wkBook1 = Workbooks.Open(ThisWorkbook.Path & "\" & "test.xlsx")
    ' 指定sheet页
    Set wkSheet1 = wkBook1.Sheets("sheet1")
    
    ' 弹出框似的弹出单元格的值
    MsgBox wkSheet1.Range("A2").Value
    
    ' 输出单元格的值
    Debug.Print "wkSheet1.Range("; A2; ").Value:" & wkSheet1.Range("A2").Value
    
    Dim wkBook2 As Workbook
    Dim wkSheet2 As Worksheet
    
    ' 指定excel文件
    Set wkBook2 = Workbooks.Open(ThisWorkbook.Path & "\" & "test.xlsx")
    ' 指定sheet页
    Set wkSheet2 = wkBook2.Sheets("sheet2")
    ' 将【wkSheet1.Range("A2").Value】的值写入单元格
    wkSheet2.Range("B2") = "sheet1 : " & wkSheet1.Range("A2").Value
    
    wkSheet2.Range("B4") = "shouDong"

    ' 关闭excel并保存
    wkBook.Close savechanges:=True    
End Sub

输出结果：

   弹出框：（MsgBox wkSheet1.Range("A2").Value）

        

 输出值：wkSheet1.Range().Value:sheet1 _2

sheet2 中的写入情况：