VBAを使用したループ内のフォルダ間でコピーと貼り付け

Question

あるブックから別のブックにデータの範囲をコピーして貼り付けるループを作成しようとしています。エラー'Select Sheet method not proper'が表示されたり、エラーメッセージが何であっても表示されません。これは私がこれまで持っているものです。

folderpath="insert folder path here" 
Filename = Dir(folderPath) 
Do While Filename <> "" 

Set wb = Workbooks.Open(folderPath & Filename) 

wb.Worksheets("Outcomes & Factors Rankings").Select 
Range("A3", Range("A3").End(xlDown).Offset(0, 6)).Copy 
ThisWorkbook.Worksheets("OutcomeFactorRankings").Select 
Range("A1").End(xlDown).Offset(1, 0).Select.Paste 

wb.Close 

Loop 

Answer 1

は、あなたがそのようなことは、あなたの問題を解く必要があり、簡素化し、あなたのコード内のすべてのものを選択する必要はありません、あなたのコードをインデントしてください：

folderPath = "insert folder path here" 
    Filename = Dir(folderPath) 

    Do While Filename <> "" 
     Set wb = Workbooks.Open(folderPath & Filename) 
     wb.Worksheets("Outcomes & Factors Rankings").Range("A3", Range("A3").End(xlDown).Offset(0, 6)).Copy 
     ThisWorkbook.Worksheets("OutcomeFactorRankings").Range("A1").End(xlDown).Offset(1, 0).Paste 
     wb.Close 
    Loop