НГС.Форум /Компьютеры Интернет Связь / Программирование /

Delphi & Excel

Печать RSS Деревом

Turbokey
Анонимный пользователь
24.02.04 10:21
Такая проблема. Нужно считать с Excel-документа данные для последующего переброса в txt...
Т.е. определенные ячейки считываются и заносятся в текстовый файл...
И вот вопрос ... как всё это дело можно считать?
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
24.02.04 15:40Ответ на сообщение Delphi & Excel пользователя Turbokey
например,
позднее связывание:
CreateOLEObject('Excel.Application') + практически идентичная копия макроса Excel
КопироватьСсылка
Рассказать друзьям
Egor_M
experienced
Сообщений: 606
26.02.04 13:56Ответ на сообщение Delphi & Excel пользователя Turbokey
яндекс тебе на это ответит...

Есть как минимум 3 способа, выбирай по вкусу....
Toyota Vitz 2005 1.3-> Mercedes CLK 2002 2.3 Kompressor-> Kia Sportage 2012 Biturbo T-GDI
КопироватьСсылка
Рассказать друзьям
Сибиряк
old hamster
Сообщений: 13510
27.02.04 11:55Ответ на сообщение Re: Delphi & Excel пользователя Egor_M
Причём тут Яндекс? Человек задал конкретный вопрос и хочет получить конкретный ответ
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
27.02.04 12:30Ответ на сообщение Delphi & Excel пользователя Turbokey
Если имеешь представление о COM, то как два пальца...
Если уже делал выгрузку через этот самый КОМ, то просто возьми переменную COMVariant, засунь в нее значение выделенного диапазона, и разбери в соответствии - строка это, либо число.

Но если ты не знаком с COM - тады даже стадо слонов тебе не поможет....
КопироватьСсылка
Рассказать друзьям
enit
activist
Сообщений: 245
28.02.04 01:13Ответ на сообщение Delphi & Excel пользователя Turbokey
Вы бы лучше на Исходниках.ру (см. Полезные ссылки) порылись, это будет эффективнее, чем здесь инфу по крупицам собирать (IMHO).
КопироватьСсылка
Рассказать друзьям
enit
activist
Сообщений: 245
28.02.04 01:50Ответ на сообщение Delphi & Excel пользователя Turbokey
Кстати, это может быть Вам полезно http://www.citforum.ru/programming/delphi/excel/
КопироватьСсылка
Рассказать друзьям
Egor_M
experienced
Сообщений: 606
01.03.04 18:35Ответ на сообщение Re: Delphi & Excel пользователя Сибиряк
Человек мог бы сначала в поисковиках поискать...
На запрос "Delphi Excel" ему вывалится КУЧА информации....
Toyota Vitz 2005 1.3-> Mercedes CLK 2002 2.3 Kompressor-> Kia Sportage 2012 Biturbo T-GDI
КопироватьСсылка
Рассказать друзьям
Turbokey
Анонимный пользователь
03.03.04 14:11Ответ на сообщение Re: Delphi & Excel пользователя Egor_M
А человек поискал в поисковике... И ему выдало куча НЕНУЖНОЙ информации...
Если тебе просто хочется отметиться.. типа я то тут умный.. а вы все дураки... То у тебя не сильно получилось воплотить свою идею в жизнь....
КопироватьСсылка
Рассказать друзьям
Turbokey
Анонимный пользователь
18.03.04 09:57Ответ на сообщение Re: Delphi & Excel пользователя Turbokey
Excel:=CreateOleObject('Excel.Application');
WorkBook:=Excel.WorkBooks.open(Edit1.text);
WorkSheet:=WorkBook.WorkSheets.Item;
Вот всё, что нужно было сделать... Это позднее связывание. Есть еще раннее ... там посложнее чуть чуть ... но тоже... У кого такая проблема появиться... могу исходники кинуть
КопироватьСсылка
Рассказать друзьям
Egor_M
experienced
Сообщений: 606
18.03.04 10:40Ответ на сообщение Re: Delphi & Excel пользователя Turbokey
В ответ на: А человек поискал в поисковике... И ему выдало куча НЕНУЖНОЙ информации...
Значит так искал....

