В начало

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

 

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

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

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

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

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

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

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

 

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

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

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

 

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

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

Рис. 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»