User Chooses .xlsx file to run saved import

[ARW17]

I have a FileDialog step where the user selects the file they want to import. The files they select have similar names, but the date in the name of the file changes.

I have successfully done this with importing .csv files, but there aren't any Advanced settings to save an import specification for importing from Excel?

Can you please provide a suggestion for how I can use VBA to have the user select a file (with a changing name) to import and append to an existing table? Here's an example of how I'm doing this with a .csv file.

Function Get_File_WFLO()

'Declare a variable to contain FileDialog
Dim sMyPath As FileDialog
'Declare a variable to contain the path
Dim wPath As Variant


DoCmd.SetWarnings False
DoCmd.Hourglass True
' Set up the File Dialog.

Set sMyPath = Application.FileDialog(msoFileDialogFilePicker)

With sMyPath

' Do not allow users to make multiple selections in dialog box
.AllowMultiSelect = False

' Set the title of the dialog box.
.Title = "Select your Archived WFLO File"

' Clear out the current filters, and add your own.
.Filters.Clear
.Filters.Add "wflo *", "*.csv"

'Go to the Archive folder.
.initialfilename = "K:\Customer Service Capacity Queue Data Tool\Queue Data Inputs\Archive"

'Set the text of the button Caption
.ButtonName = "Get WFLO File"

'Use the Show method to display the File Picker dialog box and return the user's action.
'The user pressed the action button.
If .Show = -1 Then
For Each wPath In .SelectedItems

'MsgBox wPath

'Import into WFLO table
DoCmd.OpenQuery "WFLO_DELETE"
DoCmd.TransferText acImportDelim, "WFLO_import_spec_date", "WFLO", wPath, False

Next wPath
'Gut check the upload numbers.
Dim MsgW, StyleW, TitleW, ResponseW
MsgW = "WORKFLOW file was uploaded and contained " & DCount("*", "WFLO") & " records. A typical workday usually has around 30,000."
StyleW = vbOKOnly + vbInformation + vbDefaultButton1
TitleW = "IC1 File Uploads"
ResponseW = MsgBox(MsgW, StyleW, TitleW)

Else
'Show if Canceled is selected in a message box
wPath = "No File Selected to Import."
MsgBox wPath
End If

End With
DoCmd.SetWarnings True
DoCmd.Hourglass False

End Function

 

[Micron]

I guess you missed or forgot the request to post code within code tags in your similar thread here (which you didn't mark solved or respond to the posts you received)

FileDialog.Filters.Add

I'm using a FileDialog command to allow users to select a file from a certain folder. It's working, but I'd like to filter down to only files that contain the word "active". I tried .filters.add "active *", "*.csv", but I get files with other names that are also .csv. Eventually, this folder...

www.mrexcel.com

Is this thread a different issue, because that code looks quite similar?