В ответ на: Если тебе просто хочется отметиться.. типа я то тут умный.. а вы все дураки... То у тебя не сильно получилось воплотить свою идею в жизнь....
Не вы все, а только отдельные личности, не способные найти через поисковик нужную информацию...

Лично я в свое время искал, нашел минут за 10-15 несколько статей с описанием нескольких способов...

Почитай тут особенно обрати внимание на пункт "RTFM и STFW: как понять, что вы серьезно облажались".
Toyota Vitz 2005 1.3-> Mercedes CLK 2002 2.3 Kompressor-> Kia Sportage 2012 Biturbo T-GDI
КопироватьСсылка
Рассказать друзьям
Сибиряк
old hamster
Сообщений: 13510
18.03.04 15:10Ответ на сообщение Re: Delphi & Excel пользователя Egor_M
Ты не прав. Форумы нужны для того, что бы человек имел возможность получить помощь или консультацию. Если же думать как ты, то можно снести все топики и оставить один, где будет список доступных поисковиков. Тогда нафига форум вообще ?
КопироватьСсылка
Рассказать друзьям
Egor_M
experienced
Сообщений: 606
18.03.04 15:28Ответ на сообщение Re: Delphi & Excel пользователя Сибиряк
Вопросы бывают разные...

Если бы он спросил, какой способ из [перечень из нескольих способов] вы порекомендуете для работы из Delphi с Excel - я бы не возникал...

Просто у БОЛЬШИНСТВА программеров на Delphi(и не только) рано или поздно возникает потребность работать с Excel. В разных форумах по этому поводу МАССА инфы...

Лично мне не понятно, зачем лезь в форум и задавать вопросы, предварительно не потратив хотя бы 1 часа на поиск решения в другом месте(документация, поисковик, коллеги на работе и т.д.).
Toyota Vitz 2005 1.3-> Mercedes CLK 2002 2.3 Kompressor-> Kia Sportage 2012 Biturbo T-GDI
КопироватьСсылка
Рассказать друзьям
Сибиряк
old hamster
Сообщений: 13510
18.03.04 23:05Ответ на сообщение Re: Delphi & Excel пользователя Egor_M
Тем не мение. Если ты знаешь способ помочь человеку, но тебе "влом", это не есть хорошо
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
19.03.04 09:00Ответ на сообщение Re: Delphi & Excel пользователя Сибиряк
В ответ на: Тем не мение. Если ты знаешь способ помочь человеку, но тебе "влом", это не есть хорошо
Если человек не хочет думать - это не есть хорошо.
Форум создан для "пробовал-не получается-подскажите", а не для "не пробовал-и не хочу-напишите".
Солидарность с Egor_M.
КопироватьСсылка
Рассказать друзьям
Сибиряк
old hamster
Сообщений: 13510
19.03.04 12:05Ответ на сообщение Re: Delphi & Excel пользователя Анонимный пользователь
В ответ на: "не пробовал-и не хочу-напишите"
Читаем внимательно, ещё раз:
А человек поискал в поисковике... И ему выдало куча НЕНУЖНОЙ информации...
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
19.03.04 12:25Ответ на сообщение Re: Delphi & Excel пользователя Сибиряк
В ответ на: А человек поискал в поисковике... И ему выдало куча НЕНУЖНОЙ информации...
1. заходим на ya.ru
2. набираем "Delphi & Excel"
3. первая же ссылка расскажет нам о позднем связывании
практически аналогичная ситуация и в rambler и в google - нужные статьи на первой же странице результатов поиска.
КопироватьСсылка
Рассказать друзьям
Egor_M
experienced
Сообщений: 606
19.03.04 12:35Ответ на сообщение Re: Delphi & Excel пользователя Сибиряк
В ответ на: 1. заходим на ya.ru
2. набираем "Delphi & Excel"
3. первая же ссылка расскажет нам о позднем связывании
практически аналогичная ситуация и в rambler и в google - нужные статьи на первой же странице результатов поиска.
Он прав.

Самостоятельнее надо быть...
Toyota Vitz 2005 1.3-> Mercedes CLK 2002 2.3 Kompressor-> Kia Sportage 2012 Biturbo T-GDI
КопироватьСсылка
Рассказать друзьям
Ф-1
guru
Сообщений: 4749
01.04.04 09:30Ответ на сообщение Delphi & Excel пользователя Turbokey
Не могу решить следующую проблему - Из Delphi работаю с Excel 2000. Программу переносят на другой комп - там Оффис ХР. Программа ругается и не хочет работать. Как сделать чтобы она работала с любой версией Excelа а не только с 2000?
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
01.04.04 10:01Ответ на сообщение Re: Delphi & Excel пользователя Ф-1
в общем случае - никак
КопироватьСсылка
Рассказать друзьям
craxx
рыжий котэ
Сообщений: 12083
01.04.04 10:29Ответ на сообщение Re: Delphi & Excel пользователя Ф-1
А ты с Экселем работаешь через серверные крмпоненты или через OleVariant?
Осторожнее с травой!
Если хапнешь много дряни
Увезут тебя с собой
Злые инопланетяне
КопироватьСсылка
Рассказать друзьям
Egor_M
experienced
Сообщений: 606
01.04.04 11:07Ответ на сообщение Re: Delphi & Excel пользователя Ф-1
Ты бы хоть написал как ругается....
Toyota Vitz 2005 1.3-> Mercedes CLK 2002 2.3 Kompressor-> Kia Sportage 2012 Biturbo T-GDI
КопироватьСсылка
Рассказать друзьям
craxx
рыжий котэ
Сообщений: 12083
01.04.04 11:16Ответ на сообщение Re: Delphi & Excel пользователя Egor_M
Матерно
Осторожнее с травой!
Если хапнешь много дряни
Увезут тебя с собой
Злые инопланетяне
КопироватьСсылка
Рассказать друзьям
Ф-1
guru
Сообщений: 4749
01.04.04 11:43Ответ на сообщение Re: Delphi & Excel пользователя Egor_M
Delphi 7.0. В панели Servers установлены компоненты для Office2000. Их и использую. Как для других версий Officа - не знаю.
КопироватьСсылка
Рассказать друзьям
craxx
рыжий котэ
Сообщений: 12083
01.04.04 12:57Ответ на сообщение Re: Delphi & Excel пользователя Ф-1
Ну тады понятна! Если работать через OleVariant, тогда таких проблем не возникает.
Осторожнее с травой!
Если хапнешь много дряни
Увезут тебя с собой
Злые инопланетяне
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
01.04.04 14:08Ответ на сообщение Re: Delphi & Excel пользователя craxx
В ответ на: Ну тады понятна! Если работать через OleVariant, тогда таких проблем не возникает.
если под "работать через OleVariant" подразумевается работа через позднее связывание, то всё равно не получится.
методы и параметры, увы, различаются.
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
15.04.04 10:49Ответ на сообщение Re: Delphi & Excel пользователя Анонимный пользователь
var
fxla:OLEVariant;
begin
fxla:=CreateOLEObject('Excel.Application');

fxla.Visible:=false;
fxla.AskToUpdateLinks:=false;
// fxla.DisplayAlerts:=false;
fxla.Workbooks.Open(fFileName);
fxla.Sheets[ASheetName].Select;
fCSheet:=ASheetName;
fxla.Cells.Select;
fxla.Selection.Copy;
fxla.ActiveWorkbook.Close(false);
fxla.quit;
fxla:='';
// Здесь имеем в буфере обмена весь лист эксель, разделение ячеек #9, строк #13#10, вставить для примера можно в TMemo его методом PastefromClipboard

end;

Могу кинуть готовый модуль. Скорость работы этого метода самая высокая.
КопироватьСсылка
Рассказать друзьям
oygan
Анонимный пользователь
01.05.04 09:39Ответ на сообщение Re: Delphi & Excel пользователя Анонимный пользователь
Народ , помогите.

Оброщаюсь к Excel при помощи компаненты.
Как сменить лист?
Как получить имя листа который в данное время активен?

