**** **** **** **** **** **** **** **** **** **** **** **** **** Excel拡張Grid(ExcelUtil)コンポーネント ExcelシートとのI/Oのメソッドと必要なプロパティを追加したコンポーネント for Delphi 2.X, 3.X, 4.X, 5.X, 6.X **** **** **** **** **** **** **** **** **** **** **** **** **** TXlsDBGrid 【プロパティ】 // 実行時プロパティ なし // 設定時プロパティ // Excelのプロパティ // 列見出しをコピーするかどうか FColumnName: Boolean; // データコピー開始行 FStartRow: Word; // データコピー開始列 FStartCol: Word; // 列幅の自動調整をおこなうかどうか FAutoFit: Boolean; // Excelのシート名 FSheetName: String; // エクセルのフォントの指定 FCellFont: TFont; // 罫線の太さ FCellBorderWeight: TCellBorderWeight; // 罫線の色 FCellBorderColor: TColor; // セルの色 FCellColor: TColor; // 列見出しの色 FCellTitleColor: TColor; // データ(転記元)の開始行 FStartData: Word; // 印刷の向き FPageOrientation: TPageOrientation; // その他のプロパティ // エラー表示ダイアログを使用するかどうか FShowErrDlg: Boolean; 【メソッド】 // XlsDBGridの内容をExcelシートにコピーする。 // 戻り値: 1(正常終了)、2: データが存在しない。 // -1: Excelのインストールエラー、-2: OLEエラー、-3: バッファ・オーバーフロー function CopyExcel: Integer; // XlsDBGridの内容をクリップボードにコピーする。 function CopyClipboard: Integer; TXlsStringGrid 【プロパティ】 // 実行時プロパティ なし // 設定時プロパティ // Excelのプロパティ { Private 宣言 } // 列見出しをコピーするかどうか FColumnName: Boolean; // データコピー開始行 FStartRow: Word; // データコピー開始列 FStartCol: Word; // 列幅の自動調整をおこなうかどうか FAutoFit: Boolean; // Excelのシート名 FSheetName: String; // エクセルのフォントの指定 FCellFont: TFont; // 罫線の太さ FCellBorderWeight: TCellBorderWeight; // 罫線の色 FCellBorderColor: TColor; // セルの色 FCellColor: TColor; // 列見出しの色 FCellTitleColor: TColor; // データ(転記元)の開始行 FStartData: Word; // 印刷の向き FPageOrientation: TPageOrientation; // Excelブック名 FExcelFileName: TFileName; // CSVファイルのプロパティ // CSVファイル名 FCSVFileName: TFileName; // CSVファイル読み込み時の行数の自動拡張(Default: True) FExtendRows: Boolean; // CSVファイル読み込み時の列数の自動拡張(Default: True) FExtendColss: Boolean; // CSVファイルの行末のカンマの有無(Default: False) FCSVEndComma: Boolean; // その他のプロパティ // エラー表示ダイアログを使用するかどうか FShowErrDlg: Boolean; // HTMLファイルのプロパティ // HTMLファイル名 FHTMLFileName: TFileName; 【メソッド】 // XlsStringGridの内容をExcelシートにコピーする。 // 戻り値: 1(正常終了)、2: データ行が存在しない。 // -1: Excelのインストールエラー、-2: OLEエラー、-3: バッファ・オーバーフロー function CopyExcel: Integer; // XlsStringGridの内容をクリップボードにコピーする。 function CopyClipboard: Integer; // CSVFileを読み込んでグリッドに設定する。 // 戻り値: 0(正常終了)、2: データ行が存在しない。 // -1: CSVファイル名プロパティ(FCSVFileName)が設定されていない。 // -1: CSVファイル名プロパティ(FCSVFileName)で指定したファイルが存在しない。 function GetCommaText: Integer; // グリッドのデータをCSVファイルに書き出す。 // 戻り値: 0(正常終了)、2: データ行が存在しない。 // -1: CSVファイル名プロパティ(FCSVFileName)が設定されていない。 function SetCommaText: Integer; // グリッドのデータをHTMLファイルに書き出す。 // 戻り値: 0(正常終了)、2: データ行が存在しない。 // -1: HTMLファイル名プロパティ(FHTMLFileName)が設定されていない。 function SetHTML: Integer; // 選択行を上に移動する // 戻り値: 0(正常終了)、-1: 先頭行である。 function MoveUp: Integer; // 選択行を下に移動する // 戻り値: 0(正常終了)、-1: 最下位行である。 function MoveDown: Integer; // クリック列にてソートする。 procedure SortGrid(Button: TMouseButton; Shift: TShiftState; X, Y: Integer; sortOrder: TXlSortOrder; sortType: TXlSortType);