VBA将一行从工作簿复制到另一个

Question

我知道这个问题已经解决了很多时间，但我无法修复它。

这里是我的代码：

Sub MàJ_Pluri() 
' 
' MàJ_Pluri Macro 
' 

'chemin vers fichier pluri = chemin2 
    Range("U35").Select 
    Selection.Copy 
    Range("U36").Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 

    Dim chemin2 As String 
    chemin2 = Range("U36").Value 

    Dim chemin As String 
    Année = Range("C4").Value 

    Sheets("Création DC").Select 
    Sheets("Suivi Pluri-annuel").Visible = True 
    Rows("3:3").Select 
    Selection.Copy 

    Workbooks.Open Filename:= _ 
     chemin2 _ 
     , UpdateLinks:=0 
' 
    ActiveSheet.ShowAllData 
' 
    Dim LastRow As Integer 
    LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 
    ActiveSheet.Range("$A$2:$AT" & LastRow).AutoFilter Field:=1, Criteria1:=Année 
    Range("A2").Select 
    ActiveCell.Offset(2, 0).Select 
    ActiveCell.EntireRow.Insert 
    Range("A4").Select 
    Selection.PasteSpecial Paste:=xlPasteValues 
    Windows("Gestion DC projet V.2.2.xlsm").Activate 
    Sheets("Suivi Pluri-annuel").Select 
    ActiveWindow.SelectedSheets.Visible = False 
    Sheets("Création DC").Select 
    Range("C2:D2").Select 




End Sub 

所以basicaly，我的目标是打开工作表中的第一个工作簿，复制是怎么回事3，打开第二个工作簿中插入下面的一个空白行第二行，并粘贴在这一行（总是第四行）。除了在行中没有任何内容被复制之外，一切都在工作。

你有什么想法吗？帮助将非常感激！

谢谢！

Answer 1

首先打开工作簿，将它们分配给变量，然后执行其余的操作。

由于您正在复制并打开下一个工作簿，因此不会复制任何内容，因此复制方法会自动清除。