คัดลอกและแปลงไฟล์ 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 เอาต์พุตที่ต้องการแนบมาด้วย

ขอขอบคุณสำหรับความช่วยเหลือทั้งหมดล่วงหน้า