Lastrow - xlsrw4 vs xlsrw2
Posted: Mon Dec 29, 2008 4:32 pm
Hi there
I have a largish spreadsheet - 24,000 rows and ssemed to be getting wierd results - like 10,000 blank rows.
so...
I tried the paintcell example using xlsrw2 with the fllowing code:
xls.Filename := edFilename.Text;
showmessage(inttostr(xls.sheets[TabSet.TabIndex].LastRow));
xls.Read;
TabSet.Tabs.Clear;
for i := 0 to xls.Sheets.Count - 1 do
TabSet.Tabs.Add(xls.Sheets[i].Name);
TabSet.TabIndex := 0;
xls.sheets[TabSet.TabIndex].CalcDimensionsex;
showmessage(inttostr(xls.sheets[TabSet.TabIndex].LastRow));
Grid.RowCount := xls.sheets[TabSet.TabIndex].LastRow + 2 ;
Grid.Invalidate;
all works fine.
Tried it with the xlswr4 version and its about 10,000 out.
Help!
I have a largish spreadsheet - 24,000 rows and ssemed to be getting wierd results - like 10,000 blank rows.
so...
I tried the paintcell example using xlsrw2 with the fllowing code:
xls.Filename := edFilename.Text;
showmessage(inttostr(xls.sheets[TabSet.TabIndex].LastRow));
xls.Read;
TabSet.Tabs.Clear;
for i := 0 to xls.Sheets.Count - 1 do
TabSet.Tabs.Add(xls.Sheets[i].Name);
TabSet.TabIndex := 0;
xls.sheets[TabSet.TabIndex].CalcDimensionsex;
showmessage(inttostr(xls.sheets[TabSet.TabIndex].LastRow));
Grid.RowCount := xls.sheets[TabSet.TabIndex].LastRow + 2 ;
Grid.Invalidate;
all works fine.
Tried it with the xlswr4 version and its about 10,000 out.
Help!