Access Importing excel spreadsheet with variable dates

[moscott75]

My code below works greate when I'm importing a file that has the same date as the date when I run the import. For example, if I run the import on 06/01/18 and the filename is TestDate_060118. xlsx, Access will import and append file to existing table. If the filename is TestDate_053118.xlsx, Access will not import the file and append to table.

All files have the prefix (TestData_), but the date changes.

How can I amend my VBA code below to import my file regardless if the date changes i.e. TestDate_060118, TestDate_053118, TestDate_053018 or any date associate with TestDate_.

_______________________________________________________________________________________
Private Sub btnimportexcel_Click()


Dim PATH As String
Dim Date1 As String

Date1 = Format(Date, "mmddyy")
PATH = "C:\Users\mosco\Desktop\Test Access\ImportNewTable\Testdata_" & Date1 & ".xlsx"

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "Master", PATH, True, "Sheet1!"


MsgBox "Worksheet imported", vbInformation + vbOKOnly, "success"


End Sub

 

[james_lankford]

use this first function to get the filename in the folder
but instead of using *.*
use Testdata_*.xlsx

http://codevba.com/office/loop_files_in_folder.htm

after you import the file rename it to imported_TestDate_053118

that way the function won't pick it up again

 

[moscott75]

I tried it but it didn't work. Could you post what the complete VBA code would look like with the included function in your link. Maybe I'm not entering the advised code correctly. Appreciate your help.

 

[james_lankford]

'******************************************************************************************
Sub import_file()
    
    Dim strFileName As String
    'TODO: Specify path and file spec
    Dim strFolder As String: strFolder = "C:\temp\"
    Dim strFileSpec As String: strFileSpec = strFolder & "Testdate_*.xlsx"
    
    strFileName = Dir(strFileSpec)
    Do While Len(strFileName) > 0
        'TODO: replace Debug.Print by the process you want to do on the file
        Debug.Print strFileName
        Debug.Print strFolder & strFileName
        ' rename file
        Name strFolder & strFileName As strFolder & "imported_" & strFileName
        strFileName = Dir
    Loop
    
End Sub
'******************************************************************************************

make sure your file names are correct

in the first post you say
TestDate_060118
^ DATE
but your code shows
Testdata_" & Date1 & ".xlsx"
^ DATA