我使用的D5,安装了OFFICE 2000
在DELPHI里面要调用EXCEL,加如3个控件ExcelApplication1,ExcelWorksheet1,ExcelWorkbook1;测试连接的时候出现错误:
project project1.exe raised exception class eintfcasterror with message
'interface not supported'.process stopped .use step or run continue.
点击按纽的源码如下
procedure TForm1.connectBtnClick(Sender: TObject);
begintry
ExcelApplication1.Connect;
except
MessageDlg('是否正确安装了Excel?',mtError,[mbok],0);
abort;
end;
ExcelApplication1.Visible[0]:=true;
ExcelApplication1.Caption:='Excel应用';
ExcelApplication1.Workbooks.Add(Null,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);end;
在DELPHI里面要调用EXCEL,加如3个控件ExcelApplication1,ExcelWorksheet1,ExcelWorkbook1;测试连接的时候出现错误:
project project1.exe raised exception class eintfcasterror with message
'interface not supported'.process stopped .use step or run continue.
点击按纽的源码如下
procedure TForm1.connectBtnClick(Sender: TObject);
begintry
ExcelApplication1.Connect;
except
MessageDlg('是否正确安装了Excel?',mtError,[mbok],0);
abort;
end;
ExcelApplication1.Visible[0]:=true;
ExcelApplication1.Caption:='Excel应用';
ExcelApplication1.Workbooks.Add(Null,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);end;
查找是否有Excel2000.pas文件就知道啦。
说的对!(转 ,呵呵)
我用的是D5,OFFICE2000,WIN2000