OLE方式 将一个XLS格式文件 另存为CSV格式。遇到一个小问题(100分)

需要用代码 将一个EXCEL XLS格式文件 另存为CSV格式。

EXCEL VBA宏代码如下
ActiveWorkbook.SaveAs Filename:="F:/tempdoc/sfdyk_test2.csv", _
FileFormat:=xlCSV, CreateBackup:=False

我的相关的语句代码是，
excelapp := CreateOleObject('Excel.Application');
excelapp.Workbooks.Open(filestr);
ExcelApp.WorkSheets[1].Activate;

excelapp.ActiveWorkbook.saveas(Filename:=StringReplace(filestr,ExtractFileExt(filestr),'.csv',[rfReplaceAll]),FileFormat:='xlCSV',CreateBackup:=false);

提示 类Workbook的 saveas方法无效

不知道错在哪里？谢谢。我的是EXCEL 2000

自己搞定了。