Вопрос по XlCreateExcelWithTemplate

galover · Сообщение **galover** » 24 июн 2008, 16:55

В каком месте диска создается файл - результат работы этой функции? во временной папке ОС?

m0p3e · Сообщение **m0p3e** » 24 июн 2008, 18:41

Данная функция ничего не создает. Она открывает указанный файл.

xlCreateExcelWithTemplate
Function xlCreateExcelWithTemplate(TemplateName : string; Visible : boolean) : boolean;
Открывает Excel файл с именем FileName. Если Excel уже был запущен, то новый не создает, а подключается к нему.

galover · Сообщение **galover** » 25 июн 2008, 12:03

m0p3e

я тоже так думал, но в том то и дело, что создает! И даже имена вновь создаваемым файлам дает как "имя шаблона" + номер.xls
Сейчас использую вот такой код обертку

Код: Выделить всё

public function CreateExcelFileFromTemplate(templateName : string; fileName : string) : boolean;
{
   DeleteFile(fileName);
   result := CopyMoveFile(templateName, fileName, false);

   if (result)
   {
      XlCreateExcelWithTemplate(fileName, true);
      XlDisplayAlerts(false);

      result := XlIsExcelValid();
   }
}

templateName - путь к шаблону, fileName - путь к новому файлу.
После открытия созданного файла -> fileName можно удалить! Т.е. если бы открылся fileName, то имя бы у него было как у шаблона и он бы был заблокирован от удаления. Вот

m0p3e · Сообщение **m0p3e** » 25 июн 2008, 13:23

Вот исходник:

Код: Выделить всё

constructor tExporter.CreateWithTemplate;
begin
  inherited Create;
  InitExporter;
  if(not DoOpenExcel) then begin
    Fail; Exit;
  end;
  try
    SetGlobSettingOnStart(Visible);
    if (trim(TemplateName) = '') then begin
      WBook := ExApp.WorkBooks.Add;
    end else begin
      CloseWorkBookByName(TemplateName); // перенесли из Vip закрытие книжки сюда
      WBook := ExApp.WorkBooks.Add(TemplateName);
    end;
    WBook.Windows[1].WindowState := xlMaximized;
    ExApp.ScreenUpdating := False;
  except
    LogOnExcept('CreateWithTemplate1');
    LastError := cgxlErrAddWorkBook;
  end;
  try
    WSheet := WBook.WorkSheets.Item[1];
  except
    LogOnExcept('CreateWithTemplate2');
  end;
end;

Не должен он ничего создавать по идее.

Алексей

я как-то давно писал отчет, открывал так же шаблон, потом его переименовывал и сохранял уже с другим именем в OUT

не создает, это точно.

galover · Сообщение **galover** » 25 июн 2008, 13:40

m0p3e

Код: Выделить всё

ExApp.WorkBooks.Add(TemplateName);

ну тут как бы создается новая книга, так чтА... Хотя код явно не весь, так что только гадать что там внутрях

m0p3e · Сообщение **m0p3e** » 25 июн 2008, 13:49

Код весь. Поверь мне. Вызываемые функции не относятся к темплейтам. Если имя файла не передано, то просто создает новую. Если передано, то пытается открыть файл по этому пути. Все остальное особенности Excel-я.

galover · Сообщение **galover** » 25 июн 2008, 14:05

Алексей
Сам не верил, пока не попробовал!

galover · Сообщение **galover** » 25 июн 2008, 14:14

может раньше это и было так, только сейчас после вызова XlCreateExcelWithTemplate(fileName, true); - темплейт освобождается сразу!!! Попробуйте, поставить Message и удалите файл темплейта!!!! Галактика 8.10, все последние патчи стоят. Файл создается как временный - имя файла -> 'имя файла темплейта'1 (далее 2, 3, 4...) если формировать несколько отчетов подряд

galover · Сообщение **galover** » 25 июн 2008, 14:29

поисследовав убедился, что сначала открывается книга templat-а, с нее делается слепок, далее template закрывается и мы уже работаем с копией, эта копия нигде не сохраняется. И юзер уже сам потом решает что с ней делать

m0p3e · Сообщение **m0p3e** » 25 июн 2008, 15:36

А нету у меня 8.1. Проверять негде.
Исходники библиотеки у меня от 8.1. Может уже в процессе эксплуатиции 8.1 поменяли что-то?

savov · Сообщение **savov** » 04 авг 2009, 10:24

Попробовал эту функцию в 8.10. Действительно, создается копия файла. Вопрос, как открыть файл (существующий) екселя, считать с него данные и закрыть его, НЕ СОЗДАВАЯ КОПИИ???? Очень надо!!!! Написал программку, все работает, но создается копия, как от этого избавится, пока не знаю.

m0p3e · Сообщение **m0p3e** » 04 авг 2009, 10:42

Подозреваю, что excel ведет себя таким образом при открытии xlt файлов.

edward_K · Сообщение **edward_K** » 04 авг 2009, 12:20

есть Xlopenexcel

savov · Сообщение **savov** » 04 авг 2009, 13:49

edward_k, согласно доке:

Описание:
Function xlOpenExcel (Visible : boolean) : boolean;
Открывает Excel, никаких файлов не откравает. Если Excel уже был запущен, то новый не создает, а подключается к нему.
Возвращает результат операции.

ДАННАЯ ФУНКЦИЯ НЕ ОТКРЫВАЕТ ФАЙЛ!
Есть что то еще? или может несколько надо?

mOp3e,
РАБОТАЮ С xls файлом (создан вообще независимо от Гал-ки)