Hello,
I have .CSV files that think they are .SLK files and I cannot auto import them with my code. It's the way the files are exported out of the system. Does anyone know of a way I can import the files and fix this? I would appreciate it.
Public Function GetFile() As Variant
Dim dialog As Object
Dim pickedfile As Boolean
Set dialog = Application.FileDialog(3)
GetFile = Null
With dialog
.AllowMultiSelect = False
.Title = "Please select file for import"
.Filters.Clear
.Filters.Add "Text Files", "*.TXT; *.CSV"
pickedfile = False
pickedfile = .Show
If pickedfile Then
GetFile = .SelectedItems.Item(1)
End If
End With
End Function