Чтение XLS-файла

Постановка задачи: нужно средствами «Дельфи 7» прочитать данные листа из файла «Магазины.xls».

Рис. 1. Данные на «Лист 1» файла «Магазины»

Рис. 1. Данные на «Лист1» файла «Магазины»

Для чтения данных перенесем на форму необходимые компоненты: ADOConnection, ADOTable, DataSource, DBGrid.

Далее нужно подключиться к файлу, для этого кликаем 2 раза по компоненту «ADOConnection1» и настраиваем строку подключения. На закладке «Поставщик данных» выбираем «Microsoft OLE DB Provider for ODBC Driver», жмем «Далее».

Рис. 2. Закладка «Поставщик данных»

Переходим на закладку «Подключение», на которой выбираем «Использовать строку подключения».

Рис. 3. Закладка «Подключение»

Затем нужно выбрать источник данных.

Рис. 4. Выбор источника данных, закладка «Источник данных компьютера»

Выбираем строку «Файлы Excel», а далее находим файл «Магазины.xls», при этом будет создана строка подключения.

Компонент	Параметр, значение
ADOConnection1	ConnectionString = … LoginPrompt = False
ADOTable1	Connection = ADOConnection1 TableName = [Лист1$]
DataSource1	DataSet = ADOTable1
DBGrid1	DataSource = DataSource1

Затем перетаскиваем на форму кнопку «Button» и размещаем на ней код.

Procedure TForm1.Button1Click(Sender: TObject);

Var

i: byte;

Begin

ADOTable1.Active := True;

For i:= 0 to DBGrid1.Columns.Count-1 do

DBGrid1.Columns.Items[i].Width:=100;

End;

Проверяем работу приложения.

Рис. Прочитанный лист «Лист1» файла «Магазины.xls»

Рис. 5. Прочитанный лист «Лист1» файла «Магазины.xls»