M
MP
Trying to write a class wrapper to handle calls to excel object model via
vb6.
'in cls
Private moExcelApp as Excel.Application
Private moWorkBook as Workbook
'FullPath = "Z:\0\0code\vb\excel\TestBook.xls"
Public Sub OpenWorkBook(FullPathName as String)
Dim fName as String
fName = FileNameOnly(FullPathName)
'fName = "TestBook"
If FileExists(FullPathName) Then
moExcelApp.WorkBooks.Open FullPathName
'>>>>>>>>>>>>>>> subscript out of range error here
Set moWorkBook = moExcelApp.WorkBooks.Item(fName)
Else
LogError "File not found " & FullPathName
End If
I thought one could use a name as index to .Item property
what am I doing wrong?
Thanks
Mark
vb6.
'in cls
Private moExcelApp as Excel.Application
Private moWorkBook as Workbook
'FullPath = "Z:\0\0code\vb\excel\TestBook.xls"
Public Sub OpenWorkBook(FullPathName as String)
Dim fName as String
fName = FileNameOnly(FullPathName)
'fName = "TestBook"
If FileExists(FullPathName) Then
moExcelApp.WorkBooks.Open FullPathName
'>>>>>>>>>>>>>>> subscript out of range error here
Set moWorkBook = moExcelApp.WorkBooks.Item(fName)
Else
LogError "File not found " & FullPathName
End If
I thought one could use a name as index to .Item property
what am I doing wrong?
Thanks
Mark