excel - Excelファイル間で値をコピーするVBA

Question

同じディレクトリにあるさまざまな Excel ファイルからの行を連結するマクロに取り組んでいます。現在のバージョンは次のとおりです。

Sub Compilation()
Dim Temp As String
Dim Ligne As Long
Temp = Dir(ActiveWorkbook.Path & "\*.xls")
Application.DisplayAlerts = False
Do While Temp <> ""
If Temp <> "Recap.xls" Then
Workbooks.Open ActiveWorkbook.Path & "\" & Temp
Workbooks(Temp).Sheets(1).Range("A2").CurrentRegion.Copy
Workbooks("Recap.xls").Sheets(1).Activate
Ligne = Sheets(1).Range("A65536").End(xlUp).Row + 1
Range("A" & CStr(Ligne)).Select
ActiveSheet.Paste
Workbooks(Temp).Close
End If
Temp = Dir
Loop
Range("A1").Select
Application.DisplayAlerts = True
end sub

マクロが次のような数式をコピーすることを除いて、問題なく機能しています。

代わりに値をコピーしたい。だから私は行を変更して2行目から始めようとしましたが、うまくいきません.誰かが私を助けてくれます.