使用のためのデルファイExcelスプレッドシートの操作いくつかのコントロール

フォームExcelApplication、ExcelWorkbookとExcelWorksheetに入れました。
1)Excelを開い
ExcelApplication1.Connect;
2)現在のウィンドウディスプレイ:
ExcelApplication1.Visible [0]:=真;
3)Excelのタイトルバーに変更:
ExcelApplication1.Caption:= 'マイクロソフトでExcelアプリケーションの呼び出しを';
4)は、新しいブックを追加します:
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam、0));
5)新しいワークシートを追加する:
VAR Temp_Worksheet:_Worksheet;
始める
Temp_Worksheet :. = ExcelWorkbook1
Worksheets.Add(EmptyParam、EmptyParam、EmptyParam、EmptyParam、0)AS _Worksheet;
ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
END;
6)は、既存のブックを開くには:
ExcelApplication1.Workbooks.Open(C:/a.xls
EmptyParam、EmptyParam、EmptyParam、EmptyParamを
EmptyParam、EmptyParam、EmptyParam、EmptyParam、
EmptyParam、EmptyParam、EmptyParam、EmptyParam、0)
7)は、第2のシートアクティブシートに提供される。
ExcelApplication1.WorkSheets [2] .Activate;または
ExcelApplication1.WorksSheets [ 'シート2']。アクティブ化;
8)セルに割り当てられた:。
ExcelApplication1.Cells [1,4] .Valueの:; =「4行の最初の列」
:最初のように、文字の数)9)は、指定された列の幅を(設定例:
ExcelApplication1.ActiveSheet.Columns .ColumnsWidth [1]:; = 5
:LB)= 0.035センチメートル(1ポンド)、第二の実施例の動作:10)が指定された行(ユニットの高さ設定
ExcelApplication1.ActiveSheet.Rows [2] .RowHeight:= 1 / 0.035; // 1 cmで
改ページを挿入する前に11)、ライン8:
ExcelApplication1.WorkSheets .Rows [8] .PageBreak [1]:= 1;
12は、カラム前)を削除改ページである8 :
ExcelApplication1.ActiveSheet.Columns .PageBreak [4]:= 0;
13れている)は、境界線の幅を指定しました。
ExcelApplication1.ActiveSheet.Range [ 'B3:D4'] .Borders [2] .Weight:= 3;
1-、2-左上と右下4-5-斜3-(/)6-斜め(/)
14)クリアセル式の4列の最初の行:
ExcelApplication1.ActiveSheet.Cells [1,4] .ClearContents;
15)は第一列のフォント属性が提供される。
ExcelApplication1.ActiveSheet.Rows .Font.Name [1]:=「公式スクリプト」。
ExcelApplication1.ActiveSheet.Rows [1] .Font.Color:= clBlue;
ExcelApplication1.ActiveSheet.Rows .Font.Bold:= Trueの[1]
ExcelApplication1.ActiveSheet.Rows .Font.UnderLine:= Trueの[1]
16)ページ設定:
Aヘッダ:.
ExcelApplication1.ActiveSheet.PageSetup.CenterHeader:= 'レポートが実証';
Bフッター:.
ExcelApplication1.ActiveSheet.PageSetup.CenterFooter:= 'ページ&Pに';
上端にCヘッダ。 2センチメートルから:
ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin:= 2 / 0.035。
:端Dの側縁にフッターが3cmの
ExcelApplication1.ActiveSheet.PageSetup.HeaderMarginを:= 3 / 0.035;
Eトップマージンさ2cm :.
ExcelApplication1.ActiveSheet.PageSetup.TopMargin:= 2 / 0.035;
F 2センチメートル下余白。
ExcelApplication1.ActiveSheet.PageSetup.BottomMargin:= 2 / 0.035;
Gは、マージンさ2cm :.左
ExcelApplication1.ActiveSheet.PageSetup.LeftMargin:; = 2 / 0.035
H右マージンさ2cm :.
:= 2 / 0.035 ExcelApplication1.ActiveSheet.PageSetup.RightMarginを;
Iは、ページ:.水平方向中央に配置され
ExcelApplication1.ActiveSheet.PageSetup.CenterHorizo​​ntally:= 2 / 0.035;
Jページは、垂直中心:.
ExcelApplication1.ActiveSheet.PageSetup.CenterVerticallyを:= 2 / 0.035、
K印刷ユニットグリッド線:.
ExcelApplication1.ActiveSheet。 PageSetup.PrintGridLines:=真;
17)コピー操作:
シート全体のAコピー:。
ExcelApplication1.ActiveSheet.Used.Range.Copy;
Bコピーが指定された領域:.
ExcelApplication1.ActiveSheet.Range [ 'A1:のE2'] .Copy;
Cペースト開始位置A1 :.から
ExcelApplication1.ActiveSheet.Range [ 'A1']。 .PasteSpecial;
Dは、ファイルの終わりから開始し、貼り付けます。
; ExcelApplication1.ActiveSheet.Range.PasteSpecial
18れている)は、行または列の挿入:
ExcelApplication1.ActiveSheet.Rows [2] .Insert ;.
B ExcelApplication1.ActiveSheet.Columns [1] .. INSERT;
19)は、行または列を削除する:。
ExcelApplication1.ActiveSheet.Rows [2] .Delete;
B ExcelApplication1.ActiveSheet.Columns .Delete ;. [1]
20)プレビューワークシートを印刷:
ExcelApplication1.ActiveSheet.PrintPreviewを、
21れます)プリントアウトワークシート:
ExcelApplication1.ActiveSheet.PrintOut;
22は、ワークシートの保存)です。
ではない、その後ExcelApplication1.ActiveWorkBook.Saved IF
ExcelApplication1.ActiveSheet.PrintPreview;
23れるが)として保存するワークシート:
ExcelApplication1.SaveAs( 'C:/Excel/Demo1.xls';)
24)は、保存を放棄する:
ExcelApplication1.ActiveWorkBook.Saved:=真;
25)が、ブックを閉じ:
ExcelApplication1.WorkBooks.Close;
26れる)出口エクセル:
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
(iii)の二次元マップEXCLE Delphiのコントロールを使用しては
フォームExcelApplication、ExcelWorkbook及びExcelWorksheetに入れた
VaRのasheet1、 ;バリアント:achart、範囲の
最初の薄いシート最初のジョブを選択する1)。
asheet1:ExcelApplication1.Workbooks = .Worksheets; [1] [1]
2)2次元地図追加
achart:= asheet1.chartobjects.addを(100100200200);
3)図の二次元形状選択
achart.chart.charttype:= 4。
4)二次元マップに割り当て
シリーズ:= achart.chart.seriescollection;
範囲:=シート1 R2C3:r3c9 ;!
Series.add(範囲、真の);
表題5)二次元マップ。
achart.Chart.HasTitle:=真;
achart.Chart.ChartTitle.Characters.Text:=「EXCLE次元マップ」
6)見出しのフォントサイズの二次元マップ変更
achart.Chart.ChartTitle.Font.size:= 6;
7)は、2つのWeitu甲に。標準的な説明
; achart.Chart.Axes(xlCategory、xlPrimary).HasTitle =真
; = '記載添字':achart.Chart.Axes(xlCategory、xlPrimary).AxisTitle.Characters.Text
Weitu甲を左から2 8)標準的な説明
; achart.Chart.Axes(xlValue、xlPrimary).HasTitle =真
; = '左スケールが記載':achart.Chart.Axes(xlValue、xlPrimary).AxisTitle.Characters.Text
右に2 Weitu甲9)標準の説明
achart.Chart.Axes(xlValue、xlSecondary).HasTitle: =真;
achart.Chart.Axes(xlValue、xlSecondary).AxisTitle.Characters.Textは: = ' 右のスケールが記載';
10)は、二次元地図表示領域のサイズを変更する
achart.Chart.PlotArea.Left:= 5;
achart.Chart.PlotArea .Width:= 223;
achart.Chart.PlotArea.Height:= 108;
11)二次元軸説明図の座標に結合された。
achart.chart.seriescollectionを[1] .NAME:=は'定義を軸'。

公開された30元の記事 ウォンの賞賛2 ビュー50000 +

おすすめ

転載: blog.csdn.net/khzide/article/details/499765