求助(100分)

我在activeform中使用如下语句另存为EXCEL文件，怎么老是提示错误，请大家指教
if savedialog1.execute then
begin
fname:=savedialog1.filename;
// try
eclapp:=createoleobject('excel.application');
workbook:=createoleobject('excel.sheet');
// except
// end;
end;
//workbook:=eclapp.workbooks.add;
workbook.saveas(fname);
workbook.close;

什麼錯誤，網上有很多操作EXCEL的例子，為何不看看？完全可以照搬啊

我发现好象是activeform的问题，读出的fname是怪字符啊，难道savedialog与activeform不兼容？

这是delphi active的bug

解决方法
fname:=savedialog1.Fields[0];

Var
fname:string;
begin
setlength(fname,86);
fname:=string(pchar(savedialog1.filename));
。。。 。。。
end;