VPF::Ошибка при создании файла в TExcelApp

allknower

Дата 21.12.2006, 19:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот такое окошко выскакивает при попытке создать новый файл при помощи TExcelApplication

---------------------------
Project1
---------------------------
Не удалось найти '1.xls'. Проверьте задание имени и местоположения файла.

При попытке открытия файла с использованием списка недавно использованных файлов из меню ''Файл'' убедитесь, что файл не был переименован, перемещен или удален.
---------------------------
ОК
---------------------------

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  ExcelApp.Connect;
  ExcelApp.Workbooks.Add('C:\1.xls',0);
  ExcelApp.Visible[0]:=true;
  ExcelApp.Disconnect;
end;

Грешил на Версию Office, у меня 2003. Но на XP такая же байда... smile

allknower

Дата 21.12.2006, 19:50 (ссылка)

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

Загрузка ...

Новичок

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

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

Ларчик просто открывался. Оказыватся Если в

Код


ExcelApp.Workbooks.Add('C:\1.xls',0);

в первый парметр вместо 'C:\1.xls' передавать EmptyParam, то создается пустая книга.
А если указать путь к СУЩЕСТВУЮЩЕМУ на диске файлу, до создается его копия.

Это сообщение отредактировал(а) allknower - 21.12.2006, 19:52

Albinos_x

Дата 21.12.2006, 21:06 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

Цитата(allknower @ 21.12.2006, 19:50

)

А если указать путь к СУЩЕСТВУЮЩЕМУ на диске файлу, до создается его копия.

В КАКОМ СМЫСЛЕ? копия чего?

у меня всё нормально работает...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

allknower

Дата 22.12.2006, 09:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Albinos_x @ 21.12.2006, 21:06)

В КАКОМ СМЫСЛЕ? копия чего?

Вот как это работает у меня...:

Решил создать новую книгу на диске С.
Пишу в Button1OnClick вот так:

Код


  ExcelApp.Connect;
  ExcelApp.Workbooks.Add('C:\temp.xls',0);
  ExcelApp.Disconnect;

А прога мне сообщает - "Не удалось найти 'temp.xls'. ". Удивляюсь. В ручную создаю файл 1.xls на диске с. Ну и добавил

Код


  ExcelApp.Visible[0]:=true;

чтоб посмотреть что ж все таки происходить. Теперь по нажатию копочки у меня открывался Excel и в нем открывался файл temp1.xls. Еще один клик и открывается второй Excel с temp2.xls и так далее.
Я изменил мой исходный, в ручную созданый файл (дописал белеберду типа "пвпвыпывп" в первую ячейку) и повторил эксперемент. Теперь temp1.xls, temp2.xls и т.д. создавались с этой белебердой в первой ячейке.

Код


  ExcelApp.Workbooks.Add(EmptyParam,0); //'C:\temp.xls' заменил на EmptyParam

А вот так создается полноценно новая книга, которую в последствии можно сохранить и вот тогда то она наконец станет файлом на жестком диске.

Вот такой вот ламотский эксперемент. smile

------------------------------------------------------
Delphi 7, Office 2003

Хотя с другой стороны это можно использовать в своих целях. Скажем где нить в папке с программой создаешь такую книгу new.xls. В Экселе расчерчиваешь табличку, заголовки вписываешь, размеры строк/столбцов выставляешь (чтоб программно такой батвой не заниматся). А потом при очередном экспорте вызываешь Сейв диалог, и... короче примерно так:

Код


If SaveDlg.Execute then
Try
 NameOfFile:=SaveDlg.FileName;
  ExcelApp.Connect;
  ExcelApp.Workbooks.Add(new.xls',0);
  ExcelApp.Workbooks.SaveAs(NameOfFile, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0)
  ExcelApp.Disconnect;
except ...

Это сообщение отредактировал(а) allknower - 22.12.2006, 11:32

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