Can you open a file where the name of that file is in a cell

**AdamParker** · 05-21-2008, 05:51 PM

Hello, I have some code where I would like to open a date-stamped file. I was wondering if it is possible to replace 05212008 with, for example cell A1. In A1 I would put =today() and format it accordingly. Any suggestions would be great, I really do not know where I could find some information similar to this, I have been looking on a lot of different sites and tried to look for others who may have had a similar problem but no luck.

Code is below, thanks for your time.

    Workbooks.OpenText Filename:="G:\FOLDER\05212008.txt", Origin:=437, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False _
        , Space:=True, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array _
        (3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 1)), _
        TrailingMinusNumbers:=True

AdamParker

**VBA Noob** · 05-21-2008, 05:54 PM

Maybe

Workbooks.OpenText Filename:="G:\FOLDER\" & Range("A1").Text &
".txt", Origin:=437, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False _
        , Space:=True, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array _
        (3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 1)), _
        TrailingMinusNumbers:=True

VBA Noob