delphi 控制 excel 修改sheet name |
尚未結案
|
keykill
一般會員 發表:5 回覆:8 積分:2 註冊:2009-03-21 發送簡訊給我 |
[code delphi] procedure TF_rda_ship.RzBitBtn13Click(Sender: TObject); var ExcelApp, Excelbook, ExcelChart: OleVariant; i, j, fieldcount, llch, sqlval: integer; mm, sqlstr, FileName: string; begin rzedit2.Text := 'c:\temp\CJ SHIPMENT ' formatdatetime('YYYYMMDDHHMM', now) '.xls'; dxdbgrid6.SaveToXLS( rzedit2.Text, true); try ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.Visible := True; ExcelApp.Caption := '应用程序调用 Microsoft Excel'; ExcelApp.WorkBooks.Open(rzedit2.Text); ExcelApp.Application.DisplayAlerts := False; ExcelApp.WorkSheets[1].Activate; ExcelApp.WorkSheets[1].name:='Subcon Shipment(Delivery)'; ExcelApp.ActiveWorkbook.Save; ExcelApp.Application.Quit; ExcelApp.Application.DisplayAlerts := true; Excelapp := null; except Application.Messagebox('Excel 没有安装!', 'Hello', MB_ICONERROR mb_Ok); Abort; end; end; [/code] 如上面代码 dxdbgrid6.SaveToXLS保存后的excel文件名和里面的worksheet的名字是一样的 我在delphi里调用excel将其打开并改掉worksheet的名字,程序执行完后没有效果,名字没改掉,还是跟文件名一样 单步调,名字改是会改,但是保存没效果 请问是怎么回事?该如何保存?谢谢 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |