Excelのセルを読み込む方法について教えて下さい。 (ID:29692)

名前

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

本文

Serversなんて使ったこと無いけど調べてみたよｗ

こんな感じかな？

BDS2006 + XP + XP Office

StringGrid の Cols 、 Rows , ColWidths RowHeights もエクセル側に合わせます

function ExcelToStringGrid(FileName:String;StringGrid:TStringGrid):Boolean;
var
    Excel: Variant;
    WorkBook: Variant;
    WorkSheet: Variant;
    Col,Row : Integer;
begin
    Result := False;
    Excel := CreateOleObject('Excel.Application');
    try
      WorkBook := Excel.Workbooks.Add;
      try
        WorkBook :=Excel.WorkBooks.Open(FileName := FileName , readOnly := False);
        WorkSheet := WorkBook.WorkSheets[1];

StringGrid.ColCount := WorkSheet.UsedRange.Columns.Count+1;
        StringGrid.RowCount := WorkSheet.UsedRange.Rows.Count;

for Col := 1 to WorkSheet.UsedRange.Columns.Count do
        begin
          StringGrid.ColWidths[Col]  := WorkSheet.UsedRange.Columns[Col].Width;
          for Row := 1 to WorkSheet.UsedRange.Rows.Count do
          begin
            StringGrid.Cells[Col,Row] := WorkSheet.Cells[Row,Col].Value;
         end;
        end;

for Row := 1 to WorkSheet.UsedRange.Rows.Count-1 do
        begin
          StringGrid.RowHeights[Row]  := WorkSheet.UsedRange.Rows[Row].Height;
        end;

Result := True;

finally
        WorkBook.close;
        WorkBook:=unAssigned;
        WorkSheet:=unAssigned;
      end;

finally
      Excel.Quit;
      Excel:=unAssigned;
    end;

end;

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

戻る