patsyg400886@outlook.com

英翻荷蘭語 ExcelApp.ActiveSheet.Range['A1:C3'].Merge;
ExcelApplication1.WorkBooks.Close;
d.從文件尾部開始粘貼：
ExcelApp.Selection.Borders[1].LineStyle := 1;
ExcelApp.ActiveSheet.PrintOut;
ExcelApplication1.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
23) 關閉工作簿：
ExcelApplication1.WorksSheets['Sheet2'].Activate;
b. ExcelApplication1.ActiveSheet.Columns[1].Delete;
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035; e.頂邊距2cm：
ExcelApp.WorkBooks.Open('C:ExcelDemo.xls');
b.拷貝指定區域：
b.拷貝指定區域：
begin
4) 添加新工作簿：
ExcelApplication1.ActiveSheet.PageSetup.PrintGridLines := True;
6) 給單元格賦值：
ExcelApplication1.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
if not ExcelApplication1.ActiveWorkBook.Saved then ExcelApplication1.ActiveSheet.PrintPreview;
ExcelApp.ActiveSheet.Rows[1].Font.Size:= 12; ExcelApp.ActiveSheet.Rows[1].NumberFormatLocal:='@';
13-3) 設定顏色
10) 在第8列之前刪除分頁符：
ExcelApp.WorkBooks.Add;

ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035; g.左側距2cm：
或
ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035; i.頁面水平居中：
24) 退出 Excel：
2) 更改 Excel 題目欄：
ExcelApplication1.ActiveSheet.Range.PasteSpecial;
ExcelApplication1.Quit; ExcelApplication1.Disconnect;
b. ExcelApp.ActiveSheet.Columns[1].Insert;
a.頁眉：
achart:=asheet1.chartobjects.add(100,100,200,200);
ExcelApp.Selection.Borders[1].ColorIndex := 1;

ExcelApplication1.ActiveSheet.PageSetup.TopMargin := 2/0.035;
ExcelApp.SaveAs( 'C:ExcelDemo1.xls' );
ExcelApp.ActiveSheet.Rows[1].Font.Name := '隸書'; ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue;
9) 設置指定列的寬度（單元：字符個數），以第一列為例：
21) 打印輸出工作表：
ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P頁'; c.頁眉到頂端邊距2cm：
c.頁眉到頂端邊距2cm：
c.從A1位置最先粘貼：
a.拷貝全部工作表：
// color green 13-3 凍結 ExcelApp.ActiveSheet.Cells[3,3].Select;
var Temp_Worksheet: _WorkSheet;
ExcelApplication1.ActiveSheet.Used.Range.Copy;
5) 設置第2個工作表為舉止工作表：
ExcelApplication1.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
achart.Chart.HasTitle:=True; achart.Chart.ChartTitle.Characters.Text:=』 Excle二維圖』

ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035; d.頁腳到底端邊距3cm：
20) 打印預覽工作表：
8) 給單位格賦值：
ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035; k.打印單位格網線：
22) 抛卻存盤：
11-2 指定邊框的 Weight (1~4)
18) 插入一行或一列：
ExcelApplication1.ActiveWorkBook.Saved := True;
ExcelApp.Selection.NumberFormatLocal:='@';
1）選擇當第一個工作薄第一個工作表
ExcelApplication1.ActiveSheet.Rows[1].Font.Color := clBlue;
a. ExcelApp.ActiveSheet.Rows[2].Insert;
15) 設置第一行字體屬性：
三.利用Delphi節制Excle二維圖

ExcelApp.ActiveSheet.Range['B3:D4'].Borders[2].Weight := 3; 1-左 2-右 3-頂 4-底 5-斜( ) 6-斜( / )
ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035; h.右側距2cm：
ExcelApplication1.WorkSheets[2].Activate;
19) 刪除一行或一列：

