ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

Hoby 2006/08/05(ｿｽy) 16:51:19

DelphiｿｽｿｽｿｽSｿｽﾒでゑｿｽｿｽBHobyｿｽﾆ申ｿｽｿｽｿｽﾜゑｿｽｿｽB

DELPHIｿｽﾅ作成ｿｽｿｽｿｽｿｽｿｽ¥ｿｽtｿｽgｿｽﾌ計ｿｽZｿｽｿｽｿｽﾊゑｿｽAｿｽGｿｽNｿｽZｿｽｿｽｿｽﾅ選ｿｽｿｽｿｽｿｽｿｽｿｽZｿｽｿｽｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽH

ｿｽvｿｽZｿｽｿｽｿｽﾊゑｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾉコｿｽsｿｽ[ｿｽｿｽｿｽ髀奇ｿｽﾜでは出ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
DELPHIｿｽﾅ作成ｿｽｿｽｿｽｿｽｿｽ¥ｿｽtｿｽgｿｽｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽGｿｽNｿｽZｿｽｿｽｿｽﾅ選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽZｿｽｿｽｿｽﾉ計ｿｽZｿｽｿｽｿｽﾊゑｿｽ¥ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽB

ｿｽ@ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

Fusa 2006/08/05(ｿｽy) 23:38:01

ｿｽｿｽｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽmｿｽFｿｽﾍでゑｿｽｿｽﾈゑｿｽｿｽだゑｿｽｿｽｿｽ
ｿｽﾟ具ｿｽｿｽﾉｿｽｿｽｿｽｿｽｿｽｿｽｿｽStringGridｿｽﾌ難ｿｽeｿｽｿｽ
Excelｿｽﾉ転ｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾅゑｿｽｿｽB

ｿｽIｿｽｿｽｿｽｿｽｿｽｿｽZｿｽｿｽｿｽﾌ指ｿｽｿｽｿｽｿｽ@ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾆわかｿｽｿｽﾈゑｿｽｿｽB

ｿｽﾇゑｿｽｿｽｿｽｿｽ
ｿｽNｿｽｿｽｿｽAｿｽTｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄプｿｽｿｽｿｽ[ｿｽYｿｽB


procedure TForm1.OutputExcelActExecute(Sender: TObject);
var
  Excel        : Variant;
  WorkBook     : Variant;
  WorkSheet    : Variant;
  CreateNewBookFlag: Boolean;
  i, j: Integer;
  X, Y: Integer;
begin
try
  try
    Excel:=GetActiveOleObject('Excel.Application');
  except
    on EOleSysError do begin
    Excel := CreateOleObject('Excel.Application');
    end;
  end;

   WorkBook := Excel.Workbooks.Add;
   WorkSheet := WorkBook.WorkSheets[ 1 ];
   CreateNewBookFlag := True;

  Excel.Visible:=True;

  X := 0;
  Y := 0;
  for i := 0 to StringGrid1.RowCount-1 do
  begin
    for j := 1 to StringGrid1.ColCount-1 do
    begin
      WorkSheet.Cells[X + i + 1, Y + j] := StringGrid1.Cells[j, i];
    end;
  end;
  if CreateNewBookFlag then
    WorkSheet.Columns.AutoFit;
except
   Excel.DisplayAlerts := False;
   WorkBook.close;
   WorkBook:=unAssigned;
   WorkSheet:=unAssigned;
   Excel.Quit;
   Excel:=unAssigned;
end;
end;

Hoby 2006/08/06(ｿｽｿｽ) 08:46:33

Fusaｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽGｿｽNｿｽZｿｽｿｽｿｽﾉ転ｿｽｿｽｿｽﾍでゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽﾝ選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽZｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽGETｿｽｿｽｿｽ驍ｩｿｽﾈのでゑｿｽｿｽｿｽｿｽEｿｽEｿｽE

ｿｽﾄ休ｿｽﾝ抵ｿｽｿｽﾅゑｿｽ 2006/08/06(ｿｽｿｽ) 16:38:35

ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾍ。
ｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾈセｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ
Excel.ActiveCell;ｿｽｿｽ
ｿｽ謫ｾｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾍエｿｽNｿｽZｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾂゑｿｽﾖ撰ｿｽｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽB

Hoby 2006/08/07(ｿｽｿｽ) 12:32:52

ｿｽﾄ休ｿｽﾝ抵ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAFusa ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾈゑｿｽﾆゑｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Hoby 2006/08/07(ｿｽｿｽ) 12:33:13

ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