Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> SaveDialog, Не получается разобраться 
:(
    Опции темы
chiffa
Дата 25.7.2007, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
Что то не могу разобраться с SaveDialog. как с его помощью созранить файл? (в моем случаи ексель). 
пробывал так: 
Код

if (SaveDialog1.Execute)
  then SaveToFile(SaveDialog1.FileName);


но ошибка....
PM MAIL   Вверх
Telepyz
Дата 25.7.2007, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Вроде все правильно делаешь, только ...
Код

if SaveDialog1.Execute  then 
 Memo1.SaveToFile(SaveDialog1.FileName); //Нужно указывать из какого объекта должны сохраняться данные

--------------------
обновить драйвер
PM MAIL   Вверх
chiffa
Дата 25.7.2007, 16:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
Написал Excel.SaveToFile(SaveDialog1.FileName); при попытке сохранения выдает:

Method 'SaveToFile' not supported by automation object
PM MAIL   Вверх
sentry
Дата 25.7.2007, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Code Monkey
*


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

Репутация: нет
Всего: 10
Следующий код сохраняет в заданном файле активную книгу:
Код

if SaveDialog1.Execute then
  ExcelApplication1.ActiveWorkbook.SaveAs(SaveDialog1.FileName, 
    EmptyParam, EmptyParam, EmptyParam, EmptyParam,
    EmptyParam, xlNoChange, EmptyParam, EmptyParam,
    EmptyParam, EmptyParam, LOCALE_USER_DEFAULT);
PM MAIL   Вверх
chiffa
Дата 25.7.2007, 17:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
спасибо! вопрос немного не в эту тематику, но все же, а могу ли я как то открыть сразу несколько книг и как их в дальнейшем определять? Excel.Workbooks[1].Open - выпадает на ошибку....
PM MAIL   Вверх
pseud
Дата 25.7.2007, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
Код

XLWorkbook1:= XLApp.Workbooks.Add(-4167);
XLWorkbook2:= XLApp.Workbooks.Add(-4167);



--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
chiffa
Дата 25.7.2007, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
и еще, а как я могу получить имя сохраненного файла и путь к нему?
PM MAIL   Вверх
pseud
Дата 25.7.2007, 17:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
Цитата(chiffa @  25.7.2007,  17:32 Найти цитируемый пост)
и еще, а как я могу получить имя сохраненного файла и путь к нему? 


сохраненного - значит ты его уже сохранил
под каким именем его сохранил - под таким он и есть
или я не так понял?

как ты его сохранил?




--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
chiffa
Дата 25.7.2007, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
имеюю ввиду, как мне дальше оперировать этим именем? какая переменная отвечяет за имя файла?
PM MAIL   Вверх
pseud
Дата 25.7.2007, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
Цитата(sentry @  25.7.2007,  17:18 Найти цитируемый пост)
  ExcelApplication1.ActiveWorkbook.SaveAs(SaveDialog1.FileName, 


если так то в SaveDialog1.FileName его и ищи
а лучше так

Код

s: string;
if SaveDialog.Execute then
begin
  s := SaveDialog1.FileName;
  ...
end;


и дальше везде юзай етот s


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
sentry
Дата 25.7.2007, 17:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Code Monkey
*


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

Репутация: нет
Всего: 10
Цитата(chiffa @  25.7.2007,  18:54 Найти цитируемый пост)
открыть сразу несколько книг и как их в дальнейшем определять?

Создание книги:
Код

ExcelApplication1.WorkBooks.Add(EmptyParam, LOCALE_USER_DEFAULT);


Открытие сохраненной книги:
Код

if OpenDialog1.Execute then
  ExcelWorkbook1 := ExcelApplication1.Workbooks.Add(OpenDialog1.FileName, LOCALE_USER_DEFAULT);


Получение доступа к книге:
Код

ExcelWorkbook1 := ExcelApplication1.Workbooks[I];  // I изменяется от 1 до ExcelApplication1.Workbooks.Count


Активизация книги:
Код

ExcelWorkbook1.Activate(LOCALE_USER_DEFAULT);


А этот код сохраняет каждую открытую книгу в файле, имя которого совпадает с именем книги, в рабочий каталог:
Код

for I := 1 to ExcelApplication1.WorkBooks.Count do
  ExcelApplication1.Workbooks[I].Save(LOCALE_USER_DEFAULT);
PM MAIL   Вверх
chiffa
Дата 26.7.2007, 08:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
всем списибо smile
PM MAIL   Вверх
Kbl4AH
Дата 16.1.2009, 08:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 4
Всего: 15
Здравствуйте.
Продолжу тему, вопрос такой.
Имя и расширение файла пользователем не должно меняться (ни вводом с клавиатуры, ни выбором другого файла).
Допустим файл должен быть MYFILE.TXT
Написал:
Код

  SaveDialog1.FileName := 'MYFILE';
  SaveDialog1.DefaultExt := 'TXT';
  SaveDialog1.Filter := 'TXT';
  if SaveDialog1.Execute then
    XML.SaveToFile(SaveDialog1.FileName);

Выглядит как нужно, т.е. и имя файла пользователю видно и расширение...
Но он может изменить имя файла с клавиатуры или
выбрать файл с другим расширением и тогда еще и оно изменится...
Как сделать, чтобы пользователь мог в диалоге только папку сохранения выбирать и больше ничего?
PM MAIL ICQ   Вверх
Rrader
  Дата 17.1.2009, 09:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191
Возьми и покажи ему диалог выбора папки тогда...


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
Kbl4AH
Дата 17.1.2009, 14:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 4
Всего: 15
Цитата(Rrader @  17.1.2009,  09:36 Найти цитируемый пост)
Возьми и покажи ему диалог выбора папки тогда...

Что за диалог? smile 
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0577 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.