Текущий архив: 2003.04.21;
Скачать: CL | DM;
Вниз
com Найти похожие ветки
← →
Senator © (2003-04-10 16:15) [0]Извините за ламерский вопрос. Надо из Excel-вской таблички вставить данные в StringGrid.
Использую палитру компонентов Servers.
FileName:=OpenDialog1.FileName;
ExcelApplication1.Workbooks.add(FileName,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
А что делать дальше????? Хелпа нету, статьи, что мне встречались по COM технологии описывают работу с Word. Подскажите, что необходимо делать дальше...
← →
LongIsland © (2003-04-10 16:44) [1]
procedure TForm1.Button1Click(Sender: TObject);
var
WorkSheet : Variant;
regData: TRegistry;
i,j:integer ;
Excel : Variant;
begin
if OpenDialog1.Execute then
begin
Excel := "Excel.Application";
regData := TRegistry.Create;
regData.RootKey := HKEY_CLASSES_ROOT;
try
if regData.OpenKey("\Excel.Application\CurVer", False) then
begin
Excel:= regData.ReadString("");
regData.CloseKey;
end
finally
regData.Free;
end;
Excel := CreateOleObject(Excel);
Excel.Visible := false;
Excel.Workbooks.Open( OpenDialog1.FileName );
WorkSheet := Excel.Workbooks[1].WorkSheets[1];
// как определить число рабочих ячеек в Excele - в упор не помню
// посему пока пишем по гриду
for i:=1 to StringGrid1.ColCount do
for j:=1 to StringGrid1.RowCount do
StringGrid1.Cells[j,i]:=WorkSheet.Cells[i,j];
Excel.Visible := true;
end;
end;
Чего-то такое попробуй
← →
Senator © (2003-04-10 16:50) [2]Спасибо
Страницы: 1 вся ветка
Текущий архив: 2003.04.21;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.036 c
