如何將范圍從一個工作簿復制到另一個工作簿

Question

我想從 Outlook 打開的兩個工作簿中復制一個范圍，擴展名為 xls 和 xlsx。 進入另一個 excel 工作簿的特定工作表。

下面是我的代碼。 粗體字是我的代碼中斷的地方，並顯示消息“下標超出范圍” ThisWorkbook.Worksheets("Sheet13").Range("A:AR").Paste

僅供參考，工作簿是在我運行腳本之前打開的。 預期的目標工作簿是“標記工作簿 v4.0.0.xlsm”

Sub easyUpdate()
Application.ScreenUpdating = False
    'Remove formula from last row resolve and queue
    Dim rng As Range, cell As Range, R As Range
    Set rng = ThisWorkbook.Worksheets("Slide 1 Chart 1").Range("C:C").SpecialCells(xlCellTypeVisible)

    For Each R In rng
        If R.Value <> "" Then
            Set cell = R
        End If
    Next R

    cell.Value = cell.Value
    
        Set rng = ThisWorkbook.Worksheets("Slide 1 Chart 1").Range("D:D").SpecialCells(xlCellTypeVisible)

    For Each R In rng
        If R.Value <> "" Then
            Set cell = R
        End If
    Next R

    cell.Value = cell.Value
    
'clear source sheets and move data from current to previous source
ThisWorkbook.Worksheets("Previous Day Incident Source").Range("A:AR").ClearContents
Sheets("CCDR Source").Cells.Clear
Sheets("Handle Times Source").Cells.Clear
Sheets("Agent Detail Source").Cells.Clear
Sheets("Current NSF Request Source").Cells.Clear
ThisWorkbook.Worksheets("Tasks INC_REQ Source").Range("A:Q").ClearContents
Sheets("Queue Delta Source").Cells.Clear

ThisWorkbook.Worksheets("Current Incident Source").Range("A:AR").Copy Destination:=ThisWorkbook.Worksheets("Previous Day Incident Source").Range("A:AR")
ThisWorkbook.Worksheets("Current Incident Source").Range("A:AR").Copy
ThisWorkbook.Worksheets("Previous Day Incident Source").activate
ThisWorkbook.Worksheets("Previous Day Incident Source").Range("A:AR").Select
ThisWorkbook.Worksheets("Previous Day Incident Source").Paste

ThisWorkbook.Worksheets("Current Incident Source").Range("A:AR").ClearContents

'Copy range to clipboard
Workbooks("Tag Up Incident Source Dump.xlsx").Worksheets("Page 1").Range("A:AR").Copy
'PasteSpecial to paste values, formulas, formats, etc.
ThisWorkbook.Worksheets("Sheet13").Range("A:AR").Paste

'Copy range to clipboard
Workbooks("Tag Up CCDR Abandon Call Report.xls").Worksheets("Tag Up CCDR Abandon Call Report").Range("A:R").Copy
'PasteSpecial to paste values, formulas, formats, etc.
ThisWorkbook.Worksheets("Sheet10").Range("A:R").Pastets, etc.
ThisWorkbook.Worksheets("Sheet10").Range("A:R").Paste

Answer 1

在 BigBen 的幫助下，“您可以使用 ThisWorkbook.Sheets("theactualsheetname")，也可以只使用 Sheet13（沒有 ThisWorkbook）。“yoursheetname”是工作表的名稱，“Sheet13”是代號。– BigBen 1 小時前”

將范圍復制到剪貼板 Workbooks("Tag Up Incident Source Dump.xlsx").Worksheets("Page 1").Range("A:AR").Copy 'PasteSpecial 以粘貼值、公式、格式等 ThisWorkbook.Worksheets ("Current Incident Source").activate ThisWorkbook.Worksheets("Current Incident Source").Range("A:AR").Select ThisWorkbook.Worksheets("Current Incident Source").Paste –