Hi All,
Hope this is the right forum for this, I have written the below code but the specific file will not open under mFolder1 - any ideas as to what I have done wrong ? really appreciate it - I get "run time error 1004 Method'OpenText ' of object 'Workbooks' failed"
[Code=vb]
Sub RunRec()
Dim mToday As Variant
Dim mFolder As String
mToday = Date
Do
mToday = mToday - 1
Loop Until Weekday(mToday) <> vbSaturday And Weekday(mToday) <> vbSunday
mFolder = Format(mToday, "dd_mmm_yyy y")
mFolder1 = "\\gblond38\dat a\Reports\" & mFolder & " \csv\XRATE_EXTR ACT\XRATE_EXTRA CT" & ".CSV"""""
Workbooks.OpenT ext Filename:=mFold er1
End Sub
[/Code]
Hope this is the right forum for this, I have written the below code but the specific file will not open under mFolder1 - any ideas as to what I have done wrong ? really appreciate it - I get "run time error 1004 Method'OpenText ' of object 'Workbooks' failed"
[Code=vb]
Sub RunRec()
Dim mToday As Variant
Dim mFolder As String
mToday = Date
Do
mToday = mToday - 1
Loop Until Weekday(mToday) <> vbSaturday And Weekday(mToday) <> vbSunday
mFolder = Format(mToday, "dd_mmm_yyy y")
mFolder1 = "\\gblond38\dat a\Reports\" & mFolder & " \csv\XRATE_EXTR ACT\XRATE_EXTRA CT" & ".CSV"""""
Workbooks.OpenT ext Filename:=mFold er1
End Sub
[/Code]
Comment