Import data file

[ermis1975]

I want to be prompt to import a csv file. Different name every time.
Numbers as numbers and text as text.

[Bob Phillips]

Look at FileDialog in VBA Help.

[ermis1975]

Any code?

[Kenneth Hobs]

Do you not know how to use the help? Just press F1 with the cursor in a word in the Visual Basic Editor or search for it in the F2 dialogs.

Here is a function for you and an example on how to use it.

Sub TestCSVOpen()
Dim f As String
f = CSVFile("c:\myfiles\excel\test.csv", "Select CSV File")
MsgBox f
End Sub

Function CSVFile(sPath As String, sTitle As String) As String
' Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
.initialFilename = sPath
.Title = sTitle
.Filters.Add "CSV Files", "*.csv", 1
.AllowMultiSelect = False

If .Show = -1 Then
MsgBox "here"
CSVFile = .SelectedItems(1)
Else: CSVFile = ""
End If
End With
End Function