subscript out of range

[Sri via OfficeKB.com]

Hello,

While I execute the following code, I get "subscript out of range" error at
the last line.
The file "Report_2009-04-16.xls" exists in the location mentioned in vPath.
Could any body help me out here please ...

Dim srcDBName As String
Dim xlw_source As Excel.Workbook

inpDate = "2009-04-16"
vPath = ThisWorkbook.Path
srcDBName = vPath & "\" & "Report_" & inpDate & ".xls"
Set xlw_source = Excel.Workbooks(srcDBName)

 

[Jacob Skaria]

Set xlw_source = Workbooks.Open(srcDBName)

 

[Gary''s Student]

Need to make sure the instance exists and is properly referenced:

Sub dural()
Dim xlw_source As Workbook
Dim srcDBName As String
srcDBName = "C:\test\beta.xls"
shortName = "beta.xls"
Workbooks.Open Filename:=srcDBName
Set xlw_source = Excel.Workbooks(shortName)
End Sub

 

[Sri via OfficeKB.com]

Hello Jacob,

Thansk for your reply. It works fine.

Sri

Set xlw_source = Workbooks.Open(srcDBName)

Hello,

[quoted text clipped - 10 lines]

srcDBName = vPath & "\" & "Report_" & inpDate & ".xls"
Set xlw_source = Excel.Workbooks(srcDBName)