Чтение данных из Excel-файла. - Pascal ABC
Формулировка задачи:
Подскажите, пожалуйста, каким образом чтитывать данные из excel-таблиц?
Пытаясь сделать данным образом:
Заранее спасибо.
получаю:
РПаЎ±б
Решение задачи: «Чтение данных из Excel-файла.»
textual
Листинг программы
program SimpleExcel;
#apptype windows
#reference 'System.Windows.Forms.dll'
#reference 'Microsoft.Office.Interop.Excel.dll'
uses
System,
System.Windows.Forms,
Microsoft.Office.Interop;
var
app: Excel.Application;
ws: Excel.Worksheet;
begin
app:=new Excel.ApplicationClass();
app.Visible:=false;
app.Workbooks.Open('D:\Библиотека\Лингвистика\Программы и словари\Excel.xls', System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing);
ws:=app.Workbooks[1].Worksheets[1] as Excel.Worksheet;
//ws.Cells[1, 1]:='test';
MessageBox.Show((ws.Cells[1, 1] as Excel.Range).Value2.ToString()); // Необходимо задать значение, иначе ошибка
app.Quit();
end.
Объяснение кода листинга программы
- Создается новый экземпляр класса Excel.ApplicationClass.
- Открывается файл Excel.xls в скрытом режиме.
- Получается первый лист первого рабочего книги.
- Выводится значение ячейки A1 (по умолчанию, если не указано другое) с помощью метода MessageBox.Show().
- Применяются методы Quit() для закрытия приложения Excel.