Ошибка при вызове конструктора (COMObject)

[AIFrame]

Выполни 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;	

[Анжела]

Выполни 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]

Ты про среду или 1С?

[Анжела]

Ты про среду или 1С?

Среду, где стоит сам сервак к чему подкючаются или там запустить где подключаются?

[AIFrame]

Анжела,
Скрипт на регистрацию ком - там где его создаешь.
Код проверки ком в 1С - там, где ты его создаешь.
На том компе, где ты его создаешь.
Если ты сидишь в терминале на сервере 1С, значит там и запускай все.
Если в локалке с компа - значит там и запускай все.