| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

String В excel [D7, Win95/98]

georg ©   (2004-06-22 20:23:00) 

Как можно передать данные stringGrid в excel

---

georg   (2004-06-22 22:17:00) [1]

Big Thanks

---

Palladin   (2004-06-22 21:00:00) [2]



Var
strBuffer:String;
I:Integer;
xlDDE:TDdeClientConv;
xlApp:OleVariant; // CreateOleObject или чтонибудь подобное
Begin
strBuffer:='';
For I:=0 To StringGrid1.RowCount-1 Do
 With StringGrid1 Do
  Begin
   Rows[I].Delimiter:=#9;
   strBuffer:=strBuffer+Rows[I].DelimitedText+#13#10;
  End;
xlDDE:=TDDEClientConv.Create(Nil);
xlDDE.SetLink('EXCEL', <имя листа>);
xlDDE.PokeData(OLEVariant(xlApp.Range[<верхняя левая ячейка прямоугольника вставки>,<нижная правая ячека прямоугольника вставки>]).Address[ReferenceStyle:=xlR1C1], PChar(strBuffer));
xlDDE.free;
End;



---

AlexG   (2004-06-22 20:47:00) [3]

Например так:
ExcelApplication.Range['A4','F10'].Value := '1';

---

Наверх