VBA Open .txt file with a string

[ItalianPlatinum]

I have a VBA code that works like a charm that displays a dialog box and allows a user to select a file. I am trying to enhance it to force the file to be opened based off a set criteria. For example, the file format is AAA_20200529_0513. So a file will be saved daily with AAA_ then the date in YYYYMMDD then _ and time in HHMM. I really only care about the date it was saved and the file name so. AAAA_YYYYMMDD is met. So anyway to force the file that is opened to meet that criteria, and if it doesnt exist to kick out an error message?

Sub OpenCopyTXT()
Dim Fname As String
With Application.FileDialog(3)
.InitialFileName = "C:\Windows"
.Filters.Add "Text Files Only", "*.txt"
If .Show = -1 Then Fname = .SelectedItems(1)
End With
Workbooks.OpenText Fname
End Sub

 

[ItalianPlatinum]

Ok I see exactly what it is doing and that works great. I see where the misinterpretation was. When I said force the file to be opened what i really meant was remove the dialogbox and the VBA will automatically open the file based off the criteria.

 

[GWteB]

I have a VBA code that works like a charm that displays a dialog box and allows a user to select a file. I am trying to enhance it to force the file to be opened based off a set criteria.

Imo my code meets this.

 

[GWteB]

When I said force the file to be opened what i really meant was remove the dialogbox and the VBA will automatically open the file based off the criteria.

Which file exactly? There could be more files meeting your criteria (ie AAA_yyyymmdd_xxxx.txt)

 

[ItalianPlatinum]

Which file exactly? There could be more files meeting your criteria (ie AAA_yyyymmdd_xxxx.txt)

Right so that variable is YYYYMMDD needs to equal today's date each day will have 1 file and on that day I run it i only want today's file.

 

[GWteB]

I see, that's a different story. Try this:

Sub OpenCopyTXT_r2()
    Dim sPath       As String
    Dim sPartial    As String
    Dim sFullName   As String
    
    sPath = "C:\Users\ItalianPlatinum\Documents\"      ' <<<<< change accordingly
        
    sPartial = "AAA_" & Year(Now) & IIf(Len(Month(Now)) = 1, "0" & Month(Now), Month(Now)) & IIf(Len(Day(Now)) = 1, "0" & Day(Now), Day(Now)) & "*.txt"
    sFullName = Dir(sPath & sPartial)
    If Len(sFullName) > 0 Then
        Workbooks.OpenText sFullName
    Else
        MsgBox "File not found.", vbExclamation
    End If
End Sub

 

[ItalianPlatinum]

Works like an absolute CHARM! Thank you so much! And yes i figured my wording was not very clear so apologies on that.

 

[JLGWhiz]

comment not appicable

 

[ItalianPlatinum]

comment not appicable

The last code from GWTEB works. each day the file will change by todays date. and only 1 file will be opened per day.

 

[JLGWhiz]

The last code from GWTEB works. each day the file will change by todays date. and only 1 file will be opened per day.

That p;ost was referring to my comments. I couldn't delete the post, so I just put the statement in to indicate that the post should be ignored.

 

[GWteB]

Works like an absolute CHARM! Thank you so much! And yes i figured my wording was not very clear so apologies on that.

Glad to help.
Being a person who still struggles every day to express himself clearly, I will be the last one to blame you.