Importing data to a table

[rneilson52]

I am trying to import data from a CSV file to a table on a separate sheet and paste it into a row starting at column B leaving column A for later use. Would appreciate any assistance for a macro to do this

 

[rowebca]

You can try this:

Dim ws As Worksheet, sPath As String
Dim DialogBox As FileDialog
Set DialogBox = Application.FileDialog(msoFileDialogFilePicker)
With DialogBox
.Title = "Select file to import CSV"
.Filters.Add "Comma Separated Files", "*.csv", 1
.Show
End With
If DialogBox.SelectedItems.Count = 1 Then
sPath = DialogBox.SelectedItems(1)
Set ws = ActiveWorkbook.Sheets("Test") 'Name of the sheet where you want to import the CSV file, change this to your case
With ws.QueryTables.Add(Connection:="TEXT;" & sPath, Destination:=ws.Range("b1")) ' first row in column B
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
Else
MsgBox "No files selected !"
End If

Regards,
GB

 

[Logit]

Are you getting the data from a TEXT file that is to be converted to a CSV file ?

If you are truly accessing a CSV file, can you provide a copy for review ?

 

[rneilson52]

You can try this:

Dim ws As Worksheet, sPath As String
Dim DialogBox As FileDialog
Set DialogBox = Application.FileDialog(msoFileDialogFilePicker)
With DialogBox
.Title = "Select file to import CSV"
.Filters.Add "Comma Separated Files", "*.csv", 1
.Show
End With
If DialogBox.SelectedItems.Count = 1 Then
sPath = DialogBox.SelectedItems(1)
Set ws = ActiveWorkbook.Sheets("Test") 'Name of the sheet where you want to import the CSV file, change this to your case
With ws.QueryTables.Add(Connection:="TEXT;" & sPath, Destination:=ws.Range("b1")) ' first row in column B
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
Else
MsgBox "No files selected !"
End If

Regards,
GB

OK that is working however it is overwriting the previous import. There are 4 CSV files to import and they have to all show in the table ??

 

[rneilson52]

Are you getting the data from a TEXT file that is to be converted to a CSV file ?

If you are truly accessing a CSV file, can you provide a copy for review ?

It is an actual CSV file. I'll need to review the upload process of the files