複数のCVSファイルをXNUMXつの要約Excelシートにバッチコピーして転置する

こんにちは、みんな、

私は本物のヘッドスクラッチャーに出くわしたので、これはこのフォーラムでの私の最初の質問です。

私はVBコードを適応させようとしています。 https://www.extendoffice.com/documents/excel/3388-excel-import-multiple-text-csv-xml-files.html#a2 同じディレクトリから複数のCVSファイルをインポートし、それらをXNUMXつのExcelワークシートに転置して配置します。

ソースファイルはすべて同じフォルダにあります。
ソースファイルには3列のデータがありますが、インポートする必要があるのは1列だけです。
インポートされたデータは転置され、ターゲットワークシートの次の空の行に配置されます。

私の変更したコードは非常に乱雑なので、ここに貼り付けたくありませんが、XNUMXつのサンプル入力CVSファイルと目的の出力XLSXファイルが添付されています。

よろしくお願いします。