So right now I am just having excel create it's own table so I can see how it is importing.
Expand|Select|Wrap|Line Numbers
- Dim strfilename As String
- With Application.FileDialog(msoFileDialogFilePicker)
- .Title = "Select the CSV file to import"
- .AllowMultiSelect = False
- .Filters.Clear
- .Filters.Add "CSV Files", "*.csv", 1
- .Filters.Add "All Files", "*.*", 2
- If .Show = -1 Then
- strfilename = .SelectedItems(1)
- DoCmd.TransferText TransferType:=acImportDelim, _
- tableName:=acTable, filename:=strfilename
- Else
- Exit Sub
- End If
- End With
- Exit Sub