用 OLE 輸出excel 的對位問題 |
答題得分者是:timhuang
|
jackiu
一般會員 發表:15 回覆:16 積分:6 註冊:2003-03-05 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
使用 HorizontalAlignment 屬性, 設定其對齊為 :
xlLeft -4131
xlCenter -4108
xlRight -4152
程式碼如下:
procedure TForm1.Button1Click(Sender: TObject); var I : Integer; J : Integer; FExcel : variant; FWorkBook : variant; FWorkSheet : variant; begin try FExcel := CreateOLEObject( 'Excel.Application' ); FWorkBook := FExcel.WorkBooks.Add; FWorkSheet := FWorkBook.WorkSheets[1]; except raise Exception.Create('無法啟動excel'); exit; end; FWorkSheet.application.visible := True; FWorkSheet.cells[1,1] := '123'; FWorkSheet.cells[1,1].HorizontalAlignment := -4131; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |