Looking for VB code to read an .xls file as BIFF8.
Found code at Planet Source Code:
http://devnull.at/?8QDSY
But is has bugs and not managed yet to fix it.

Would there be anybody on this forum who is willing
to pass VB code (maybe the fixed code from PSC) that
does this?

Have posted to the VB6 group as well, but little reply from there.

RBS

I had a look at that and the first problem I found is the reading of the
worksheets; it does not seems stop and reads then more than once resulting
in a index error trying to add duplicate names to the WS collection.
I don't know enough about the BIFF to say how to correct, but you could may
be hack a fix by checking for that error in cWorkBook.AddWorkSheet. Or
simply ignore the error until you know the BIFF reason <g>.

'Previous routine
Public Sub AddWorkSheet(name)
Dim NewWorkSheet As New cWorkSheet
NewWorkSheet.name = name
m_WorkSheet.Add NewWorkSheet, name
Set NewWorkSheet.Parent = Me
End Sub

'change to
Public Function AddWorkSheet(name) As Boolean
Dim NewWorkSheet As New cWorkSheet

On Error GoTo Handler
NewWorkSheet.name = name
m_WorkSheet.Add NewWorkSheet, name
Set NewWorkSheet.Parent = Me
AddWorkSheet = True
Exit Function

Handler:
Select Case Err.Number
Case 457
AddWorkSheet = False
Case Else
'Decide
End Select

End Function

NickHK

"RB Smissaert" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Looking for VB code to read an .xls file as BIFF8.
> Found code at Planet Source Code:
> http://devnull.at/?8QDSY
> But is has bugs and not managed yet to fix it.
>
> Would there be anybody on this forum who is willing
> to pass VB code (maybe the fixed code from PSC) that
> does this?
>
> Have posted to the VB6 group as well, but little reply from there.
>
> RBS

Thanks for that. I have fixed a few things, but like you I am working a bit
in the dark as I
don't know the BIFF format. I have the documentation, but I can't say it is
simple.
The main problem I am stuck with now is that it doesn't pick up the next
cell if that cell
holds an integer value and the previous cell on the same row held an integer
as well.
It would be nice to fix this as you can then quickly check a workbook
without opening it.
Haven't compared but I think it will be faster as well than using an
Excel4Macro.

RBS


"NickHK" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
>I had a look at that and the first problem I found is the reading of the
> worksheets; it does not seems stop and reads then more than once resulting
> in a index error trying to add duplicate names to the WS collection.
> I don't know enough about the BIFF to say how to correct, but you could
> may
> be hack a fix by checking for that error in cWorkBook.AddWorkSheet. Or
> simply ignore the error until you know the BIFF reason <g>.
>
> 'Previous routine
> Public Sub AddWorkSheet(name)
> Dim NewWorkSheet As New cWorkSheet
> NewWorkSheet.name = name
> m_WorkSheet.Add NewWorkSheet, name
> Set NewWorkSheet.Parent = Me
> End Sub
>
> 'change to
> Public Function AddWorkSheet(name) As Boolean
> Dim NewWorkSheet As New cWorkSheet
>
> On Error GoTo Handler
> NewWorkSheet.name = name
> m_WorkSheet.Add NewWorkSheet, name
> Set NewWorkSheet.Parent = Me
> AddWorkSheet = True
> Exit Function
>
> Handler:
> Select Case Err.Number
> Case 457
> AddWorkSheet = False
> Case Else
> 'Decide
> End Select
>
> End Function
>
> NickHK
>
> "RB Smissaert" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> Looking for VB code to read an .xls file as BIFF8.
>> Found code at Planet Source Code:
>> http://devnull.at/?8QDSY
>> But is has bugs and not managed yet to fix it.
>>
>> Would there be anybody on this forum who is willing
>> to pass VB code (maybe the fixed code from PSC) that
>> does this?
>>
>> Have posted to the VB6 group as well, but little reply from there.
>>
>> RBS
>
>

Yes, this certainly looks promising, but would involve a LOT more study on
my part to begin to correct some <any> of the errors.
I assume you have looked at ADO and decided it does not fit your
requirements ?

NickHK

"RB Smissaert" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Thanks for that. I have fixed a few things, but like you I am working a
bit
> in the dark as I
> don't know the BIFF format. I have the documentation, but I can't say it
is
> simple.
> The main problem I am stuck with now is that it doesn't pick up the next
> cell if that cell
> holds an integer value and the previous cell on the same row held an
integer
> as well.
> It would be nice to fix this as you can then quickly check a workbook
> without opening it.
> Haven't compared but I think it will be faster as well than using an
> Excel4Macro.
>
> RBS
>
>
> "NickHK" <(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
> >I had a look at that and the first problem I found is the reading of the
> > worksheets; it does not seems stop and reads then more than once
resulting
> > in a index error trying to add duplicate names to the WS collection.
> > I don't know enough about the BIFF to say how to correct, but you could
> > may
> > be hack a fix by checking for that error in cWorkBook.AddWorkSheet. Or
> > simply ignore the error until you know the BIFF reason <g>.
> >
> > 'Previous routine
> > Public Sub AddWorkSheet(name)
> > Dim NewWorkSheet As New cWorkSheet
> > NewWorkSheet.name = name
> > m_WorkSheet.Add NewWorkSheet, name
> > Set NewWorkSheet.Parent = Me
> > End Sub
> >
> > 'change to
> > Public Function AddWorkSheet(name) As Boolean
> > Dim NewWorkSheet As New cWorkSheet
> >
> > On Error GoTo Handler
> > NewWorkSheet.name = name
> > m_WorkSheet.Add NewWorkSheet, name
> > Set NewWorkSheet.Parent = Me
> > AddWorkSheet = True
> > Exit Function
> >
> > Handler:
> > Select Case Err.Number
> > Case 457
> > AddWorkSheet = False
> > Case Else
> > 'Decide
> > End Select
> >
> > End Function
> >
> > NickHK
> >
> > "RB Smissaert" <(E-Mail Removed)> wrote in message
> > news:(E-Mail Removed)...
> >> Looking for VB code to read an .xls file as BIFF8.
> >> Found code at Planet Source Code:
> >> http://devnull.at/?8QDSY
> >> But is has bugs and not managed yet to fix it.
> >>
> >> Would there be anybody on this forum who is willing
> >> to pass VB code (maybe the fixed code from PSC) that
> >> does this?
> >>
> >> Have posted to the VB6 group as well, but little reply from there.
> >>
> >> RBS
> >
> >
>

I have no particular requirement, but I thought it would be useful to have
this option available. The quoted VB code also kind of looks interesting.
ADO will be fine, but it will be slower than reading as BIFF.

RBS

"NickHK" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Yes, this certainly looks promising, but would involve a LOT more study on
> my part to begin to correct some <any> of the errors.
> I assume you have looked at ADO and decided it does not fit your
> requirements ?
>
> NickHK
>
> "RB Smissaert" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> Thanks for that. I have fixed a few things, but like you I am working a
> bit
>> in the dark as I
>> don't know the BIFF format. I have the documentation, but I can't say it
> is
>> simple.
>> The main problem I am stuck with now is that it doesn't pick up the next
>> cell if that cell
>> holds an integer value and the previous cell on the same row held an
> integer
>> as well.
>> It would be nice to fix this as you can then quickly check a workbook
>> without opening it.
>> Haven't compared but I think it will be faster as well than using an
>> Excel4Macro.
>>
>> RBS
>>
>>
>> "NickHK" <(E-Mail Removed)> wrote in message
>> news:%(E-Mail Removed)...
>> >I had a look at that and the first problem I found is the reading of the
>> > worksheets; it does not seems stop and reads then more than once
> resulting
>> > in a index error trying to add duplicate names to the WS collection.
>> > I don't know enough about the BIFF to say how to correct, but you could
>> > may
>> > be hack a fix by checking for that error in cWorkBook.AddWorkSheet. Or
>> > simply ignore the error until you know the BIFF reason <g>.
>> >
>> > 'Previous routine
>> > Public Sub AddWorkSheet(name)
>> > Dim NewWorkSheet As New cWorkSheet
>> > NewWorkSheet.name = name
>> > m_WorkSheet.Add NewWorkSheet, name
>> > Set NewWorkSheet.Parent = Me
>> > End Sub
>> >
>> > 'change to
>> > Public Function AddWorkSheet(name) As Boolean
>> > Dim NewWorkSheet As New cWorkSheet
>> >
>> > On Error GoTo Handler
>> > NewWorkSheet.name = name
>> > m_WorkSheet.Add NewWorkSheet, name
>> > Set NewWorkSheet.Parent = Me
>> > AddWorkSheet = True
>> > Exit Function
>> >
>> > Handler:
>> > Select Case Err.Number
>> > Case 457
>> > AddWorkSheet = False
>> > Case Else
>> > 'Decide
>> > End Select
>> >
>> > End Function
>> >
>> > NickHK
>> >
>> > "RB Smissaert" <(E-Mail Removed)> wrote in message
>> > news:(E-Mail Removed)...
>> >> Looking for VB code to read an .xls file as BIFF8.
>> >> Found code at Planet Source Code:
>> >> http://devnull.at/?8QDSY
>> >> But is has bugs and not managed yet to fix it.
>> >>
>> >> Would there be anybody on this forum who is willing
>> >> to pass VB code (maybe the fixed code from PSC) that
>> >> does this?
>> >>
>> >> Have posted to the VB6 group as well, but little reply from there.
>> >>
>> >> RBS
>> >
>> >
>>
>
>

Examining this reader code along with the code for those BIFF writers, may
give you some insight in where the errors lay.
I'll have a look over the next few days, but don't hold your breath on any
useful additions.

NickHK

"RB Smissaert" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> I have no particular requirement, but I thought it would be useful to have
> this option available. The quoted VB code also kind of looks interesting.
> ADO will be fine, but it will be slower than reading as BIFF.
>
> RBS
>
> "NickHK" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> > Yes, this certainly looks promising, but would involve a LOT more study
on
> > my part to begin to correct some <any> of the errors.
> > I assume you have looked at ADO and decided it does not fit your
> > requirements ?
> >
> > NickHK
> >
> > "RB Smissaert" <(E-Mail Removed)> wrote in message
> > news:(E-Mail Removed)...
> >> Thanks for that. I have fixed a few things, but like you I am working a
> > bit
> >> in the dark as I
> >> don't know the BIFF format. I have the documentation, but I can't say
it
> > is
> >> simple.
> >> The main problem I am stuck with now is that it doesn't pick up the
next
> >> cell if that cell
> >> holds an integer value and the previous cell on the same row held an
> > integer
> >> as well.
> >> It would be nice to fix this as you can then quickly check a workbook
> >> without opening it.
> >> Haven't compared but I think it will be faster as well than using an
> >> Excel4Macro.
> >>
> >> RBS
> >>
> >>
> >> "NickHK" <(E-Mail Removed)> wrote in message
> >> news:%(E-Mail Removed)...
> >> >I had a look at that and the first problem I found is the reading of
the
> >> > worksheets; it does not seems stop and reads then more than once
> > resulting
> >> > in a index error trying to add duplicate names to the WS collection.
> >> > I don't know enough about the BIFF to say how to correct, but you
could
> >> > may
> >> > be hack a fix by checking for that error in cWorkBook.AddWorkSheet.
Or
> >> > simply ignore the error until you know the BIFF reason <g>.
> >> >
> >> > 'Previous routine
> >> > Public Sub AddWorkSheet(name)
> >> > Dim NewWorkSheet As New cWorkSheet
> >> > NewWorkSheet.name = name
> >> > m_WorkSheet.Add NewWorkSheet, name
> >> > Set NewWorkSheet.Parent = Me
> >> > End Sub
> >> >
> >> > 'change to
> >> > Public Function AddWorkSheet(name) As Boolean
> >> > Dim NewWorkSheet As New cWorkSheet
> >> >
> >> > On Error GoTo Handler
> >> > NewWorkSheet.name = name
> >> > m_WorkSheet.Add NewWorkSheet, name
> >> > Set NewWorkSheet.Parent = Me
> >> > AddWorkSheet = True
> >> > Exit Function
> >> >
> >> > Handler:
> >> > Select Case Err.Number
> >> > Case 457
> >> > AddWorkSheet = False
> >> > Case Else
> >> > 'Decide
> >> > End Select
> >> >
> >> > End Function
> >> >
> >> > NickHK
> >> >
> >> > "RB Smissaert" <(E-Mail Removed)> wrote in message
> >> > news:(E-Mail Removed)...
> >> >> Looking for VB code to read an .xls file as BIFF8.
> >> >> Found code at Planet Source Code:
> >> >> http://devnull.at/?8QDSY
> >> >> But is has bugs and not managed yet to fix it.
> >> >>
> >> >> Would there be anybody on this forum who is willing
> >> >> to pass VB code (maybe the fixed code from PSC) that
> >> >> does this?
> >> >>
> >> >> Have posted to the VB6 group as well, but little reply from there.
> >> >>
> >> >> RBS
> >> >
> >> >
> >>
> >
> >
>

Yes, I have some very nice looking code to write to BIFF and looking at that
may help.
Main trouble is not understanding the BIFF format.
Thanks in any case for your efforts and I won't hold my breath.
Will report back here when I have some progress with this.

RBS

"NickHK" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Examining this reader code along with the code for those BIFF writers, may
> give you some insight in where the errors lay.
> I'll have a look over the next few days, but don't hold your breath on any
> useful additions.
>
> NickHK
>
> "RB Smissaert" <(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
>> I have no particular requirement, but I thought it would be useful to
>> have
>> this option available. The quoted VB code also kind of looks interesting.
>> ADO will be fine, but it will be slower than reading as BIFF.
>>
>> RBS
>>
>> "NickHK" <(E-Mail Removed)> wrote in message
>> news:(E-Mail Removed)...
>> > Yes, this certainly looks promising, but would involve a LOT more study
> on
>> > my part to begin to correct some <any> of the errors.
>> > I assume you have looked at ADO and decided it does not fit your
>> > requirements ?
>> >
>> > NickHK
>> >
>> > "RB Smissaert" <(E-Mail Removed)> wrote in message
>> > news:(E-Mail Removed)...
>> >> Thanks for that. I have fixed a few things, but like you I am working
>> >> a
>> > bit
>> >> in the dark as I
>> >> don't know the BIFF format. I have the documentation, but I can't say
> it
>> > is
>> >> simple.
>> >> The main problem I am stuck with now is that it doesn't pick up the
> next
>> >> cell if that cell
>> >> holds an integer value and the previous cell on the same row held an
>> > integer
>> >> as well.
>> >> It would be nice to fix this as you can then quickly check a workbook
>> >> without opening it.
>> >> Haven't compared but I think it will be faster as well than using an
>> >> Excel4Macro.
>> >>
>> >> RBS
>> >>
>> >>
>> >> "NickHK" <(E-Mail Removed)> wrote in message
>> >> news:%(E-Mail Removed)...
>> >> >I had a look at that and the first problem I found is the reading of
> the
>> >> > worksheets; it does not seems stop and reads then more than once
>> > resulting
>> >> > in a index error trying to add duplicate names to the WS collection.
>> >> > I don't know enough about the BIFF to say how to correct, but you
> could
>> >> > may
>> >> > be hack a fix by checking for that error in cWorkBook.AddWorkSheet.
> Or
>> >> > simply ignore the error until you know the BIFF reason <g>.
>> >> >
>> >> > 'Previous routine
>> >> > Public Sub AddWorkSheet(name)
>> >> > Dim NewWorkSheet As New cWorkSheet
>> >> > NewWorkSheet.name = name
>> >> > m_WorkSheet.Add NewWorkSheet, name
>> >> > Set NewWorkSheet.Parent = Me
>> >> > End Sub
>> >> >
>> >> > 'change to
>> >> > Public Function AddWorkSheet(name) As Boolean
>> >> > Dim NewWorkSheet As New cWorkSheet
>> >> >
>> >> > On Error GoTo Handler
>> >> > NewWorkSheet.name = name
>> >> > m_WorkSheet.Add NewWorkSheet, name
>> >> > Set NewWorkSheet.Parent = Me
>> >> > AddWorkSheet = True
>> >> > Exit Function
>> >> >
>> >> > Handler:
>> >> > Select Case Err.Number
>> >> > Case 457
>> >> > AddWorkSheet = False
>> >> > Case Else
>> >> > 'Decide
>> >> > End Select
>> >> >
>> >> > End Function
>> >> >
>> >> > NickHK
>> >> >
>> >> > "RB Smissaert" <(E-Mail Removed)> wrote in message
>> >> > news:(E-Mail Removed)...
>> >> >> Looking for VB code to read an .xls file as BIFF8.
>> >> >> Found code at Planet Source Code:
>> >> >> http://devnull.at/?8QDSY
>> >> >> But is has bugs and not managed yet to fix it.
>> >> >>
>> >> >> Would there be anybody on this forum who is willing
>> >> >> to pass VB code (maybe the fixed code from PSC) that
>> >> >> does this?
>> >> >>
>> >> >> Have posted to the VB6 group as well, but little reply from there.
>> >> >>
>> >> >> RBS
>> >> >
>> >> >
>> >>
>> >
>> >
>>
>
>

There is a BIFF reader and writer here with Delphi source code that
might be of help:

http://delphi.icm.edu.pl/newl/midxd70f.htm

RBS