最初のワークシートをCSVファイルからマクロ対応ワークブックにコピー

Question

複数のCSVファイルを1つのExcelワークブックに集約します.CSVごとに1つのワークシートです。手動でコピー先のワークブック（Target.xlsx）を開き、CSV（Source.csv）を開き、CSVファイルの唯一のタブを右クリックしてMove or Copyを選択し、To book:フィールドをTarget.xlsxに変更し、Before sheet:をSheet3に変更します、Create a copyにチェックを入れ、CSVファイルを閉じます。ここで私はこれを行うに書いたコードです：実行時

Set wbTarget = ThisWorkbook 
Set wbSource = ActiveWorkbook 
wbSource.Sheets(1).Copy Before:=Workbooks(wbTarget).Sheets("Sheet3") 'Type Mismatch 
wbSource.Close 
wbTarget.Save 

が、私はwbTarget.FullNameとwbSource.FullNameを印刷するとき、私は正しいファイルを参照してくださいライン3の「型が一致しません」というエラーが表示されますので、私は何を理解していません不一致です。私が開いているCSVファイルに関係なく機能するように、2行を一般的なままにしておきます。

Answer 1

変更

wbSource.Sheets(1).Copy Before:=Workbooks(wbTarget).Sheets("Sheet3") 

wbSource.Sheets(1).Copy Before:=wbTarget.Sheets("Sheet3") 

---

に Workbooksオブジェクトは、インデックス、唯一の文字列または整数として Workbookオブジェクトを持つことができませんので、 Workbooks(wbTarget)は無効な構文です。