Variant配列でExcelの罫線を描くには？ (ID：33702)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

プログラム初心者です。現在DelPhiからSQLのテーブルのレコードを読み込み、Excelに表示させるプログラムを作っています。

DelphiのServersタブのコンポーネントは使わず、OLEオートメーションを使ってExcelを操作しており、自分なりに調べてレコードはVariant配列を使って表示させることができましたが、罫線をレコード分描こうとする時の配列の書き方が分かりません。（レコードが表示されているセルに下罫線を描いていく。）

var
     RCnt,FCnt: integer;
     OleArray: OleVariant;
     StartRow: Integer;
     StartRowStr,EndRowStr: String;
     OleArray: OleVariant;
     *
     *
 begin
     (以下SQLのデータを取り出すコード)
     *
     *
     With Qry do begin
     Open;
     RCnt :=RecordCount;
     FCnt :=FieldCount;

StartRow    :=6;
     StartRowStr :='A'+IntToStr(StartRow);
     EndRowStr   :='G'+IntToStr(StartRow+RCnt-1);

for j:=0 to 2 do begin

OleArray:=VarArrayCreate([0,RCnt-1,0,FCnt-1],VarVariant);
         
         for i:=0 to RCnt-1 do begin
           OleArray[i,0]:=FieldValues['@@@'];
           *
           * 
           Next;
         end;
       end;
       WorkBook.Range[StartRowStr,EndRowStr].Value:=OleArray;

のような感じでレコードを表示させていますが、

WorkSheet.Range['','']Borders[xlEdgeBottom].LineStyle :=xlContinuous;
WorkSheet.Range['','']Borders[xlEdgeBottom].Weight := xlHairLine;

のような罫線を配列にするにはどういうコードを書いたらいいのでしょうか？今は配列にせずループ処理で一行ずつ罫線を描いていますがExcelへの表示が遅くて困っています。よろしくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る