Считывание файла Excel в F1Book1

← →
Оля (2002-09-19 11:38) [0]

Извините, что опять повторяюсь, но так и не получила ответа на мой вопрос:
В проекте есть пустой компонент F1Book1
необходимо при запуске программы считывать файл Excel в F1Book1.
Файл создан и находится в томже каталоге, что и программа.
Через SaveDialog я знаю как сделать, а как сделать это без вмешательства пользователя.

← →
Андрей Прокофьев (2002-09-19 11:44) [1]

>> Через SaveDialog я знаю как сделать, а как сделать это без вмешательства пользователя.

Как вы делаете через SaveDialog;

Не знаю свойств F1Book;
F1Book.<XLFileName> := ExtractFilePath(Application.ExeName) + "XXX.XLS"

← →
Оля (2002-09-19 13:16) [2]

Через SaveDialog я делаю это так:

Вставляю SaveDialog
его свойства
DefaultExt - *.xls
Filter - Excel File (*. xls)|*.xls

procedure TForm1.SpeedButton3Click(Sender: TObject);
var FileType : SmallInt;
begin
If SaveDialog1.Execute then
begin
if SaveDialog1.FilterIndex = 1
then FileType := 1
else FileType := 3;
F1Book1.FileName := SaveDialog1.FileName;
F1Book1.Write(SaveDialog1.FileName,FileType);
end;
end;

← →
Андрей Прокофьев (2002-09-19 13:22) [3]

Значит так.
Что же Вы хотите точно?
Если пользователь ВЫБИРАЕТ, куда сохранять, то должен и выбирать,
откуда считывать данные.

Иначе имя файла надо зарезервировать, например XXX.XLS

сохранять
F1Book1.Write(ExtractFilePath(Application.EXEName) + "XXX.XLS", FileType);
читать

F1Book1.Read(ExtractFilePath(Application.EXEName) + "XXX.XLS", FileType);

Считывание файла Excel в F1Book1 Найти похожие ветки