Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.021 c
4-52002
Kilin
2002-10-23 14:19
2002.12.16
Ошибка ShellExecute


14-51966
Sticky
2002-11-26 21:21
2002.12.16
Как сделать архиватор?


1-51805
c@n
2002-12-05 11:35
2002.12.16
вот у меня такая проблемка..........(listview //////)


14-51883
greenrul
2002-11-21 20:44
2002.12.16
Переустановил систему (ХР) - как восстановить Delphi??


1-51795
Sego
2002-12-05 09:24
2002.12.16
Отображение без gride