Модераторы: stron
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Снова Открытие 
:(
    Опции темы
Tamerlan777
Дата 23.2.2008, 09:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Привет. А как мне сделать так, чтобы путь к файлу сохранялся. Т.е. при перезапуске системы 1С
путь не нужно было снова указывать, а он принимал бы значение которое мы указали раньше. 
Есть еще вторая процедура, она считывает данные этого открытого файла (первой процедуры).
И вот как мне сделать так чтобы вторая пройедура могла обратится к переменной указывающей путь в первой процедуре.
============================

Процедура Кнопка2Нажатие(Элемент)
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
Диалог.ПолноеИмяФайла="";
Фильтр="Excel(*.xlt)|*.xlt";
Диалог.Фильтр=Фильтр;
Диалог.Заголовок="Выберете файл";

Попытка
Эксель = ПолучитьCOMОбъект("", "Excel.Application");
Исключение
Сообщить(ОписаниеОшибки() + "Программа Excel не установлена на данном компьютере!");
Возврат;
КонецПопытки;

//т.е. вот это я хочу прописать во второй процедуре и обратится потом 
Книга=Эксель.WorkBooks.Open("C:\Регистрация_МГУ.xlt");

Лист=Книга.WorkSheets(1);

Лист.Cells(2,3).Value=ФИО.Фамилия;
Лист.Cells(3,3).Value=ФИО.Имя;
Лист.Cells(4,3).Value=ФИО.Отчество;
//=========================Диалог================================
Если Диалог.Выбрать() Тогда
Книга.SaveAs(Диалог.ПолноеИмяФайла);
Иначе
Предупреждение("Файл(ы) не выбран!");
КонецЕсли;
//=========================КонецДиалог===========================
Книга.Application.Quit();
КонецПроцедуры

//=====================================================
//=====================================================
//=====================================================
//=====================================================
//=====================================================
Процедура ПутьКШаблонуНажатие(Элемент)
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.ПолноеИмяФайла="";
Фильтр="Excel(*.xlt)|*.xlt";
Диалог.Фильтр=Фильтр;
Диалог.Заголовок="Выберете шаблон";
Попытка
Эксель = ПолучитьCOMОбъект("", "Excel.Application");
Исключение
Сообщить(ОписаниеОшибки() + "Программа Excel не установлена на данном компьютере!");
Возврат;
КонецПопытки;

//=========================Диалог================================
Если Диалог.Выбрать() Тогда
КнигаОткрытие=Эксель.WorkBooks.Open(Диалог.ПолноеИмяФайла);
Иначе
Предупреждение("Файл(ы) не выбран!");
КонецЕсли;
//=========================КонецДиалог===========================
КнигаОткрытие.Application.Quit();
КонецПроцедуры

PM MAIL   Вверх
geka6pucT
Дата 23.2.2008, 10:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Может сохранить путь, а потом его использовать где захочется? а если нужен путь в контексте модуля, тогда объявить переменную в начале модуля, и держать в ней путь.

Это сообщение отредактировал(а) geka6pucT - 23.2.2008, 10:05
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "1C: Предприятие, SAP, ERP и учётные системы"
stron

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

1. Обсуждение крэков, кейгенов и других подобных программ

Пробуйте искать сами или обращайтесь в приват к участникам форума.

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...)

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

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, stron, Pegas.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема »


 




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


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

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