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

Вниз

Запись в Excel   Найти похожие ветки 

← →
Constant   (2004-03-07 13:44) [0]

Мастера подскажите!!!!!!!!!

Я скачал много инфы по этому поводу,но нигде не нащел нормального объяснения.Посоветуйте какую инфу почитать.
или напишите програмный код с доскональным объяснением
того как записать табличку StringGrid в Excel.

Возможно мне это даст хороший толчок!!!!!!!!!!!!!

---

← →
jack128 ©   (2004-03-07 14:37) [1]

Мы вы ребят даете..Только на этой недели раза три такой вопрос задовали..Воспользуйся поиском..

---

← →
jack128 ©   (2004-03-07 14:37) [2]

> Ну вы ребят даете

---

← →
Constant   (2004-03-07 18:35) [3]

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

---

← →
jack128 ©   (2004-03-07 19:05) [4]

что пожалуйсиа? Поиском научить пользоваться?
Вот - твоему собрату по несчастью уже помогли..
http://delphimaster.net/view/15-1078670557/

---

← →
Тимохов ©   (2004-03-09 10:06) [5]

вариантов масса:
1. OLE (медленно, часто обсуждается в текущем форуме - найти инфу не составит труда)
2. DDE (сам не пробовал, но говорят тоже не быстро)
3. biff (бинарный формат, имхо рискованно, хотя 1с делает именно так)
4. xml (xml формат, декларируется MS как рекоммендуемый, должен быть офис > 2000. Для офиса 2000 вроде есть апдейты, чтобы он тоже понимал xml, я сам не проверял).

имхо для быстрого экспорта вариант 4 подходит лучше всего т.к.:
1. Схемы данных для каждого офиса декларированы и документированы (на сайте MS)
2. Перспективно.
3. Реально быстро.
4. Для экспорта не нужно ничего (ни офиса, ни xml парсера). Все можно писать прямо в текстовый файл.

---

← →
Карелин Артем ©   (2004-03-09 13:16) [6]

Держи мой сыр:
 var Excel,WorkBook,Sheet:variant;
begin
try
 Excel := CreateOleObject("Excel.Application");
 if Excel.WorkBooks.count=0 then WorkBook := Excel.WorkBooks.Add else WorkBook := Excel.WorkBooks[1];
 if WorkBook.WorkSheets.count=0 then Sheet := WorkBook.WorkSheets.Add else Sheet := WorkBook.WorkSheets[1];
except
 ShowMessage("Íåâîçìîæíî çàïóñòèòü MS Excel");
 exit;
end;
MainData.StringGrid2Excel(Sheet,3,2,StringGrid1);
Sheet.Cells.Columns.AutoFit;
Sheet.UsedRange.Borders.LineStyle :=1;
Sheet.UsedRange.BorderAround(1,3);
Sheet.Cells[2,1].Value:=Caption;
Excel.Visible:=true;
Excel.ScreenUpdating:=true;
Sheet:=Unassigned;
WorkBook:=Unassigned;
Excel:=Unassigned;
end;

function TMainData.StringGrid2Excel(const ExcelDoc: variant; const row,
 col: integer; const Grid: TStringGrid): integer;
var x,y:integer;
   bm:TBookmark;
   {BeginCol, BeginRow, }i, j : integer;
   RowCount, ColCount : integer;
   Cell1, Cell2,ArrayData:Variant;
begin
Screen.Cursor:=crHourGlass;
Application.ProcessMessages;
y:=row;
RowCount:=Grid.RowCount;
ColCount:=Grid.ColCount;
ArrayData := VarArrayCreate([0, RowCount+1, 0, ColCount], varVariant);
for i:=0 to RowCount do
  for J := 0 to ColCount do
    ArrayData[I, J] := Grid.Cells[i,j];
Cell1 := ExcelDoc.Cells[Row+1, Col];
Cell2 := ExcelDoc.Cells[Row  + RowCount-2, Col +ColCount-2];
ExcelDoc.Range[Cell1, Cell2].NumberFormat:="0";
ExcelDoc.Range[Cell1, Cell2].Value := ArrayData;
Screen.Cursor:=crDefault;
Result:=RowCount-1;
end;

---

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

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

Наверх

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