Текущий архив: 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.021 c