С уважением, Евгений
КопироватьСсылка
Рассказать друзьям
Господин Уэф!
Анонимный пользователь
05.05.04 09:52Ответ на сообщение программно сменить лист в EXCEl пользователя oygan
Кстати у меня таже фигня. Перерыл кучу литературы, шарюсь наwww.delphimaster.ru и других сайтах. Народ в основном работает через Ole а Com компоненты с закладки Server реже встречаются. проблемма у меня таже. В литературе и и-нете встречается такое ExcelApplication1.Sheet('лист1').Name:='новое имя листа' к примеру но компилятор не признает такое. да еще и нет многих функций и процедур которые вылетают по точке хотя они описываются в литературе.
Пользую Office2000, Delphi6 в Uses прописал Excel2000 и Ole и все что полагается. Эмоций ноль.
Так что не всегда помогает то что в сети находишь. Часто то что работает у одного у другого не работает. Или какие то ньюансы пропущены.
КопироватьСсылка
Рассказать друзьям
oygan
Анонимный пользователь
07.05.04 14:45Ответ на сообщение Re: программно сменить лист в EXCEl пользователя Господин Уэф!
Частично проблему решил!
Тоже Пользую Office2000, Delphi6 и в Uses прописал Excel2000 .

Код следующий
var
Myexcel:TExcelApplication;

WSheet: Excel2000._Worksheet;
MyWorkbook: Excel2000.ExcelWorkbook;
.....................................................................................
//============Создать соединение с EXCEL(раннее связывание)==========
MyExcel := TExcelApplication.Create(Self);
MyExcel.ConnectKind := ckRunningOrNew;
MyExcel.Connect;

//Сделать видемым
MyExcel.Visible[0]:=true;
//==============************=================================
// создать шаблон
//MyWorkbook := MyExcel.Workbooks.Add(OpenDialog1.FileName,0);

//Открать книгу
if Assigned(MyExcel) then
MyWorkbook := MyExcel.Workbooks.Open(OpenDialog1.FileName, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, false, 0);

//Определить рабочий лист
WSheet := MyWorkbook.Worksheets.Item['лист1 или индекс но без ковычек'] as Excel2000._Worksheet;

Правдо это несколько разовое удовольствие у меня.
Если определить рабочий лист один раз и навсегда всё классно.
О вот со сменной листа часто касячет код...
КопироватьСсылка
Рассказать друзьям
craxx
рыжий котэ
Сообщений: 12083
07.05.04 15:57Ответ на сообщение Re: программно сменить лист в EXCEl пользователя Господин Уэф!
Не знаю, я в C++Builder-е через OlePropertyGet и OlePropertySet никаких проблем не имею.
Осторожнее с травой!
Если хапнешь много дряни
Увезут тебя с собой
Злые инопланетяне
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
11.05.04 12:44Ответ на сообщение Re: программно сменить лист в EXCEl пользователя oygan
Новая проблема!
Как создать новую книгу и сохранить ту ,что есть!
Использую раннее связывание .

Зарание блогадарен.
КопироватьСсылка
Рассказать друзьям
Пётр из БЗ
Анонимный пользователь
22.07.04 01:02Ответ на сообщение Сохронение Книги из Delphi пользователя Анонимный пользователь
Коллеги, если не в лом, помогите заработать на отпуск, в долгу не останусь!
Проблема - MS Excel.
Задача - кликнув на клетке "правой мышкой" получить список, следующий клик - значение из списка "легло" в клетку.
Проштудировал всего Уокенбаха (преклоняюсь), ни ответа, ни намёка. А ой как надо.
Повторяю, отблагодарю.
piotr@miron.lt
КопироватьСсылка
Рассказать друзьям
Zlork
Sorry but...
Сообщений: 44172
22.07.04 10:10Ответ на сообщение Re: Сохронение Книги из Delphi пользователя Пётр из БЗ
отправил пример
Кладоискатель высшей категории
КопироватьСсылка
Рассказать друзьям

НГС.Форум /Компьютеры Интернет Связь / Программирование /

Перейти в форум

открыть в новом окне

Модератор:

flopic