Import CVS File into existing table

[Elifly]

Hey everyone

I'm looking for a VBA for importing CVS Files to an existing workbook.

- It lets me pick multiple CSV file via an Open File dialogue
- The CVS File should be copied to the last written column (end of the existing table)
- The CVS File could be opened and closed again

I'm sure this has been written hundreds of times, but I can't seem to find a solution that fits my needs best

I have a code that works pretty well besides it copies my file to the top of my workbook

Sub CSV_Import()
Dim dateien, i, lastrow
lastrow = 1
dateien = Application.GetOpenFilename _
("csv-Dateien (*.csv), *.csv", MultiSelect:=True)
If IsArray(dateien) Then
For i = 1 To UBound(dateien)
Workbooks.Open dateien(i), local:=True
With ThisWorkbook.Sheets(1)
ActiveSheet.UsedRange.Copy Destination:=.Range("A" & lastrow)
lastrow = .UsedRange.Rows.Count + 1
End With
ActiveWorkbook.Close False
Next i
End If
End Sub

Looking forward to your solutions

Thank you!

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub CSV_Import()
   Dim dateien As Variant
   Dim i As Long
   
   dateien = Application.GetOpenFilename _
      ("csv-Dateien (*.csv), *.csv", MultiSelect:=True)
   If IsArray(dateien) Then
      For i = 1 To UBound(dateien)
         Workbooks.Open dateien(i), local:=True
         With ThisWorkbook.Sheets(1)
            ActiveSheet.UsedRange.Copy Destination:=.Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1)
         End With
         ActiveWorkbook.Close False
      Next i
   End If
End Sub

 

[Elifly]

It worked !
Thank you very much

 

[Fluff]

You're welcome & thanks for the feedback.

 

[Tanquen]

I'd like to do this also.
I have an existing xlsm file with a tab called "CSV".
I added a button and used the VBA code from above and it opens the csv file but it's not adding anything to the tab.
Do I need to add the existing xlsm file name or tab name in the code? I'd have thought the ActiveSheet and ThisWorkbook stuff would take care of that. ???

I'd also like to place the button on a different Tab than the CSV Tab and have it place the CSV file data into the CSV Tab and not the current active tab.

I have been just opening the csv in notepad and then doing a cut and paste into the CSV tab and then running the Excel Text to Columns function. That works but it would be nice to just drag the file in or click a button and open the csv file from the same folder.

It would also be cool if I could get the Text to Columns to stay active. Like any time you paste text in column A it just uses the same settings as before.

 

[Tanquen]

bumpy