批量复制多个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 文件。

感谢您提前提供的所有帮助。