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

首先打開工作簿，將它們分配給變量，然後執行其餘的操作。

由於您正在複製並打開下一個工作簿，因此不會複製任何內容，因此複製方法會自動清除。