用Delphi節制Excel2000
h.右側距2cm：
17) 拷貝操作：
3) 更改 Excel 題目欄：
ExcelApplication1.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
4）給二維圖賦值
ExcelApp.Application.DisplayAlerts := False;
3）選擇二維圖的形態
ExcelApplication1.ActiveSheet.Rows[1].Font.UnderLine := True;
7) 設置指定列的寬度（單元：字符個數），以第一列為例：
ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
2) 顯示當前窗口：
ExcelApp.ActiveSheet.Range['A1','V1'].HorizontalAlignment := $FFFFEFF4;
WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam翻譯社0) as _WorkSheet;
ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1;
ExcelApp.Caption := '利用法式挪用 Microsoft Excel';
ExcelApplication1.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035; f.底邊距2cm：
ExcelApplication1.Workbooks.Open (c:a.xls EmptyParam翻譯社EmptyParam,EmptyParam,EmptyParam,
7) 設置第2個工作表為舉動工作表：
ExcelApp.Visible := True;
26) 退出 Excel：
13-2) 跨欄置中：
ExcelApplication1.ActiveSheet.Cells[1,4].ClearContents;
16) 插入一行或一列：
b. ExcelApp.ActiveSheet.Columns[1].Delete;
11) 在第8行之前插入分頁符：
ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
21) 工作表另存為：
ExcelApplication1.Cells[1,4].Value := '第一行第四列';
range:=sheet1!r2c3:r3c9; series.add(range翻譯社true);
ExcelApplication1.ActiveSheet.PageSetup.CenterFooter := '第&P頁';
ExcelApp.WorkSheets[2].Activate; 或
k.打印單元格網線：
5) 添加新工作表：
a.拷貝全部工作表：
4) 打開已存在的工作簿：
i.頁面水平居中：
5）加上二維圖的題目
ExcelApp.ActiveSheet.PageSetup.CenterHeader := '報表演示'; b.頁腳：
a. ExcelApplication1.ActiveSheet.Rows[2].Delete;
ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035; j.頁面垂直居中：
19) 打印輸出工作表：
11) 指定邊框線寬度：
ExcelApplication1.SaveAs('C:ExcelDemo1.xls');
//將貯存格改成文字格式
3; 1-左 2-右 3-頂 4-底 5-斜( ) 6-斜( / )
14) 斷根第一行第四列單元格公式：
ExcelApp.ActiveSheet.Range.PasteSpecial;
ExcelApplication1.ActiveSheet.Range['B3:D4'].Borders[2].Weight :=
23) 工作表另存為：
18) 打印預覽工作表：
d.頁腳到底端邊距3cm：
ExcelApp.ActiveWorkBook.Saved := True;
6) 打開已存在的工作簿：
13-4) 設定百分比格式
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam翻譯社0));
ExcelApplication1.Connect;
ExcelApp.ActiveSheet.Used.Range.Copy;
ExcelApp.WorksSheets['Sheet2'].Activate;
achart.chart.charttype:=4;
ExcelApp.Selection.Borders[1].Weight := 3;
ExcelApplication1.ActiveSheet.PrintPreview;
13) 設置第一行字體屬性：
2）增添一個二維圖
ExcelApplication1.ActiveSheet.Rows[1].Font.Name := '隸書';
ExcelApp.Cells[1翻譯社4].Value := '第一行第四列';
在Form平分別放入ExcelApplication, ExcelWorkbook和ExcelWorksheet翻譯
13-1) 合併貯存格：
Temp_Worksheet:=ExcelWorkbook1.
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
1) 顯示當前窗口：
f.底邊距2cm：
一.利用動態建立的方法 起首建立 Excel 對象，使用ComObj:
End;
ExcelApp.Quit;
e.頂邊距2cm：
ExcelApplication1.ActiveSheet.Range.['A1'].PasteSpecial;
25) 封閉工作簿：
ExcelApp.ActiveSheet.Range['A1','V1'].VerticalAlignment := $FFFFEFF4;
二.利用Delphi 控件方式
13) 指定邊框線寬度：
16) 進行頁面設置：
在Form中分別放入ExcelApplication, ExcelWorkbook和ExcelWorksheet var asheet1翻譯社achart, range:variant;
ExcelApp.ActiveSheet.Rows[1].Font.Bold := True; ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;
ExcelApplication1.ActiveSheet.PrintOut;
ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth := 5;
11-1 指定邊框的style (1:實線, 2:虛線)
if not ExcelApp.ActiveWorkBook.Saved then ExcelApp.ActiveSheet.PrintPreview;
ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;

12) 清除第一行第四列單位格公式：
series:=achart.chart.seriescollection;
ExcelApplication1.ActiveSheet.PageSetup.CenterHeader := '報表演示';
ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;
j.頁面垂直居中：
ExcelApplication1.Visible[0]:=True;
// color orange ExcelApp.ActiveSheet.Range['A2:V2'].Interior.Color:=clLime;
ExcelApplication1.Caption := '利用程序挪用 Microsoft Excel';
3) 添加新工作簿：
ExcelApp.ActiveWindow.FreezePanes := True;
a. ExcelApplication1.ActiveSheet.Rows[2].Insert;
a. ExcelApp.ActiveSheet.Rows[2].Delete;
9) 在第8行之前插入分頁符：
c.從A1位置起頭粘貼：
22) 工作表留存：
ExcelApplication1.WorkSheets[1].Rows[8].PageBreak := 1;
d.從文件尾部最先粘貼：
ExcelApp.ActiveSheet.Range[ 'A1:E2' ].Copy;
12) 在第8列之前刪除分頁符：
24) 抛卻存盤：
ExcelApp.ActiveSheet.Cells[1翻譯社4].ClearContents;
ExcelApplication1.ActiveSheet.PageSetup.RightMargin := 2/0.035;
8) 設置指定行的高度（單元：磅）（1磅＝0.035厘米），以第二行為例：
ExcelApp.ActiveSheet.PrintPreview;
b.頁腳：
20-1) 儲存時不提醒
ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
ExcelApplication1.ActiveSheet.Range['A1:E2'].Copy;

ExcelApp := CreateOleObject('Excel.Application');
g.左側距2cm：
1） 打開Excel
//將儲存格改成文字花式
ExcelApplication1.ActiveSheet.Columns[4].PageBreak := 0;
asheet1:=ExcelApplication1.Workbooks[1].Worksheets[1];
20) 工作表保留：
ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;
EmptyParam,EmptyParam翻譯社EmptyParam翻譯社EmptyParam, EmptyParam,EmptyParam,EmptyParam翻譯社EmptyParam,0)
b. ExcelApplication1.ActiveSheet.Columns[1].Insert;
11-3 指定邊框的 ColorIndex (0~56)

ExcelApp.ActiveSheet.Columns[1].ColumnWidth := 5;
15) 拷貝操作：
var ExcelApp: Variant;
14) 進行頁面設置： a.頁眉：
10) 設置指定行的高度（單元：磅）（1磅＝0.035厘米），以第二行為例：
ExcelApp.ActiveSheet.Range['H13'].NumberFormatLocal:='0.00%';

ExcelApp.ActiveSheet.Range['A1:V1'].Interior.Color:=33023;
17) 刪除一行或一列：
ExcelApp.WorkBooks.Close;
(1:黑色, 2:白色, 3:紅色翻譯社 4:綠色翻譯社 5:藍色, 6:黃色, 7:紫色, 8:青藍色, 9:棕色…)
ExcelApplication1.ActiveSheet.Rows[1].Font.Bold := True;


本文出自: http://mypaper.pchome.com.tw/alvin200266/post/1312822473有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931