Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
useruser
61 / 62 / 29
Регистрация: 29.06.2015
Сообщений: 652
#1

Delphi и excel как работать с несколькими листами? - Delphi

28.07.2015, 12:01. Просмотров 930. Ответов 1
Метки нет (Все метки)

Как можно работать в Delphi с excel файлом, состоящим из нескольких листов?
Сейчас программа осуществляет поиск информации на листе (этот код есть и работает, тут его не написал).
Нужно, чтобы программа производила поиск по всем листам.
Как узнать количество листов и "активировать" нужный лист?

Delphi
1
2
3
4
5
6
7
8
9
Ap:=CreateOleObject('Excel.Application');
Ap.Workbooks.Open(input_file_path,0,True);
Ap.DisplayAlerts:=False;
//Количество заполненных строк и столбцов
excel_rows:=Ap.ActiveSheet.UsedRange.Rows.Count;
excel_columns:=Ap.ActiveSheet.UsedRange.Columns.Count;
 
//Количество листов
sheets_count:=Ap.Workbook.Sheets.Count;//Тут ошибка.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.07.2015, 12:01
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Delphi и excel как работать с несколькими листами? (Delphi):

Работа с несколькими листами книги Excel в Delphi
Доброе утро, у меня вышла загвоздка когда потребовалось работать с несколькими...

Как работать с несколькими книгами Excel
Здравствуйте ВСЕ. Подскажите как решить следующую задачу. Есть несколько...

Переключаться между листами Excel
Как можно через делфи переключаться между листами в открытом Ексель ? Т.е....

Как в Delphi сделать Excel таблицу, не употребляя компонент TStringGrid и связать ее с Delphi
Как в Delphi сделать Excel таблицу, не употребляя компонент TStringGrid и...

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

Как в Delphi работать с файлами?
ПОмогите пожалуйста!!! Как в Delphi работать с файлами??? Создавать,...

1
Alexey2014
63 / 63 / 35
Регистрация: 17.09.2014
Сообщений: 595
29.07.2015, 09:12 #2
useruser,
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var Ap: OLEVariant;
    sheets_count,i:integer;
    WSheet:variant;
    //...
begin
  Ap:=CreateOleObject('Excel.Application');
  Ap.Workbooks.Open(input_file_path,0,True);
  Ap.DisplayAlerts:=False;
  sheets_count:=Ap.worksheets.count;
  for I := 1 to sheets_count do
  begin
    WSheet:= Ap.WorkSheets[i] ;
    WSheet.activate;
    //...
  end;
//...
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.07.2015, 09:12
Привет! Вот еще темы с решениями:

Как работать с XML в Delphi?
Здравствуйте, помогите пожалуйста разобраться, как работать с XML в Delphi У...

Как работать с портами в Delphi?
как работать с портами в Delphi?

Как работать с изображениями в Delphi?
Всем здрасте. Нужно помощь по курсовой работе(тема риэлторское агентство). Мне...

FireFox как работать с COM на Delphi.
Доброго времени суток уважаемые программисты не могли бы вы подсказать, как я...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru