EXCELに文字型の数字を出力 (ID:18683)

名前

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

本文

文字型に任意のColを変更するには、どうしたらよいでしょうか？
Ｄｅｌｐｈｉ３で、EXCELは2000です。

procedure TFrmSeibi.SpeedButton11Click(Sender: TObject);
var ROW,COL,I:Integer;
    QRY_012:TQuery;
begin
 Excel := CreateOleObject('Excel.Application');
 Excel.Visible:= True;
 WorkBook := Excel.WorkBooks.Add;
 WorkSheet := WorkBook.WorkSheets[1];
 WorkSheet.Activate;
 if not Database1.Connected then Database1.Open;
 if Database1.InTransaction then Database1.Commit;
 QRY_012 := TQuery.Create(Self);
 with QRY_012 do begin
   DatabaseName := Database1.DatabaseName;
   CLOSE;
   SQL.CLEAR;
   SQL.Add('SELECT * FROM NAIYOU');
   RequestLive:=FALSE;
   if not prepared then prepare;
   OPen;
   LAST;
   FIRST;
   if RecordCount>0 then begin
     Excel.ActiveSheet.Cells[1,1].Value :='作業NO';
     Excel.ActiveSheet.Cells[1,2].Value :='作業内容';
     I:=1;
     repeat
       I:=(I+1);
       Excel.ActiveSheet.Cells[I,1].Value :=FieldByName('作業NO').AsString;
       Excel.ActiveSheet.Cells[I,2].Value :=FieldByName('内容').AsString;
       NEXT;
     until EOF;
    end;
   CLOSE;
   SQL.CLEAR;
   FRee;
  end;
end;

というような単純な書き方だと、"["+Fields[I].asString+"]" にでもしない限り、0001が１になってしまうのです。

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

戻る