在不同的工作簿之間復制粘貼

Question

嗨，我想將范圍復制並粘貼到mainworkbook，但是，范圍粘貼在babyworkook8上。 請幫忙

Option Explicit
Dim mainworkbook As Workbook
Dim babyworkbook8 As Workbook


Sub Copypaste()
Set babyworkbook8 = Workbooks.Open("\\C:\IT Charges\IT Charges August.xlsx")

babyworkbook8.Sheets("Sheet1").Range("D4:F27").Copy
Set mainworkbook = Workbooks.Open("\\C:\Users\ivan\Desktop\IT Charges\IT 
Summary Charges.xlsm")


mainworkbook.Sheets("Sheet1").Range("R1").PasteSpecial


End Sub

Answer 1

這有點長，但是它清楚地定義了源和目標范圍：

Sub CopyPaste()
    Dim SourceBook As Workbook
    Dim DestBook As Workbook
    Dim SourceSheet As Worksheet
    Dim DestSheet As Worksheet
    Dim SourceRange As Range
    Dim DestRange As Range

    Set SourceBook = Workbooks.Open("\\C:\IT Charges\IT Charges August.xlsx")
    Set DestBook = Workbooks.Open("\\C:\Users\ivan\Desktop\IT Charges\IT Summary Charges.xlsm")
    Set SourceSheet = SourceBook.Sheets("Sheet1")
    Set DestSheet = DestBook.Sheets("Sheet1")
    Set SourceRange = SourceSheet.Range("D4:F27")
    Set DestRange = DestSheet.Range("R1")

    SourceRange.Copy DestRange

End Sub