Importing CSV Files from a folder

[Kentucky_User]

Hi Everyone,

I am trying to create a macro that will allow me to selected multiple CSV files in a folder to import into an EXCEL spreadsheet. The CSV files are already in an EXCEL worksheet after being downloaded from another database. There are four columns of data in each file that I want to import.

What would be the best way to approach this problem? I was thinking about parsing the data from each file but I was wondering if I could just convert the files into EXCEL files and then copy and paste the values I need. Would that approach work?

Thank you!

 

[Stadem]

Yes, that approach should work.

Dim wbCSV1 As Workbook
Dim ws As Worksheet
Application.Workbooks.OpenText Filename:="C:\CSV Files\MyFavoriteCSV.csv", DataType:=xlDelimited, Comma:=True
Set wbCSV1 = ActiveWorkbook
Set ws = wbCSV1.Sheets(1)