批量複製多個CVS文件並將其轉置為一個匯總Excel工作表

大家好，

這是我在這個論壇上的第一個問題，因為我遇到了一個真正的撓頭..

我正在嘗試改編一個 VB 代碼，發佈於 https://www.extendoffice.com/documents/excel/3388-excel-import-multiple-text-csv-xml-files.html#a2 從同一目錄導入多個 CVS 文件並將它們轉置到單個 Excel 工作表中。

源文件都位於同一個文件夾中。
源文件有3列數據，但只需要導入1列，
導入的數據將被轉置並放置在目標工作表的下一個空行中。

我修改後的代碼太亂了，我什至不想在這裡粘貼它，但是您可以找到兩個示例輸入 CVS 文件和一個所需的輸出 XLSX 文件。

感謝您提前幫助。