Объявить переменную в Делфи как Ексель

[sergius25]

Подскажите, пожалуйста, как объявить переменную с текстом в Delphi, для того чтобы с ней(а точнее с текстом) мог работать макрос из Excel?

[x77]

не совсем понял.... чтобы Excel мог работать с "переменной в дельфи", надо на дельфи писать программу, которая будет поддерживать понятные экселю COM-интерфейсы... и я совсем не уверен, что это простая задача. обычно делается наоборот - программа, написанная на дельфи, работает с экселем.

[PooH]

x77, могу пояснить, человеку надо передать текстовую строку в макрос (см. https://forum.shelek.ru/index.php/topic,10045.msg144289.html#msg144289)

[x77]

я всё равно не понял, что нужно из дельфи с Экселем можно работать примерно так:

Код:

var 
  Excel, WorkBook, Sheet: Variant; 
begin 
  Excel := CreateOleObject('Excel.Application');  
  Excel.WorkBooks.Open(FileName,False);  
  WorkBook := Excel.WorkBooks.Item[1];  
  Sheet := Workbook.Sheets.Item[3];  
  Sheet.Cells[1,2]:='ASDFG';  
  Sheet.Cells[2,2]:=230;  

и т.д.

[sergius25]

x77
В Delphi должна быть объявлена переменная с каким-либо текстом, с которым будет работать макрос, созданый в Excel. Т.е. в Дельфи нужно прописать код, который откроет файл, к примеру, f.xls, запустит макрос под названием WordRevers, созданный в этом файле. Это макрос должен изменить порядок слов в тексте на обратный. В тексте с изменённым порядком слов первая буква в первом слове должна быть заглавной, а первая и последняя буквы в последнем слове должны быть строчными! Каждое слово текста, с изменённым порядком слов, нужно вывести в отдельную ячейку в Excel (т.е. в файле f.xls).

[PooH]

sergius25, ну, в общем вся необходимая информация у тебя еще есть, если что-то не понятно, задавай конкретные вопросы.

[sergius25]

PooH 
Как запустить макрос, прописанный в Excel, из Delphi и передать ему переменную с текстом?

[x77]

Excel.Application.Run (MacrosName) - не пробовал?

[sergius25]

Спасибо! А как передать ему переменную с текстом?

[sergius25]

Excel.Application.Run (MacrosName) - не пробовал?

При использовании выдает ошибку - "Параметр является обязательным"

[x77]

sergius25, попробуй просто через запятую перечислить параметры:

Excel.Application.Run (MacrosName, Param1, Param2, ...)

[sergius25]

Вот код программы:

Код:

var
  Form1: TForm1;
  Excel, WorkBook, Sheet, s: Variant;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
  s:='test';
  Excel := CreateOleObject('Excel.Application');
  Excel.WorkBooks.Open('D:\f_.xls');
  Excel.Application.Run('WordRevers', s)
end;

При нажатии на Button выдает ошибку - "Недопустимое число параметров".

[Igel]

Прикольная идея. Афтор пиши исчо.
Если это типа какое-то задание (контрольная), то что-то заковыристое.
Если нет, то нужно посмотреть предметную область применения.
Уж больно сложная задача для простой перестановки буковок.
По поводу методик решения.
Нужно В дельфи создать строку, запустить макрос Экселя который эту строку обработает.
А) Возможно неправильно пересказана задача. Возможно просто передать строку в макрос экселя для последующей обработки. Это было-бы самое простое. И так во всей постановке Дельфи отводится роль стартера.
Б) Почитал другую ветку форума, понил, что пролетел со своим умствованием. Понятно, что Связку Ворд - Эксель реализовали. Поэтому предложение сделать ОЛЕ-сервер на дельфи, который бы содержал одино свойство - строка. Научить макрос Эксель работать с ним. В Дельфи сделать Сервер автоматизации - плевое дело.
В) Возможно еще куча вариантов хранения строки - Буфер, ДДЕ, что-то вроде с областью памяти можно зачудить, да банальный файл.

[sergius25]

Нда, в универе заработало!

Всем большое спасибо за помощь!

[x77]

sergius25, что именно заработало? запуск макроса с параметрами, типа Excel.Application.Run (MacrosName, Param1, Param2, ...) ?

[sergius25]

sergius25, что именно заработало? запуск макроса с параметрами, типа Excel.Application.Run (MacrosName, Param1, Param2, ...) ?

Да!