Axolot Data

Hello,
Somewhat frustrated: The following code worked with the demo version of XLSReadWrite 3.0, but not with the registered version:

procedure TForm1.Button1Click(Sender: TObject);
var sString: string;
begin
XLSf.VBA.EditVBA := True;
XLSf.Filename:='c:\AHA Timesheet 2007.xls';
XLSf.Read;
with XLSf.VBA.ModuleByName('Module4') do begin
sString:=Source.Text;
ShowMessage(sString);
end;
end;

It crashes with an access violation on sString:=source.text;
Module4 exists. Delphi 2006

Jon

Hello

Can you please send me the excel file?


Lars Arvidsson