用Excel的控件。
ExcelApplication1-> Connect();
ExcelApplication1-> Visible[0] = True;
ExcelApplication1-> Caption = WideString( "CodeCAM 料表系統(tǒng) ").c_bstr();
ExcelWorkbook1-> ConnectTo(ExcelApplication1-> Workbooks-> Add( \
WideString( "D:\\FEEDREP\\DocSys\\Test\\RptHeader.xls ").c_bstr(), 0));