Чтение данных из Excel-файла. - Pascal ABC
Формулировка задачи:
Подскажите, пожалуйста, каким образом чтитывать данные из excel-таблиц?
Пытаясь сделать данным образом:
получаю:
Заранее спасибо.
Листинг программы
- var
- st: string[10];
- dict: Text;
- begin
- Assign(dict,'Лист Microsoft Excel.xls');
- Reset(dict); // открываем
- readln(dict,st);
- write(st);
- Close(dict);
- end.
РПаЎ±б
Решение задачи: «Чтение данных из 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д