vba - 如何使用 VBA 替换工作表？

Question

我想从工作簿中复制一张工作表并将其粘贴到我事件工作簿的第二张工作表中。我是 vba 新手，看起来并不难，但我的代码不起作用。复制的工作表在新工作簿中打开，而不是在我的事件工作簿中。

谢谢你的帮助 !

我的代码:

Sub copyPaste()

  Dim classeur1 As Excel.Workbook
  Dim classeur2 As Excel.Workbook

  Set classeur1 = Workbooks.Open("Macintosh HD:Users:LouiseDhainaut:Documents:Stage:test_modifiable.xlsx")
  Set classeur2 = ThisWorkbook

  classeur1.Sheets(1).Copy
  classeur1.Sheets(1).Paste Destination:=ThisWorkbook.Sheets(2).Range("A1")


  classeur2.Save
  classeur1.Close

End Sub

Answer 1

尝试:

classeur1.Sheets(1).Copy Before:=ThisWorkbook.Sheets(2)

而不是

classeur1.Sheets(1).Copy
classeur1.Sheets(1).Paste Destination:=ThisWorkbook.Sheets(2).Range("A1")

尽管请注意复制整个工作表将复制整个工作表，而不仅仅是其中的内容。

如果您只想复制内容，则需要不同的代码，例如:

classeur1.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(2).Range("A1")