VPF::использование макросов из Delphi

CrazyKittie

Дата 11.1.2010, 14:55 (ссылка)

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

Загрузка ...

Новичок

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

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

Господа программисты, помогите пожалуйста с таким вопросом:
Необходимо реализовать запуск Excel макроса из приложения Delphi. Програмка выполняет экспорт данных в Эксель, код приведен ниже. Какждый раз при экспорте создается эксель файл, куда заносятся данные. Был написан макрос в Экселе по работе с экспортированными данными, необходимо осуществить запуск этого макроса из приложения delphi
Код экспорта:

Код


function RefToCell(ARow, ACol: Integer): string;
 begin
   Result := Chr(Ord('A') + ACol - 1) + IntToStr(ARow);
 end;

 function SaveAsExcelFile(AGrid: TStringGrid; ASheetName, AFileName: string): Boolean;
 const
   xlWBATWorksheet = -4167;
 var
   Row, Col: Integer;
   GridPrevFile: string;
   XLApp, Sheet, Data: OLEVariant;
   i, j: Integer;
 begin
     Data := VarArrayCreate([1, AGrid.RowCount, 1, AGrid.ColCount], varVariant);
   for i := 0 to AGrid.ColCount - 1 do
     for j := 0 to AGrid.RowCount - 1 do
       Data[j + 1, i + 1] := AGrid.Cells[i, j];
    Result := False;
   XLApp := CreateOleObject('Excel.Application');
   try
         XLApp.Visible := False;
         XLApp.Workbooks.Add(xlWBatWorkSheet);
     Sheet := XLApp.Workbooks[1].WorkSheets[1];
     Sheet.Name := ASheetName;
         Sheet.Range[RefToCell(1, 1), RefToCell(AGrid.RowCount,
       AGrid.ColCount)].Value := Data;
         try
       XLApp.Workbooks[1].SaveAs(AFileName);
       Result := True;
     except
          end;
   finally
        if not VarIsEmpty(XLApp) then
     begin
       XLApp.DisplayAlerts := False;
       XLApp.Quit;
       XLAPP := Unassigned;
       Sheet := Unassigned;
     end;
   end;
 end;


procedure TfrmAnalysis.Button1Click(Sender: TObject);
begin
if SaveAsExcelFile(SGD[1], 'My Stringgrid Data', 'c:\MyExcelFile.xls') then
     ShowMessage('StringGrid saved!');
end;

P.S. не подскажете, как задать тип ячеек числовой при экспортировании?

Данкинг

Дата 11.1.2010, 16:00 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Код


XLApp.Run('название макроса');

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

There's nothing left but silent epitaphs.

Rrader

Дата 11.1.2010, 16:07 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

В Run ещё можно параметры передавать

Цитата(CrazyKittie @ 11.1.2010, 20:55

)

P.S. не подскажете, как задать тип ячеек числовой при экспортировании?

Заведите промежуточную переменную

Код


..
 const
   xlWBATWorksheet = -4167;
   xlThousandsSeparator = 4;
   xlDecimalSeparator = 3;
   xlCurrencyDigits =  27;
 var
   DataRange: OleVariant;
..
   try
     XLApp.Visible := False;
     XLApp.Workbooks.Add(xlWBatWorkSheet);
     Sheet := XLApp.Workbooks[1].WorkSheets[1];
     Sheet.Name := ASheetName;
     DataRange := Sheet.Range[RefToCell(1, 1), RefToCell(AGrid.RowCount,
       AGrid.ColCount)];
     DataRange.Value := Data;
     DataRange.NumberFormat := Format('#%s##0%s%s', [XLApp.International[
       xlThousandsSeparator], XLApp.International[xlDecimalSeparator],
       StringOfChar('0', Integer(XLApp.International[xlCurrencyDigits]))]);
..

Это сообщение отредактировал(а) Rrader - 11.1.2010, 16:29

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

Let's do this quickly!
Rest in peace, Vit!

Данкинг

Дата 11.1.2010, 17:58 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(Rrader @ 11.1.2010, 16:07

)

Заведите промежуточную переменную

А зачем? NumberFormat:='@'; же просто.

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

There's nothing left but silent epitaphs.

Rrader

Дата 11.1.2010, 18:57 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Цитата(Данкинг @ 11.1.2010, 23:58

)

NumberFormat:='@';

Без опций

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

Let's do this quickly!
Rest in peace, Vit!

CrazyKittie

Дата 12.1.2010, 21:56 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо огромное, господа программисты

MinMax

Дата 28.1.2010, 02:55 (ссылка)

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

Загрузка ...

Новичок

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

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

Доброго времени суток! Подскажите, пожалуйста, с проблемой - имеется такая же задача экспорта из stringGrid в Excel, как можно при экспорте поменять формат значения ячейки из текстового в числовой? Или возможно это лучше сделать сначала в StringGride? Проблема с числами типа "1,87" - Excel из-за запятой воспринимает значение как текстовое, а нужна таблица с числами.

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