如何使用VBAreplace表单?
我想从工作簿中复制工作表并将其粘贴到活动工作簿的第二张工作表中。 我是新的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
尝试:
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")