macro to find file

[Np72]

Hi,

Is there anyway that vba can find, open files. The files are always kept in the same place (for example C:test/home/Testddmmyy.xls) but the date changes everyday. Is there a way of inserting the date in a pop up box then vba will find and open the desired file in a template work book ??

Thanks

Neil

 

[VoG]

Try

Sub test()
Dim d As String
d = InputBox("Enter date, ddmmyy")
Workbooks.Open Filename:="C:\test\home\Test" & d & ".xls"
End Sub

 

[JackDanIce]

Something like:

Sub OpenSelectFile ()
Dim FileLocation as String, InputDate as String
FileLocation = "C:\test\home\Test"
InputDate = InputBox("Enter date of file (ddmmyy):", "File date required")
Workbooks.Open Filename:=FileLocation & InputDate & ".xls"
End Sub

 

[Np72]

Cool, it works. However I forgot to add that the files are always called

H:\_TransfertPROD\InstitutionalAssetManagement\PamIT\Compliance\GVA\ISSCAP_Total_zero_GVA_YYMMDD.XLS

I tried inserting this into the macro but alas

 

[VoG]

Try

Sub test()
Dim d As String
d = InputBox("Enter date, ddmmyy")
Workbooks.Open Filename:="H:\_TransfertPROD\InstitutionalAssetManagement\PamIT\Compliance\GVA\ISSCAP_Total_zero_GVA_" & d & ".xls"
End Sub