Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
15 Дек 2018, 23:07
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Ошибка при вызове конструктора (COMObject)  (Прочитано 555 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн AIFrame

  • *****
  • Сообщений: 1218
  • РЕПУТАЦИЯ: 155
  • КПД: 13%
  • Регистрация: 2015-07-22
  • Сайт: 
Выполни batch-скрипт
@echo off
if defined ProgramFiles(x86) (
if exist "%ProgramFiles(x86)%\1cv8" (
goto WIN_X64
)
)
:WIN_X86
set FOLDER1C=%ProgramFiles%\1cv8
goto BODY
:WIN_X64
set FOLDER1C=%ProgramFiles(x86)%\1cv8

:BODY
echo 1C Located at - %FOLDER1C%
cd /d %FOLDER1C%
for /f "delims=" %%a in ('dir /b /ad /on "%FOLDER1C%\8*"') do set last_version_1c=%%a
echo Last found version is - %last_version_1c%
cd %last_version_1c%\bin
regsvr32 comcntr.dll
echo done
pause
Проверь работу COM кодом.
	ExcelApplication = New COMObject("Excel.Application");
ExcelApplication.Visible = True;
ExcelBook = ExcelApplication.Workbooks.Add();
SheetsCount = ExcelBook.WorkSheets.Count();
While SheetsCount > 1 Do
ExcelBook.WorkSheets(SheetsCount).Delete();
SheetsCount = ExcelBook.WorkSheets.Count();
EndDo;

ExcelSheet = ExcelBook.WorkSheets(1);
ExcelSheet.Name = "Test";
ExcelSheet.Cells(1,1).Value = "This is test.";
ExcelSheet.Cells(2,1).Value = "And it's done.";

ExcelApplication = null;


Оффлайн Анжела

  • *
  • Сообщений: 32
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2016-11-24
  • Сайт: 
  • Профессия: Ученик 1С
Выполни batch-скрипт
@echo off
if defined ProgramFiles(x86) (
if exist "%ProgramFiles(x86)%\1cv8" (
goto WIN_X64
)
)
:WIN_X86
set FOLDER1C=%ProgramFiles%\1cv8
goto BODY
:WIN_X64
set FOLDER1C=%ProgramFiles(x86)%\1cv8

:BODY
echo 1C Located at - %FOLDER1C%
cd /d %FOLDER1C%
for /f "delims=" %%a in ('dir /b /ad /on "%FOLDER1C%\8*"') do set last_version_1c=%%a
echo Last found version is - %last_version_1c%
cd %last_version_1c%\bin
regsvr32 comcntr.dll
echo done
pause
Проверь работу COM кодом.
	ExcelApplication = New COMObject("Excel.Application");
ExcelApplication.Visible = True;
ExcelBook = ExcelApplication.Workbooks.Add();
SheetsCount = ExcelBook.WorkSheets.Count();
While SheetsCount > 1 Do
ExcelBook.WorkSheets(SheetsCount).Delete();
SheetsCount = ExcelBook.WorkSheets.Count();
EndDo;

ExcelSheet = ExcelBook.WorkSheets(1);
ExcelSheet.Name = "Test";
ExcelSheet.Cells(1,1).Value = "This is test.";
ExcelSheet.Cells(2,1).Value = "And it's done.";

ExcelApplication = null;

Это на сервере или клиенте?

Оффлайн AIFrame

  • *****
  • Сообщений: 1218
  • РЕПУТАЦИЯ: 155
  • КПД: 13%
  • Регистрация: 2015-07-22
  • Сайт: 
Ты про среду или 1С?

Оффлайн Анжела

  • *
  • Сообщений: 32
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2016-11-24
  • Сайт: 
  • Профессия: Ученик 1С
Ты про среду или 1С?
Среду, где стоит сам сервак к чему подкючаются или там запустить где подключаются?

Оффлайн AIFrame

  • *****
  • Сообщений: 1218
  • РЕПУТАЦИЯ: 155
  • КПД: 13%
  • Регистрация: 2015-07-22
  • Сайт: 
Анжела,
Скрипт на регистрацию ком - там где его создаешь.
Код проверки ком в 1С - там, где ты его создаешь.
На том компе, где ты его создаешь.
Если ты сидишь в терминале на сервере 1С, значит там и запускай все.
Если в локалке с компа - значит там и запускай все.


 


* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

oleg-x
66 Сообщений
wise wise
42 Сообщений
alex0402
37 Сообщений
AIFrame AIFrame
36 Сообщений
alexandr_ll
32 Сообщений
byte777
29 Сообщений
LexaK
27 Сообщений
Геннадий ОбьГЭС Геннадий ОбьГЭС
25 Сообщений
happynattion
22 Сообщений
antoneus
20 Сообщений

* Кто онлайн

  • Точка Гостей: 146
  • Точка Скрытых: 0
  • Точка Пользователей: 1
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal