.txt to Excel- Naming

[MrsMope]

Hello to all,
I have read the previous posts about using the macro recorded to import a text file into excel. My question is, what if the file is not the same name every time? how do I code that?

Thanks,
RB

 

[PHV]

Which code have you so far ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[MrsMope]

Sub ImportExcel_Staff()
'
' ImportExcel_Staff Macro
' Macro recorded 12/4/2006 by Rayna Brandt
'
' Keyboard Shortcut: Ctrl+Shift+S
'
    ChDir "V:\FGS\Data_ARCHIVE\DataOUT"
    Workbooks.OpenText Filename:= _
        "V:\FGS\Data_ARCHIVE\DataOUT\FGSClaimStaff_20061204_072051.txt", Origin:=437 _
        , StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array( _
        11, 2), Array(23, 2), Array(26, 3), Array(34, 3), Array(42, 1), Array(51, 1), Array(62, 2), _
        Array(92, 2), Array(94, 2), Array(142, 2), Array(147, 9)), TrailingMinusNumbers:= _
        True
End Sub

 

[PHV]

Have you tried to play with the Dir function ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[MrsMope]

No I haven't I will take a look at it.
Thanks,
RB

 

[MrsMope]

I ended up using the .GetOpenFileName method in VBA. Thanks for the help