VBA從一個工作簿復制並粘貼到另一個工作簿

Question

工作：將RANGE從一個WORKBOOK復制到另一個（另一個工作簿存在且需要打開）

1. 復制范圍：

    `Worksheets("paste").Range("A2:BD500").SpecialCells(xlCellTypeVisible).Copy` 

2. 打開新文件：

   Workbooks.Open Filename:="C:\\Test\\test.xlsx", WriteResPassword:="WriteFile"

3. 激活工作表並粘貼@RANGE A6

   Windows("test.xlsx").Activate Selection.Range("A6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

問題：它不會粘貼在A6 !!!! 它進入任何細胞!!!!

Answer 1

如果test.xlsx工作簿中的當前選擇打開到D5，則使用Selection.Range("A6")引用D10，而不是A6。

Dim wb As Workbook

Set wb = Workbooks.Open(Filename:="C:\Test\test.xlsx", WriteResPassword:="WriteFile")

With Worksheets("paste")
    .Range("A2:BD500").SpecialCells(xlCellTypeVisible).Copy
    wb.Worksheets(1).Cells(6, "A").PasteSpecial xlPasteValues
End With

請參見如何避免在Excel VBA宏中使用“選擇” 。 打開工作簿時，不應該依賴靜態單元格或單元格作為當前選擇。

Answer 2

在工作簿之間復制特定范圍的簡單方法：

Workbooks(source).Worksheets("Sheet1").Range("A2:BD500").Copy _
    Workbooks(destination).Worksheets("Sheet1").Range("A6")