vba » Поиск » HelpF.pro

Результаты по ключевому слову: vba

Как в excel сохраненный из 1С вставить новый лист? Категория: Работа с Microsoft Office и OpenOffice

Примеры BAT файлов для запуска / обновления / сохранения 1С

1с start:
Для файлового варианта:

Код DOS Batch File

 "C:\Program Files\1cv81\bin\1cv8.exe" ENTERPRISE /F"D:\1C_base\ZUPRAZR" /N"EMigachev" /P"12345"

Для клиент-серверного варианта:

Код DOS Batch File

 "C:\Program Files\1cv81\bin\1cv8.exe" ENTERPRISE /S"server-1C\ZUP" /N"EMigachev" /P"12345"

Если на одном сервере стоит 8.1 и 8.2 , то при подключении к базам 8.2 нужно указывать порт сервера(например 1641):

Код DOS Batch File

 "C:\Program Files\1cv82\common\1cestart.exe" ENTERPRISE /S"server-1C:1641\ZUP" /N"EMigachev" /P"12345"

Запуск программы под пользователем и выпопление обработки при открытии:

Код DOS Batch File

 "C:\Program Files\1cv82\8.2.11.235\bin\1cv8s.exe" ENTERPRISE /F "D:\1C\HRM" /N user /P password /Execute "D:\1C\Внешние_обработки_1С\РаботающиеОбработки\РабочийСтол.epf"

1с backup:

Код DOS Batch File

 rem @echo off

Set folder=%DATE%



net stop "1C:Enterprise 8.1 Server Agent"

net start "1C:Enterprise 8.1 Server Agent"



"C:\Program Files\1cv82\common\1cestart.exe" CONFIG /S Сервер\База /DisableStartupMessages /DumpIB Z:\1c_arh\ArhivBases8\i_%folder%.dt /N пользователь /P пароль

1с update файловая:

Код DOS Batch File

 taskkill /F /IM 1cv8.exe

"C:\Program Files\1cv82\common\1cestart.exe" CONFIG /F путь к базе /N пользователь /P пароль /UpdateDBCfg

"C:\Program Files\1cv82\common\1cestart.exe" ENTERPRISE /F путь к базе /N пользователь /P пароль

1с update серверная:

Код DOS Batch File

 taskkill /F /IM 1cv8.exe

"C:\Program Files\1cv82\common\1cestart.exe" CONFIG /S Сервер\База /N пользователь /P пароль /UpdateDBCfg

"C:\Program Files\1cv82\common\1cestart.exe" ENTERPRISE /S Сервер\База /N пользователь /P пароль

Категория: Администрирование

Запуск кода в конфигурации из командной строки

Иногда возникает необходимость запуска кода в базе 1С из командной строки. Например, надо выполнять те или иные процедуры по расписанию, но при этом нет желания каждый раз менять конфигурацию, а хочется прописать всё в батнике и запускать через шедулер (at).
Вижу следующие варианты:
1. изменить один раз конфигурацию, чтобы потом можно было передавать через параметр исполняемый код.
2. прописать выполняемый код во внешней обработке и запускать 1С с параметром /execute
3. написать на vba процедуру выполнения заданных операций через COM.

1. Изменить один раз конфигурацию, чтобы потом можно было передавать через параметр исполняемый код.
В таком варианте необходимо прописать следующий код в модуле приложения процедуре ПриНачалеРаботыСистемы():

Код 1C v 8.х

 Ключ = "Выполнить="; 

ДлКлюча = СтрДлина(Ключ);

 Если Лев(ПараметрЗапуска, ДлКлюча) = Ключ Тогда

  Попытка ДлПараметра = СтрДлина(ПараметрЗапуска);

   СтрокаКода = Прав(ПараметрЗапуска, ДлПараметра-ДлКлюча);

   Выполнить(СтрокаКода); 

 Исключение СтрСообщения="Не удалось выполнить код:"+Символы.ПС+СтрокаКода;

   Предупреждение(СтрСообщения,3); 

   ЗаписьЖурналаРегистрации("Запуск кода из командной строки.", УровеньЖурналаРегистрации.Ошибка, , , СтрСообщения);

  КонецПопытки;

КонецЕсли;

