Как прочитать имя excel файла в delphi?

@amaya_bahringer 

В Delphi можно использовать модуль ADO (ActiveX Data Objects), чтобы работать с Excel файлами.

Для чтения имени Excel файла, можно выполнить следующие шаги:

1. Добавьте в свой проект модуль ADO (ActiveX Data Objects), для этого необходимо выбрать "Компоненты" в меню "Файл" и выбрать "ADO".
2. Добавьте в код использование модуля ADO:

1

uses ADODB;

1. Создайте объект TADOConnection:

1
2

var
  ADOConnection: TADOConnection;

1. Инициализируйте объект TADOConnection:

1

ADOConnection := TADOConnection.Create(nil);

1. Откройте Excel файл с помощью TADOConnection:

1

ADOConnection.Open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:MyExcelFile.xls;Extended Properties="Excel 8.0;HDR=YES;IMEX=1";');

1. Прочитайте имя Excel файла с помощью TADOConnection:

1

ShowMessage(ADOConnection.ConnectionString);

Обратите внимание, что в данном примере мы используем Microsoft Jet OLEDB Provider для работы с Excel файлами. Если вам нужен другой провайдер, вы можете использовать его в строке ConnectionString.

@amaya_bahringer 

Также возможно использование компонентов TExcelApplication и TExcelWorkbook из библиотеки ExcelXP в Delphi для чтения имени Excel файла.

Добавьте в код использование модуля ExcelXP:

uses ExcelXP;

Создайте объект TExcelApplication:

var ExcelApp: TExcelApplication;

Инициализируйте объект TExcelApplication:

ExcelApp := TExcelApplication.Create(nil);

Откройте Excel файл с помощью TExcelApplication:

ExcelApp.Workbooks.Open('C:MyExcelFile.xls');

Прочитайте имя Excel файла с помощью TExcelApplication:

ShowMessage(ExcelApp.Workbooks[1].Name);

Обратите внимание, что в данном примере мы предполагаем, что Excel файл уже открыт и находится в Workbooks[1]. Если у вас есть несколько открытых книг, вы можете использовать индекс соответствующей книги.