| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
перенос данных из excel в power point [D7]
kossxsasha © (2014-04-15 11:34:00)Ребята помогите пожалуйста я пишу уже не в один форум но все только читают и ни чего не отвечают.Я подозреваю что тут не так все сложно.С помощью одного хорошего человека я намуил вот такой код который ищет в PP определенный данные( в данном случае имеется только одна ссылка, но их будет много ) и заменяет их на другие.
var
ppApp:variant;
ppPres, ppSlide, ppShape : Variant;
i, j : integer;
s : string;
procedure TForm1.Button1Click(Sender: TObject);
procedure FindAndReplace(ppPres: Variant; SearchStr, ReplaceStr: string);
begin
for i := 1 to ppPres.Slides.Count do
begin
ppSlide := ppPres.Slides.Item(i);
for j := 1 to ppSlide.Shapes.Count do
begin
ppShape := ppSlide.Shapes.Item(j);
s := ppShape.TextFrame.TextRange.Text;
s := StringReplace(s, SearchStr, ReplaceStr, [rfReplaceAll]);
ppShape.TextFrame.TextRange.Text := s;
end;
end;
end;
begin
ppApp:=CreateOleObject('PowerPoint. Application');
ppPres:= ppApp.Presentations.Open('D:\p.ppt' , False, False, True);
ppApp.visible:=true;
FindAndReplace(ppPres, '%сылка%', 'привет');
end;
end.
Но ни как не получается сделать так, чтобы определенные данные искались в Excel и вставлялись в эти ссылки в PP. Пробовал аналогичным способом, но моих знаний и мастерства не хватило, так как я можно сказать новичок в этих делах. Помогите кто чем может добрые люди!
Ega23 (2014-04-16 14:00:00) [41]Не получается читать без знаков препинания. А раз не получается, то потом не хочется. А раз не хочется, то и не буду.
kossxsasha (2014-04-16 13:43:00) [42]> Komarov ©
связующее звено делфи мне необходимо по определенным причинам, я пробовал реализовать мою задачи стандартными средствами MS Office но это не то что хотелось бы..
kossxsasha (2014-04-16 13:40:00) [43]Вот для чего такие форумы создаются? Я от вас не попросил написать мне код! Если я не понимаю в программировании это не значит что я не могу что то пробовать свое, с кодом мне помогли но ни откуда я не сливал его! Поэтому я всего лишь попросил наставить на путь дабы не писать (> как мне в одной функции вывести результат поиска в другой)вот такие глупости так как я знаю что это глупость но если до меня не допрет и поэтому и пишу в раздел НАЧИНАЮЩИМ и как я понимаю это вообще ни на что не влияет если тут сидят люди которые только и могут написать что я не смыслю в программировании все сливаю и прошу за меня код написать тратите только свое и мое время если нет у вас желания помочь ( не код написать а подсказать как можно реализовать ) то зачем мне отвечать тогда? сидите в контакте и там трольте всякие посты!
PS >Inovet я отвечу Вам позже просто на работе завал..
Dennis I. Komarov (2014-04-15 22:57:00) [44]
> kossxsasha ©
Попробую объяснить:
Дело в том, что работа из Delphi (врочем даже не важно) с Excel и PowerPoint одинакова, вернее через тот же интерфейс. Заявление
> я знаю как работать с екселем через делфи у меня проблема
> в том что я не знаю как мне воспользоваться делфи как промежуточной
> программой между екселем и РР, как мне в одной функции вывести
> результат поиска в другой
противоречит смыслу, ибо Вы не знаете (возможно откопали где-то на просторах, но НЕ ЗНАЕТЕ)
Отсюда получилось [5], и пока Вы этого не осознаете, дальше будет трудно...
Сложно судить о необходимости "промежуточного звена" ибо PP умеет работать с данными (наверно с 2007, может и ранее)
KilkennyCat (2014-04-15 17:25:00) [45]
> хорошо будет вам то что вы просите.
в автосервисе тож так себя ведешь? ах, да, ты ж сам все чинишь... так же, как и программируешь.
kilkennycat (2014-04-15 17:20:00) [46]
> как мне в одной функции вывести результат поиска в другой
это означает полное незнание программирования (неважно даже язык и среда).
отсутствие базовых понятий.
помочь бесплатно не представляется возможным.
kossxsasha (2014-04-15 16:32:00) [47]хорошо будет вам то что вы просите.
Inovet (2014-04-15 16:26:00) [48]Вот это 'РЕЗУЛЬТАТ ПОИСКА В ЕКСЕЛЕ' где? "я знаю как работать с екселем через делфи".
kossxsasha (2014-04-15 16:18:00) [49]FindAndReplace(ppPres, '%сылка%', 'РЕЗУЛЬТАТ ПОИСКА В ЕКСЕЛЕ');
вот что то вроди этого как мне сделать ?
Inovet (2014-04-15 16:13:00) [50]> [12] kossxsasha © (15.04.14 16:07)
> спасибо это можно сказать единственное что я путное видел!
Тоже самое
> [9] kossxsasha © (15.04.14 15:56)
> этак какая то функция в функции чтоли получается...
Как будто такого не бывает, хоть 100500, только читать плохо. Это при том, что "я знаю как работать с екселем через делфи". Как-то сомнения возникают в истинности утверждения
WriteToPowerPoint(ReadFromExcel());
kossxsasha (2014-04-15 16:12:00) [51]нет нет ссылка это типо закладка в РР (%сылка%) мы просто ищем в екселе слово "привет" и вставляем его в РР вместо "%сылка%".
Inovet (2014-04-15 16:09:00) [52]> [10] junglecat (15.04.14 16:04)
> Data := ReadFromExcel();
> WriteToPowerPoint(Data);
В вопросе что-то про ссылки. Это типа поменяли в Ексел и тут же видим изменения в Пауерпоинт?
kossxsasha (2014-04-15 16:07:00) [53]> как мне найти там и запомнить потом найти тут и заменить
> на то что я нашел там
Data := ReadFromExcel();
WriteToPowerPoint(Data);
спасибо это можно сказать единственное что я путное видел!
kossxsasha (2014-04-15 16:06:00) [54]kilkennycat © (15.04.14 14:21) [6]
http://nech.tamb.ru/pages/delphi_excel.htm
я знаю как работать с екселем через делфи у меня проблема в том что я не знаю как мне воспользоваться делфи как промежуточной программой между екселем и РР, как мне в одной функции вывести результат поиска в другой
junglecat (2014-04-15 16:04:00) [55]> как мне найти там и запомнить потом найти тут и заменить
> на то что я нашел там
Data := ReadFromExcel();
WriteToPowerPoint(Data);
kossxsasha (2014-04-15 15:56:00) [56]> Причем тут прямой код
>а нужен был кривой код?)
нет просто я так понял что мне сказали что я такой то лентяй сам не хочу сделать мол здесь тему создал чтоб за меня все сделали..
как фунуцию поиска в екселе сделать это я разберусь я не понимаю только как мне найти там и запомнить потом найти тут и заменить на то что я нашел там, этак какая то функция в функции чтоли получается...
junglecat (2014-04-15 15:49:00) [57]> Причем тут прямой код
а нужен был кривой код?)
концептуально поиск по книге экселя мало чем отличается от поиска по коллекциям поверпоинта. Названия объектов только разные, да и то не всегда
kossxsasha (2014-04-15 15:41:00) [58]Причем тут прямой код, можно было подсказать хотя бы направление в решении проблемы. В моем понимании мы создаем функцию поиска в екселе находим запоминаем далее работает поиск в РР находим эту ссылку и заменяем ее на то что нашли в екселе, но если я не знаю как это мне организовать, именно поэтому я в разделе помощь новичкам
kilkennycat (2014-04-15 14:21:00) [59]http://nech.tamb.ru/pages/delphi_excel.htm
brother (2014-04-15 14:14:00) [60]прямого кода тут не дадут - привыкай...
а, удачи, это я Вам пожелал разобраться с проблеммой, но тк Вы и понятия не имеете, что да как, Вам трудно будет ...
| |
Страницы: 