Чтение данных из Excel-файла. - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Подскажите, пожалуйста, каким образом чтитывать данные из excel-таблиц? Пытаясь сделать данным образом:
Листинг программы
  1. var
  2. st: string[10];
  3. dict: Text;
  4. begin
  5. Assign(dict,'Лист Microsoft Excel.xls');
  6. Reset(dict); // открываем
  7. readln(dict,st);
  8. write(st);
  9. Close(dict);
  10. end.
получаю:
РПаЎ±б
Заранее спасибо.

Решение задачи: «Чтение данных из Excel-файла.»

textual
Листинг программы
  1. program SimpleExcel;
  2.  
  3. #apptype windows
  4. #reference 'System.Windows.Forms.dll'
  5. #reference 'Microsoft.Office.Interop.Excel.dll'
  6.  
  7. uses
  8.   System,
  9.   System.Windows.Forms,
  10.   Microsoft.Office.Interop;
  11.  
  12. var
  13.   app: Excel.Application;
  14.   ws: Excel.Worksheet;
  15. begin
  16.   app:=new Excel.ApplicationClass();
  17.   app.Visible:=false;
  18.   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);
  19.   ws:=app.Workbooks[1].Worksheets[1] as Excel.Worksheet;
  20.   //ws.Cells[1, 1]:='test';
  21.   MessageBox.Show((ws.Cells[1, 1] as Excel.Range).Value2.ToString()); // Необходимо задать значение, иначе ошибка
  22.   app.Quit();
  23. end.

Объяснение кода листинга программы

  1. Создается новый экземпляр класса Excel.ApplicationClass.
  2. Открывается файл Excel.xls в скрытом режиме.
  3. Получается первый лист первого рабочего книги.
  4. Выводится значение ячейки A1 (по умолчанию, если не указано другое) с помощью метода MessageBox.Show().
  5. Применяются методы Quit() для закрытия приложения Excel.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.091 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут