VPF::TMS (TAdvGridExcelIO) cannot Load From file - Форум программистов

NOCaut

Дата 11.8.2014, 14:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0

Пытаюсь сделать импорт *.xls файла с 7 вкладками.
метод FExcelIO.XLSImport(aFileName); - работает только для статический компонентов. Если создать его динамически - получаю ошибки
Error: "Exception with message 'There is no AdvStringGrid assigned to this component'."

Например:

Код

procedure TForm1.btn1Click(Sender: TObject);
var
  FExcelIO: TAdvGridExcelIO;
begin
  FExcelIO := TAdvGridExcelIO.Create(nil);
  FExcelIO.XLSImport('d:\xxx.xls');
  FExcelIO.AdvGridWorkbook := advgrdwrkbk1;
end;

Добавлено Добавлено @ 13:54
Я написал свои функции по загрузки и выгрузке, но не уверен что они правильно работают. Все ли я правильно сделал?

Код

procedure TAdvSpreadBook.LoadFromFile(const aFileName: string);
var
  i: Integer;
  G: TAdvSpreadGrid;
begin
  FExcelIO.XLSImport(aFileName);
  exit;

  while FPageControl.PageCount > 0 do
    FPageControl.Pages[0].Free;

  FExcelIO.LoadSheetNames(aFileName);

  for I := 0 to FExcelIO.SheetNamesCount - 1 do
  begin
    G := NewGrid(FExcelIO.SheetNames);

    FExcelIO.AdvStringGrid := G;
    FExcelIO.XLSImport(aFileName);
  end;
end;

Код

procedure TAdvSpreadBook.SaveToFile(const aFileName: string);
var
  i: Integer;
begin
 for I := 0 to FExcelIO.SheetNamesCount -1 do
 begin
   FExcelIO.AdvStringGrid := GetGrids(I);
   FExcelIO.XLSExport(aFileName, FExcelIO.SheetNames[i]);
 end;
end;

Это сообщение отредактировал(а) NOCaut - 11.8.2014, 14:15

NOCaut

Дата 11.8.2014, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0

FExcelIO.AdvGridWorkbook := advgrdwrkbk1; - попутал местами строки

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »