![]() |
|
Модераторы: stron |
![]()
|
|
| Tamerlan777 |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 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(); КонецПроцедуры |
|||
|
||||
| geka6pucT |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 24 Регистрация: 31.7.2007 Репутация: нет Всего: нет |
Может сохранить путь, а потом его использовать где захочется? а если нужен путь в контексте модуля, тогда объявить переменную в начале модуля, и держать в ней путь.
Это сообщение отредактировал(а) geka6pucT - 23.2.2008, 10:05 |
|||
|
||||
![]()
|
| Правила форума "1C: Предприятие, SAP, ERP и учётные системы" | |
|
|
Запрещается! 1. Обсуждение крэков, кейгенов и других подобных программ Пробуйте искать сами или обращайтесь в приват к участникам форума. Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения. Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...) 2. Давать ссылки на взломанные продукты
|
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |