XL 2003 VBA: Importing a .txt using a wildcard in filename?

[TechTank]

Hi All,

I'm trying to import data from multiple .txt files but I need to use a wildcard as the .txt files are date time stamped at the end.

The code I'm using at the moment is:

'Imports Data From File Specified into Excel
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Data\Import-This-2011.09.12.220333.txt" _

If I could just get "TEXT;C:\Data\Import-This*.txt" or something similar to work that would be great :0)

Thank you for your time and for reading.

Mark.

 

[TechTank]

For anyone searching for this, this code worked for me quite nicely:

dim sTXT as string   

sTXT = DIR("C:\Data\*Part Of Filename*.txt")

With ActiveSheet.QueryTables.Add(Connection:= _         
      "TEXT;C:\Data\" & sTXT
       , Destination:=Range("A1"))

This was found from this website:

http://excel.bigresource.com/Track/excel-2GLmJksG/