从一个工作簿复制并粘贴到另一个工作簿

Question

从一个工作簿复制并粘贴到另一个工作簿

我编写了以下代码，并不断地看到以往的课堂教学方法失败了..我试图克服这个问题，但似乎什么也没有解决。我试图从一本工作簿中复制一整张工作表，并将其粘贴到另一本工作簿中：

Set x = Workbooks.Open(" path to copying book ")Workbooks.Open(" path to copying book ").Activate
Range("A1").Select'Cells.SelectSelection.CopySet y = Workbooks.Open("path to pasting book")Workbooks.Open("Path to pasting book").ActivateWith y
    Sheets("sheetname").Cells.Select
    Range("A1").PasteSpecial    'Sheets("sheetname").PasteSpecial
    .CloseEnd WithWith x    .CloseEnd With

Answer 1

你用细胞复制。如果是这样的话，不需要PasteSpecial，因为您正在以完全相同的格式复制数据。这是您的代码和一些修复。Dim x As Workbook, y As WorkbookDim ws1 As Worksheet, ws2 As WorksheetSet x = Workbooks.Open("path to copying book") Set y = Workbooks.Open("path to pasting book")Set ws1 = x.Sheets("Sheet you want to copy from") Set ws2 = y.Sheets("Sheet you want to copy to")ws1.Cells.Copy ws2.cells y.Close Truex.Close False但是，如果您确实希望粘贴特殊，请使用动态范围(“地址”)进行复制。就像这样：ws1.Range("Address").Copy: ws2.Range("A1").PasteSpecial xlPasteValues y.Close Truex.Close False注意到:后冒号.Copy这是Statement Separating性格。使用Object.PasteSpecial需要在新行中执行。希望这能让你走。