如何编写可以将行从本地工作簿复制到网络驱动器中的另一个工作簿的VBA宏？

Sub CopyRowsToNetworkDrive()
    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim copyRange As Range
    Dim pasteRange As Range
    
    ' 打开本地工作簿
    Set sourceWorkbook = Workbooks.Open("C:\Path\To\SourceWorkbook.xlsx")
    
    ' 打开目标工作簿
    Set targetWorkbook = Workbooks.Open("\\Network\Path\To\TargetWorkbook.xlsx")
    
    ' 选择要复制的行
    Set copyRange = sourceWorkbook.Sheets("Sheet1").Range("A1:A10")
    
    ' 复制选定的行
    copyRange.Copy
    
    ' 切换到目标工作簿
    targetWorkbook.Activate
    
    ' 选择要粘贴的位置
    Set pasteRange = targetWorkbook.Sheets("Sheet1").Range("A1")
    
    ' 将复制的行粘贴到目标工作簿
    pasteRange.PasteSpecial Paste:=xlPasteValues
    
    ' 保存目标工作簿
    targetWorkbook.Save
    
    ' 关闭工作簿
    sourceWorkbook.Close
    targetWorkbook.Close
End Sub