Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > работа с excel

Автор: MrDmitry 19.5.2014, 21:39

нашел и скачал в интернете вот такой модулек который я прикрепил к теме.
Все бы хорошо, но чтоб нормально сохранить excel, нужно правильно выбрать активный такая функция

Код


function GetAllWorkBooks:TStringList;
var i:integer;
begin
  try
    Result:=TStringList.Create;
    for i:=1 to MyExcel.WorkBooks.Count do
      Result.Add(MyExcel.WorkBooks.Item[i].FullName)
  except
    MessageBox(0,'Ошибка перечисления открытых книг','Ошибка',MB_OK+MB_ICONERROR);
  end;
end;

Из приведенного модуля, не перебирает книги и все сохраняется в первую активную книгу (

Автор: Akella 20.5.2014, 08:52

Цитата(MrDmitry @ 19.5.2014, 21:39

)

нужно правильно выбрать активный такая функция

что-что выбрать?

Добавлено через 1 минуту и 13 секунд
Я пока до конца не понял, конкретно, что им именно нужно?

Автор: MrDmitry 21.5.2014, 12:23

Цитата

Все бы хорошо, но чтоб нормально сохранить excel, нужно правильно выбрать книгу, в которую будут сохранены данные. Для этого используется такая функция

Извиняюсь, что то я коряво написал )

Автор: gesper 22.5.2014, 11:46

Непонятно где и как задано MyExcel.

У меня помнится при смене версии Delphi были проблемы с кодами такими. То что раньше работало, пришлось немного видо изменять. Точно не помню что и как.
Я бы передавал функии значение MyExcel, а не надеялся что она глобально его увидит.