Вопросик к гуру 1С
1С7- Торговля и склад (Оперативный учет )
Есть необходимость показа так называемого слайд шоу на экране телевизора.(то бишь крутить прайс-лист)
Реализовал следующим образом:
1)Чел. выгружает прайс в эксель.
2)добавляет туда написанный мною макрос(VBA)
3)разворачивает прайс на весь экран телевизора и запускает макрос

В этих пунктах вроде все легко кажется, но простому оператору 1С довольно таки сложно 2-3 раза в день подгружать в ручную макрос в эксель(мин 10-15 занимает)

соответственно возник вопрос:

А можно ли как-нибудь научить 1С выгружать прайс в эксель уже с готовым макросом??
Подскажите в какую сторону копать?

 

что делает твой макрос?

 

что делает твой макрос?

Прокручивает прайс с верху в низ по таймеру, как только доходит до конца, прыгает на верх и по новой, и так ВЕЧНОСТЬ ))

 

попробуй сделать так: пусть существует прайс с твоим макросом, из 1С ки делай выгрузку прайса в тот же файлик, т.е. просто заменяй данные и все. Думаю макрос там сохраниться, а данные банально обновятся.

 

попробуй сделать так: пусть существует прайс с твоим макросом, из 1С ки делай выгрузку прайса в тот же файлик, т.е. просто заменяй данные и все. Думаю макрос там сохраниться, а данные банально обновятся.

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

 

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

Таб.Записать("С:\Прайс.xls");

этот метод юзай.

 

Мне кажется метод "записать" заменит файл целиком. Скорее всего придется программно открывать файл и заполнять ячейки методом "Cells".

 

Мне кажется метод "записать" заменит файл целиком. Скорее всего придется программно открывать файл и заполнять ячейки методом "Cells".

Согласен. Именно такой способ позволит сохранить имеющиеся макросы в файле

 

Согласен. Именно такой способ позволит сохранить имеющиеся макросы в файле

да, вы правы , не учел этот момент, тогда действиетльно так надо!!!

 

Нашел самый простой выход:

Эксель.VBProject.VBComponents.Import(Каталог() + "Макрос.bas");
вроде работает ))))