I am trying to open an MS Excel file and perform a find/replace function, all using VBA within MS Access. I keep getting a "Subscript out of range." error. Do you know why I am getting this error? The code I am using is below:
[CODE=VB]
wrkBookName = Application.Cur rentProject.Pat h & "\Delphi Data.xls"
Set XL = CreateObject("E xcel.Applicatio n")
XL.Visible = True
Set WB = XL.Workbooks.Op en(wrkBookName)
Set ws = WB.Worksheets(1 )
XL.Range("A1:Z3 8").Replace What:="Invoice" , Replacement:="x ", LookAt:=xlPart, SearchOrder:=xl ByRows, MatchCase:=Fals e, SearchFormat:=F alse, ReplaceFormat:= False
[/CODE]
[CODE=VB]
wrkBookName = Application.Cur rentProject.Pat h & "\Delphi Data.xls"
Set XL = CreateObject("E xcel.Applicatio n")
XL.Visible = True
Set WB = XL.Workbooks.Op en(wrkBookName)
Set ws = WB.Worksheets(1 )
XL.Range("A1:Z3 8").Replace What:="Invoice" , Replacement:="x ", LookAt:=xlPart, SearchOrder:=xl ByRows, MatchCase:=Fals e, SearchFormat:=F alse, ReplaceFormat:= False
[/CODE]
Comment