После этого для выполнения кода из командной строки достаточно будет запустить 1С с параметром /cВыполнить=[ИсполняемыйКод]. Например:

Код DOS Batch File

 1cv8.exe enterprise /f"C:\Базы\InfoBase" /nПользователь /pПароль /cВыполнить=Сообщить("Тест!");

2. Прописать выполняемый код во внешней обработке и запускать 1С с параметром /execute
1С имеет параметр запуска "/Execute", с помощью которого можно запустить внешнюю обработку после старта системы. Чтобы воспользоваться этой возможностью, необходимо создать внешнюю обработку с исполняемым кодом в модуле формы:

Код 1C v 8.х

 Процедура ПриОткрытии()

 // тут распологается исполняемы код 

Сообщить("!");

 // закрываем обработку после выполнения кода 

Закрыть(); 

КонецПроцедуры

После этого можно запускать данную обработку из командной строки например так:

Код DOS Batch File

 1cv8.exe enterprise /f"C:\Базы\InfoBase" /nПользователь /pПароль /executec:\Обработки\ВнешняяОбработка.epf

3. Написать на vba процедуру выполнения заданных операций через COM.
Можно все действия прописать в файле VBS и уже его запускать. Пример содержимого файла VBS:

Код VBS

 Set v81 = CreateObject("V81.Application") v81.Connect ("File=""C:\Базы\InfoBase"";Usr=""пользователь"";Pwd=пароль") v81.WriteLogEvent("Был выполнен запуск из VBA")

источник

Категория: Администрирование

Запуск макроса в MS Word из 1С

Код 1C v 8.х

 //Пример показывает как из 1С вызывается MS Word, вставляется макрос и запускается!

//Макрос пишет на листе Добрый день!, https://helpf.pro и сохраняет файл в D:/primer.doc 



ПримерМакроса = "Sub VBAprimer()

|S_election.TypeText Text:=""Добрый день!""

|Application.Keyboard (1033)

|S_election.TypeText Text:="": https://helpf.pro""

|S_election.TypeParagraph

|S_election.MoveUp Unit:=wdLine, Count:=2

|S_election.EndKey Unit:=wdLine, Extend:=wdExtend

|S_election.Style = ActiveDocument.Styles(""Заголовок 1"")

|S_election.MoveDown Unit:=wdLine, Count:=1

|S_election.HomeKey Unit:=wdLine

|S_election.EndKey Unit:=wdLine, Extend:=wdExtend

|S_election.Style = ActiveDocument.Styles(""Заголовок 2"")

|ActiveDocument.SaveAs FileName:=""D:/primer.doc"", FileFormat:= _

|    wdFormatDocument, LockComments:=False, Password:="""", AddToRecentFiles:= _

|    True, WritePassword:="""", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _

|    False, SaveNativePictureFormat:=False, SaveFormsData:=False, _

|    SaveAsAOCELetter:=False

|End Sub";



// Создание объекта

Word = Новый COMОбъект("Word.Application");

Word.Documents.Add();

//VBComponents = Word.VBE.ActiveVBProject.VBComponents;

VBComponents = Word.ActiveDocument.VBProject.VBComponents;

Count = VBComponents.Count();

VBComponents.Add(1);

VBComponents.Item(Count + 1).CodeModule.I_nsertLines(1, ПримерМакроса);

Word.Application.Run(VBAprimer");

Word.Quit();

Word = Неопределено;

Код 1C v 7.x

  // Если не будет работать - возможно установлен высокий уровень безопасности. Понизьте до среднего ...

Процедура Сформировать()

     Попытка     

          W=СоздатьОбъект("Word.Application"); 

     Исключение

          Возврат;

     КонецПопытки;

     W.Documents.Add();

     i = W.VBE.ActiveVBProject.VBComponents.Count();

     W.VBE.ActiveVBProject.VBComponents.Add (1);

     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (1, "Sub Golif()");

     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (2, "MsgBox " + """" + "Работает" + """");

     W.VBE.ActiveVBProject.VBComponents.Item(i + 1).CodeModule.I_nsertLines (3, "End Sub");

     W.Application.Run ("Golif");

     W="";

КонецПроцедуры

Категория: Работа с Microsoft Office и OpenOffice

Как из 1С написать формулу в Excel Категория: Работа с Microsoft Office и OpenOffice