Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как открыть в Excel несколько файлов? Через OpenDialog 
V
    Опции темы
EvilProgrammer
  Дата 18.7.2006, 12:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Подскажите, плиз, как можно открыть несколько файлов (скажем целую директорию) в Екселе, через OpenDialog.
Я написал програмульку которая может открыть один файл из нужного мне каталога, а потом пересохранить его в каталоге и под  именем которые укажет пользователь. Однако хотелось бы сделать так что бы открывалось несколько файлов и потом они пересохранялись  стеми же именами, но в указанную директроию и в другом формате. 
PM MAIL   Вверх
Paranoik
Дата 19.7.2006, 05:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Дык, ну так по очереди открывай... или заноси сразу все, а потом сохраняй, так же по очереди, присваивая каджому необходимое те имя. Или мож я че не так понял? 
PM MAIL   Вверх
Alexeis
Дата 19.7.2006, 09:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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



EvilProgrammer, OpenDialog позволяет использовать множественное выделение. В результате получим список путей. Для каждого файла, насколько я знаю, надо создавать свой WorkBook. Далее с каждым WorkBookом можно работать точно также как и с одним. 

Это сообщение отредактировал(а) alexeis1 - 19.7.2006, 09:38


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
EvilProgrammer
Дата 19.7.2006, 15:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Дело в том что сами файлы переименовывать нет необходимости. Это файлы отчетов, котрорые нужно перевести в текстовый формат из соображений уменьшения объема.  Собственно изменение формата затруднений не вызвало и програмулька просто замечательно справляется с одним конкретным файлом. 

Это сообщение отредактировал(а) EvilProgrammer - 19.7.2006, 15:15
PM MAIL   Вверх
Alexeis
Дата 19.7.2006, 15:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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



Цитата(EvilProgrammer @  19.7.2006,  15:05 Найти цитируемый пост)
Дело в том что сами файлы переименовывать нет необходимости

А кто говорил что их нужно переименовывать

Цитата(EvilProgrammer @  19.7.2006,  15:05 Найти цитируемый пост)
Собственно изменение формата затруднений не вызвало

А что вызвало? 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
EvilProgrammer
Дата 20.7.2006, 09:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Затруднение на данный момент вызывает сам принцип помещения N-колчисетва файлов *.xls в Ексель. ОпенДиалог хоть и выделяет несколько фалов, но в Екселе все же открывается только один (первый который был выделен). Может конечно не так что-то делаю. Я раньше с таким не сталкивался и только начинаю работать. Еще хотел спросить, можно ли загружать файлы не через ОпенДиалог, а через ДиректориЛистБокс или ФайлЛистБокс? Заранее благодарен.

П.С. Что в этой строчек не так? 
Код
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ShowMessage('ÂÍÈÌÀÍÈÅ!!! ÑÅÉ×ÀÑ ÍÀ ÂÀØÅÉ ÌÀØÈÍÅ ÁÓÄÅÒ ÇÀÏÓÙÅÍ Excel. ÏÎÑËÅ ÇÀÂÅÐØÅÍÈß ÐÀÁÎÒÛ ÎÁßÇÀÒÅËÜÍΠÍÀÆÌÈÒÅ Close Excel');
  Workbook:= ExcelApp.Workbooks.Open(FileName:=FileListBox1.FileName);
  ExcelApp.Visible:= False;
end;


   
PM MAIL   Вверх
Albinos_x
Дата 20.7.2006, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


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

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



Не совсем понятно, что вызывает проблему....

статью http://forum.vingrad.ru/index.php?showtopi...34&view=all

читали?

запускаете необходимые файлы Ексель, а потом работаете с ними как смассивом через сервер ExcelApp... 


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
EvilProgrammer
Дата 20.7.2006, 13:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Albinos_x, 
Спасибо. Помогло. smile
 
PM MAIL   Вверх
Akella
Дата 25.7.2006, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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



Код

Var
i:integer
begin
...
  For od1.Files.count-1 do begin
    OpenExcelFile(od1.Files[i]);
  end;//for


замечание - в свойстве ConnectKinde компоненты TExcelApplication поставь ckRunningOrNew

OpenExcelFile - это твоя процедура, которая открывает один файл, просто в цикле вызываешь эту процедуру несколько раз и всё, по крайней мере я так реализовал 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

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


 




[ Время генерации скрипта: 0.7863 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.