VBA実行時エラー '1004'：Worksheetクラスの貼り付けメソッドが失敗しました

Question

最初はこのコードは「正常に動作しています」。つまり、情報は宛先に貼り付けられますが、正しいセルには貼り付けられず、空の行をスキップする代わりに適切な細胞に正しくペーストするようになったら、もはや働きたくありません。

これはかなり簡単な問題だと確信していますが、私は迷っています。私はそれを入れているように、単一の私が監視できるワークブックおよびプロセス情報に、そのユーザーが入力データであろう4つの異なるワークブックからデータを統合しようとしている：すべてのヘルプは大

Private Sub CommandButton1_Click() 

Dim Myfile As String 
Dim erowFilepath = ("C:\Users\YOU DONT NEED TO SEE THIS PART\Desktop\LINKED TRACKERS\") 
Myfile = Dir("C:\Users\OR THIS PART\Desktop\LINKED TRACKERS\") 

Do While Len(Myfile) > 0 
    If Myfile = "COMPANY_CYCLE.xlsm" Then 
     Exit Sub 
    End If 

    Workbooks.Open (Filepath & Myfile) 
    Worksheets("ROSTER").Range("A3:O3").Copy 
    ActiveWorkbook.Save 
    ActiveWorkbook.Close 

    erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 
    ' ***The line below is the line I get an error*** 
    ActiveSheet.Paste Destination:=Worksheets("MANNINGROSTER").Range(Cells(erow, 1), Cells(erow, 1)) 

    Myfile = Dir 
Loop 

End Sub 

かいつまんをいただければ幸いです一日一日。

問題は、ソースワークシートがパスワードで保護されていること、および貼り付け先が4つのワークブックすべてで同じであることは間違いありません。

私は、これを修正する方法を見つけ出すことはできません。 erowFilepathは=（C：\ユーザーは、あなたがこのパート\ Desktopを確認する必要がいけない1つの\誤差を補正することが宣言erowFilepath、 `薄暗いerowFilepathへの変更を必要とするなど、

Answer 1

Private Sub CommandButton1_Click() 

    Dim Myfile As String, Filepath As String 
    Dim wb As Workbook, rng As Range 

    Myfile = Dir("C:\Users\OR THIS PART\Desktop\LINKED TRACKERS\") 
    Filepath = ("C:\Users\YOU DONT NEED TO SEE THIS PART\Desktop\LINKED TRACKERS\") 

    Do While Len(Myfile) > 0 

     If Myfile Like "*.xls*" And UCase(Myfile) <> "COMPANY_CYCLE.XLSM" Then 

      Set wb = Workbooks.Open(Filepath & Myfile) 
      Set rng = wb.Worksheets("ROSTER").Range("A3:O3") 

      'EDIT: copy values only, (when there's something to copy) 
      If Application.CountA(rng) > 0 Then 
       With Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) 
        .Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value 
       End With 
      End If 
      'Note: if there's nothing in ColA for the copied range, this will 
      ' throw off the next copy and you may end up overwriting data... 

      wb.Close False 

     End If 
     Myfile = Dir 
    Loop 

End Sub