7. August 2008 14:52
Window.OPEN(
Text007 +
'@1@@@@@@@@@@@@@@@@@@@@@@@@\');
Window.UPDATE(1,0);
DELETEALL;
XlRange := XlWrkSht.Range(GetExcelReference(5)).SpecialCells(11);
Maxi := XlRange.Row;
Maxj := XlRange.Column;
i := 1;
REPEAT
j := 1;
VALIDATE("Row No.",i);
REPEAT
VALIDATE("Column No.",j);
// Start RS03/lp
//ORG: "Cell Value as Text" := DELCHR(FORMAT(XlWrkSht.Range(xlColID + xlRowID).Value),'<',' ');
"Cell Value as Text" := DELCHR(FORMAT(XlWrkSht.Range(xlColID + xlRowID).Value,0,2),'<',' ');
// Ende RS03/lp
IF "Cell Value as Text" <> '' THEN BEGIN
INSERT;
END;
j := j + 1;
UNTIL j > Maxj;
i := i + 1;
Window.UPDATE(1,ROUND(i / Maxi * 10000,1));
UNTIL i > Maxi;
XlWrkBk.Close(FALSE);
XlApp.Quit;
CLEAR(XlApp);
Window.CLOSE;
7. August 2008 18:39
8. August 2008 15:43