VPF::Экспорт StringGrid в Exel - файл - Форум программистов

jaAlex

Дата 1.8.2006, 22:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 31.5.2006
Где: Краснодар

Репутация: нет
Всего: нет

Всем привет! Помогите пожалуйста решить такой вопрос: как экспортировать StringGrid в Exel - файл при установленном OpenOffice? Те варианты, что приведены на DelphiWorld, не работают - программа сразу вырубается. smile

kostas

Дата 1.8.2006, 22:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.7.2006

Репутация: 3
Всего: 4

А вариант экспорта в CSV здесь не подходит? OpenOffice точно так же его откроет

jaAlex

Дата 1.8.2006, 22:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 31.5.2006
Где: Краснодар

Репутация: нет
Всего: нет

kostas, а можно поподробнее: это как? И пожалуйста, если можно конечно, с примером.

Albinos_x

Дата 1.8.2006, 23:30 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

это из csv в StringGrid
http://forum.vingrad.ru/index.php?showtopic=69749&hl=csv

обратно по аналогии...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

AJIeKcEu

Дата 2.8.2006, 06:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 26.10.2005
Где: Уфа

Репутация: нет
Всего: 0

to jaAlex
Тут на форуме есть описание... я когда то давно скидывал...
ну если надо я выложу часть кода.. для перетаскивания...
тока не знаю подойдет с OpenOffice аль нет... хотя должно быть все ок..

smile

(Отправь мне в личку сообщение если долго не буду отвечать)

kostas

Дата 2.8.2006, 08:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.7.2006

Репутация: 3
Всего: 4

CSV - файл с разделителями, т.е. табличка построчно пишется в файл, столбцы разделяются каким либо символом, обычно , ; tab
а вот и пример:

Код


procedure ExportToCSV(SG:TStringGrid; s:string);
Var t:TStringList;
    i,j:integer;
    s1: string;
begin
  t:=TStringList.Create;
  try
   For i:=0 To SG.RowCount-1 Do
    begin
     s1:='';
     For j:=0 To SG.ColCount-1 Do
      s1:=s1+SG.Cells[j,i]+';';
     t.Add(s1);
    end;

   t.SaveToFile(s);
  finally
   t.Free;
  end;
end;

Как использовать думаю разберешься, SG - собственно сам TStringGrid, s - путь к файлу. После экспорта можешь еще потом открыть этот файл с помощью ShellExecute.

Это сообщение отредактировал(а) kostas - 2.8.2006, 08:07

Governor

Дата 2.8.2006, 17:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 13.4.2005
Где: Москва

Репутация: нет
Всего: нет

Я делаю так:

Код



var SG: TStringGrid;

function IsOLEObjectInstalled(Name:String):boolean;
var
 ClassID: TCLSID;
 Rez : HRESULT;
begin
 Rez := CLSIDFromProgID(PWideChar(WideString(Name)),ClassID);
 Result :=(Rez = S_OK);

end;

procedure TFRawReport.Button5Click(Sender: TObject);

var ExcelApp, WorkBook, WorkSheet, Range, Range1, Cell1, Cell2, ArrayData:Variant;
    BeginCol, BeginRow: integer;
    RowCount, ColCount: integer;

begin
 if not IsOLEObjectInstalled('Excel.Application') then
  begin
  Showmessage('MS Excel not installed!');
  exit
  end;
 try 
  ExcelApp:=GetActiveOLEObject('Excel.Application');
  ExcelApp.Visible:=true;
 except
 ShellExecute(0, Nil, 'Excel.exe' , Nil, Nil, SW_NORMAL);

 end;

 Begincol := 1;
 BeginRow := 1;

 ColCount := SG.ColCount;
 RowCount := SG.RowCount;

 ExcelApp :=CreateOLEObject('Excel.Application');

 ExcelApp.Application.EnableEvents := False;

 WorkBook := ExcelApp.WorkBooks.Add;

 ArrayData:=VarArrayCreate([1,RowCount,1,ColCount],VarVariant);
 
for i:=0 to SG.ColCount-1 do for j:=0 to SG.RowCount-1 do
 ArrayData[j+1,i+1]:=SG.Cells[i,j];

 Cell1:=WorkBook.WorkSheets[1].Cells[BeginRow,BeginCol];

 Cell2:=WorkBook.WorkSheets[1].Cells[BeginRow+RowCount-1 ,BeginCol+ColCount-1];

 Range:=WorkBook.WorkSheets[1].Range[Cell1,Cell2];

 Range.Value:=ArrayData;

 ExcelApp.Visible:=true;

 ExcelApp:=Unassigned
end;

end.

Albinos_x

Дата 2.8.2006, 17:37 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата(Governor @ 2.8.2006, 17:29

)

Я делаю так:

Цитата(Governor @ 2.8.2006, 17:29

)

ExcelApp:=GetActiveOLEObject('Excel.Application');
  ExcelApp.Visible:=true;
except
ShellExecute(0, Nil, 'Excel.exe' , Nil, Nil, SW_NORMAL);
end;

внимательней читаем вопрос:

Цитата(jaAlex @ 1.8.2006, 22:17

)

при установленном OpenOffice

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

jaAlex

Дата 20.10.2006, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 31.5.2006
Где: Краснодар

Репутация: нет
Всего: нет

Ребят, всем спасибо огромное, разобрался и все сделал.

mrgorr

Дата 8.9.2016, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 8.9.2016

Репутация: нет
Всего: нет

Добрый день, воспользовался этим кодом

procedure ExportToCSV(SG:TStringGrid; s:string);
Var t:TStringList;
    i,j:integer;
    s1: string;
begin
  t:=TStringList.Create;
  try
   For i:=0 To SG.RowCount-1 Do
    begin
     s1:='';
     For j:=0 To SG.ColCount-1 Do
      s1:=s1+SG.Cells[j,i]+';';
     t.Add(s1);
    end;
   t.SaveToFile(s);
  finally
   t.Free;
  end;
end;

Все нормально но мне нужно делать до запись в файл, каждый раз записывать данные в новую строку
Зарание  спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »