VBA将一行从工作簿复制到另一个
问题描述:
我知道这个问题已经解决了很多时间,但我无法修复它。VBA将一行从工作簿复制到另一个
这里是我的代码:
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,打开第二个工作簿中插入下面的一个空白行第二行,并粘贴在这一行(总是第四行)。除了在行中没有任何内容被复制之外,一切都在工作。
你有什么想法吗?帮助将非常感激!
谢谢!
答
首先打开工作簿,将它们分配给变量,然后执行其余的操作。
由于您正在复制并打开下一个工作簿,因此不会复制任何内容,因此复制方法会自动清除。
感谢您的帮助!它正在工作 – Zaboon