Batch Import of CSVs into workbook as individual worksheets

Hey Everyone, I am trying to import a series of csv files into a workbook with worksheets for each csv file. Right now I have figured out how to import all of them into a single worksheet, but I ...

excel

Formulas and Functions

office 365

Berndvbatanker

Iron Contributor

Jun 25, 2019

wynns2008

Hi, try this.

Sub ReadCSV()
Dim strFolder As String
Dim strFile As String
Dim wksTab As Worksheet
Dim wkbSource As Workbook

strFolder = ThisWorkbook.Path & "\"
strFile = Dir(strorder & "*.csv")

Do While strFile <> ""
Debug.Print strFile
Workbooks.OpenText Filename:=strFolder & strFile, Semicolon:=True, local:=True
Set wkbSource = ActiveWorkbook
ThisWorkbook.Worksheets.Add
wkbSource.Worksheets(1).UsedRange.Copy Destination:=ThisWorkbook.ActiveSheet.Range("A1")
wkbSource.Close savechanges:=False
strFile = Dir
Loop

End Sub