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

Вниз

String В excel   Найти похожие ветки 

← →
georg ©   (2004-06-22 20:23) [0]

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

---

← →
AlexG ©   (2004-06-22 20:47) [1]

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

---

← →
Palladin ©   (2004-06-22 21: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;



---

← →
georg ©   (2004-06-22 22:17) [3]

Big Thanks

---

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

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

Наверх

Память: 0.47 MB
Время: 0.041 c