Текущий архив: 2002.12.16;
Скачать: CL | DM;

Вниз

Кто найдёт ошибку(ки) в этом коде?   Найти похожие ветки 

← →
^Sanya ©   (2002-12-04 00:00) [0]

На форме имеется компонент ExcelApplication1 и StringGrid1.
Цель примера - передать данные из StringGrid в Excel.
Итог - при первом запуске всё нормально, при последующих - вижу только шапку Excel и ничего более :(

Прим.: у меня ExcelXP, но в Excel2000 та же басня :(

procedure TForm1.Button1Click(Sender: TObject);
var
RangeE: excel2000.Range;
i, j:byte;
begin
ExcelApplication1.Visible[0] := True;
ExcelApplication1.Workbooks.Add(null, 0);
for i := 0 to StringGrid1.RowCount-1 do
begin
RangeE := ExcelApplication1.Range["A" + IntToStr(i+1), "A" + IntToStr(i+1)];
for j := 0 to StringGrid1.ColCount-1 do
begin
RangeE.Value := StringGrid1.Cells[i, 0];
RangeE := RangeE.Next;
end;
end;
end;

---

← →
^Sanya ©   (2002-12-04 00:41) [1]

А ещё, пуля в том, что тот же баг есть у Марко Кенту в "Delphi6 для профессионалов"
:)
Или баг у меня в голове???

---

← →
^Sanya ©   (2002-12-04 17:47) [2]

пожалуйста!!!

---

← →
LongIsland ©   (2002-12-04 18:11) [3]

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];
{--экспортируем данные---------------------------}
for i:=1 to StringGrid1.ColCount do
for j:=1 to StringGrid1.RowCount do
WorkSheet.Cells[i,j]:=StringGrid1.Cells[j,i];
Excel.Visible := true;
end;
end;

Не помню кто, но кто-то выкладывал здесь такой код. Правда не через Server"ы, но работает:-)

---

← →
^Sanya ©   (2002-12-04 18:55) [4]

А что же делать с моим кодом??? (см. сабж)

---

← →
^Sanya ©   (2002-12-04 20:58) [5]

сабж

---

← →
Antonius ©   (2002-12-04 21:53) [6]

а не позднее ли это связывание? Если так - будет работать медленно. Хотя я не спец в коме

---

Страницы: 1 вся ветка

Текущий архив: 2002.12.16;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.01 c