Microsoft office excel невозможно получить свойство open класса workbooks

Если Вы заметили ошибку, то выделите ее мышью и нажмите Ctrl+Enter

Победили предыдущую проблему — приложение Excel запускается.
Получили новую ошибку: -2146827284 Невозможно получить свойство Open класса Workbooks.
Возникала на вызове:

EXEC @iRetCode = sp_OAMethod @iXLApp, 'Workbooks.Open', @iDoc OUTPUT, @FileName


Всяческие изменения в вызове процедуры, выделение отдельно Workbooks никак не помогали.
Дело опять же оказалось в правах и в том, что операционка 64-битная:
— нужно проверить, что существует папка C:WindowsSysWOW64configsystemprofileDesktop — если нет, то нужно создать
— и учетной записи, под которой работает служба SQL Server нужно дать полные права на папку C:WindowsSysWOW64configsystemprofile и все ее подпапки.

После этих нехитрых действий всё должно заработать.

Ссылки, посвященные этой теме:
http://forum.foxclub.ru/read.php?29,488069

04.04.14 — 16:59

Добрый день, коллеги.

Решил автоматизировать загрузку данных от клиентов. Многие высылают в экселе, соответственно нужно читать и анализировать её. Чтобы менеджеры не заморачивались с этим, чтение экселя решил вынести в регламентное задание. Но тут возникла проблема с созданием ком-объекта Excel.Application. Почитал статьи, рекомендуют вынести вызов ком-объекта на клиент, но при выполнении регламентного задания нет никакого клиента, все выполняется сервером. Как быть? Посоветуйте

1 — 04.04.14 — 17:23

в регламентном без вариантов только сервер

или прайсы в csv перекидывать сначала и затем скармливать как текст если эксель тупить будет

2 — 04.04.14 — 17:32

3 — 04.04.14 — 17:39

(0)ексель на сервере установлен? )

4 — 04.04.14 — 17:46

(2) Хороший совет, но а делать-то чего? ))

5 — 04.04.14 — 17:47

(4) а в чём конкретно проблема?

6 — 04.04.14 — 17:47

(3) Да, установлен

7 — 04.04.14 — 17:47

(4) На серваке EXCEL установи

8 — 04.04.14 — 17:48

(6) Тогда должно все работать

9 — 04.04.14 — 17:49

(5) создание ком объекта вызывает исключение

10 — 04.04.14 — 17:49

Сервер работает как служба. Может в этом проблема?

11 — 04.04.14 — 17:51

(10) Скинь код как ты его вызываешь?

12 — 04.04.14 — 17:52

может как xml читать.

13 — 04.04.14 — 18:07

14 — 04.04.14 — 18:07

(12) Покажи пример, пожалуйста

15 — 04.04.14 — 18:34

и какое исключение?

может файла нет?

доступа к папке откуда его тянуть?

или дальше гадать?

16 — 04.04.14 — 18:39

17 — 04.04.14 — 18:39

Сдается мне, что нет прав у пользователя, под которым сервер 1С работает….

18 — 04.04.14 — 18:40

(14) на инфостарте есть примеры как парсить XSLX но могут возникнуть проблемы если сторонняя прога сохраняет в этот формат.

19 — 05.04.14 — 12:52

20 — 05.04.14 — 12:59

Тот же самый код, запущенный на клиенте выполняется без проблем.

21 — 05.04.14 — 12:59

(19) Значение имени файла в студию.

22 — 05.04.14 — 13:03

(21) D:1CInomarka_ElDocNaklInae@autoeuro.ruСФ №00021194 от 21-03-14.XLS

23 — 05.04.14 — 13:07

(22) попробуй путь с именем только из латиницы пока что

24 — 05.04.14 — 13:08

(23) Если не получиться то мож чо ещё расскажу

25 — 05.04.14 — 13:11

(19) И Для интереса, попробуй заместо Open использовать Add

26 — 05.04.14 — 13:21

(23) (25) Ни то, ни другое не помогло

27 — 05.04.14 — 13:28

(26) а просто Add без имени файла, пустой новый док добавить, и если получитьсязаписать его

28 — 05.04.14 — 13:39

(27) Метод Add прошел, но при попытке сохранить документ опять исключение:

Ошибка при вызове метода контекста (SaveAs): Произошла исключительная ситуация (Microsoft Office Excel): Метод SaveAs из класса Workbook завершен неверно Файл не сохранен!

29 — 05.04.14 — 13:40

Не помог и привелигированый режим

30 — 05.04.14 — 13:40

(28) А есть папка C:UsersDefaultDesktop ?

31 — 05.04.14 — 13:41

(30) когда оффис исполняется на сервере от службы, то он вроде использует эту папку для вр файлов

32 — 05.04.14 — 13:41

Скорее всего тут суть в том, что на сервере, на уровне платформы, запрещены файловые операции

33 — 05.04.14 — 13:42

(32) чувак у меня так везде работает, и с вордом и с экселем, попробуй (30)

34 — 05.04.14 — 13:42

(0) ADO не рассматривали?

35 — 05.04.14 — 13:44

(34) Ну если ток для чтения то покатит наверно, я просто для чтения, изменения и записи юзаю, так что мне COM нужен был

36 — 05.04.14 — 13:46

(30) Да, папка такая есть на сервере

37 — 05.04.14 — 13:47

(36) а сервер 1С скольки битный

38 — 05.04.14 — 13:52

39 — 05.04.14 — 13:53

(37) Сервер x64

40 — 05.04.14 — 13:55

(39) ОООООООО, а попробу C:UsersDefaultDesktop64 создать

41 — 05.04.14 — 13:58

42 — 05.04.14 — 14:00

(40) Не помогло

(41) Там и брал строку соединения

43 — 05.04.14 — 14:01

(42) А может C:UsersDefault64Desktop

44 — 05.04.14 — 14:02

(43) Или тогда от кого служба 1С запущена?

45 — 05.04.14 — 14:06

(44) От пользователя домена

46 — 05.04.14 — 14:08

(45) И если зайти от него то все в интерактиве получается?

47 — 05.04.14 — 14:09

(46) я имею ввиду на серваке

48 — 05.04.14 — 14:11

Нет возможности сейчас проверить.

49 — 05.04.14 — 14:12

Если код открытия вызывать на стороне клиента, то все работает.

50 — 05.04.14 — 14:12

    dbCon = Новый COMОбъект("ADODB.Connection");
    
    Если НРег(Файл.Расширение) = ".xls" Тогда
        dbCon.Provider = "Microsoft.Jet.OLEDB.4.0";
        dbCon.Properties("Data Source").Value = Файл.ПолноеИмя;
        dbCon.Properties("Extended Properties").Value = "Excel 4.0;HDR="+?(ИменаКолонокВПервойСтроке,"Yes","No")+";IMEX=1";
    ИначеЕсли НРег(Файл.Расширение) = ".xlsx" Тогда
        dbCon.Provider = "Microsoft.ACE.OLEDB.12.0";
        dbCon.Properties("Data Source").Value = Файл.ПолноеИмя;
        dbCon.Properties("Extended Properties").Value = "Excel 12.0;HDR="+?(ИменаКолонокВПервойСтроке,"Yes","No")+";IMEX=1";
    ИначеЕсли НРег(Файл.Расширение) = ".csv" Тогда
        dbCon.Provider = "Microsoft.Jet.OLEDB.4.0";
        dbCon.Properties("Data Source").Value = Файл.Путь;
        dbCon.Properties("Extended Properties").Value = "text;HDR="+?(ИменаКолонокВПервойСтроке,"Yes","No")+";FMT=Delimited";
    КонецЕсли;
        
    Попытка 
        dbCon.Open();
    Исключение
        ТекстОшибки = ИнформацияОбОшибке().Описание;
        dbCon = Неопределено;
        ВызватьИсключение("Не удалось открыть файл "+Файл.Имя+" : "+ТекстОшибки);
    КонецПопытки;

51 — 05.04.14 — 14:13

(48) Как так, ты же смотрел наличие папки, создавал новую на серваке, почему проверить не можешь?

52 — 05.04.14 — 14:13

(49) На стороне клиента на сервере?

53 — 05.04.14 — 14:14

(52) Всмсле запущеного экземпляра предпрития на сервере?

54 — 05.04.14 — 14:17

(51) Чтобы проверить, нужно авторизоваться под пользователем от которого запущен сервер 1С. Я не могу под ним авторизоваться в силу отсутствия пароля

(53) Запускаю экземпляр приложения, вызываю внешнюю обработку и там прописываю процедуру открытия с ключом &НаКлиенте

55 — 05.04.14 — 14:23

(54) ООООООООО, я походу тебя обманывал и сам забыл

56 — 05.04.14 — 14:24

57 — 05.04.14 — 14:25

(56) Всмысле в этих папках папку Desktop

58 — 05.04.14 — 14:26

(56) И вроде нужно только там какой битности оффис, пофиг на 1С

59 — 05.04.14 — 14:47

(56) Вот ты добрый человек! Гений, по другому и не сказать )))

60 — 05.04.14 — 14:49

(59) Да блин ты меня заставил на сервак зайти и вспомнить чо да как))))

61 — 05.04.14 — 14:54

62 — 05.04.14 — 14:58

За твои заслуги готов поддержать тебя материально. Переводом либо на телефон

63 — 05.04.14 — 16:00

(61) У тя исключение не выскакиевает при закрытии?

64 — 06.04.14 — 00:30

(61) Так сначала нужно закрыть все документы, так как иначе мы видим вопрос о необходимости что-то сохранить, только, на самом деле, мы его не видим, так как рабочий стол записи SYSTEM невидим, но, если очень хочется, там окно можно найти и даже нажать кнопку «Нет».

65 — 07.04.14 — 09:17

(63) Нет, код исполняется без исключений

66 — 07.04.14 — 09:51

(65) Ну в теории не должно ругаться если ты в доке ничо не менял (типа букву в ячейке добавил).

Ну чтобы на точняк, погугли на msdn там или используешь метод Close(0) у WorkSheet или Эксель.Application.Quit(0) (или просто Эксель.Quit(0)).

Нули как разтаки определяют закрытие документа или приложения без лишних проверок.

Я конеш хз у себя сразу писал с нулями, а вот помню когда один из первых разов таким образом с Word работал, то он у меня с исключением вылетал (я имею ввиду на сервере)

67 — 07.04.14 — 09:54

68 — 07.04.14 — 09:55

Гарантируем поддержку.

Да и собственно задачу импорта решена целой подсистемой.

69 — 07.04.14 — 09:57

(66) спасибо, попробую, сейчас пока некогда

70 — 07.04.14 — 09:58

(67) Есть где почитать о решении?

71 — 07.04.14 — 10:02

72 — 07.04.14 — 10:08

(71) хорошо, спасибо

73 — 07.04.14 — 11:04

74 — 07.04.14 — 11:36

(56) Объясните про эти папки. Не понял

75 — 07.04.14 — 15:49

(74) Когда приложение оффиса (Word, Exel) запускается от сервиса винды, коем в частности является служба 1С сервера, то для временных файлов используются данные каталоги взавизимости от разрядности оффиса.

76 — 07.04.14 — 15:55

(73) а зачем Эксель.DisplayAlerts = 1?

это свойство вообще задавай после создания кома

(76) Если его не поставить, то в следующий раз, когда Excel откроется, сообщения не будут появляться.

I have some PowerShell scripts that invoke SQL commands, take the results and put them into a CSV file, then the CSV file is put into an excel workbook and it’s emailed out to a distribution list. I had no issues running these reports through Windows Scheduled tasks on my older Windows 2008 server running SQL 2008. But I have migrated over to Windows 2016 running SQL 2016. Now when I run this process through Scheduled tasks I get the following error:

Unable to get the Open property of the Workbooks class
At C:PowerShellscrpitsArtiReport3.ps1:607 char:1
+ $workbook = $excel.Workbooks.Open($csvFilePath)
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo          : OperationStopped: (:) [], COMException
+ FullyQualifiedErrorId : System.Runtime.InteropServices.COMException

If I run the PowerShell script manually I have no issues and everything runs fine. I’m using the same login to run the scripts manually as I do through scheduled tasks. Here is the script.

$query = "*SQL Query runs here*"

#Edit these peramters for the server this will be running on#
$smtpServer = "*server*";
$smtpFrom = "I3Reports@server.com";
$smtpTo = "*email list here*”
$messageSubject = "I3 Report";

#create anonymus loging for sending e-mail#
$User = "anonymous";
$PWord = ConvertTo-SecureString -String "anonymous" -AsPlainText -Force
$Creds = New-Object -TypeName System.Management.Automation.PSCredential -ArgumentList $user, $pword


$date = (Get-Date).AddDays(-1).ToString('yyyy-MM-dd')
$date = $date+"_I3Report.xls";

$csvFilePath = "c:Scriptsqueryresults.csv"
$excelFilePath = "c:scripts$date"


$instanceName = "*server*"
Import-Module "sqlps"
$results = Invoke-Sqlcmd -QueryTimeout 7200 -Query $query -ServerInstance $instanceName

# Output to CSV
$results | export-csv  $csvFilePath -Delimiter "    " -NoTypeInformation
#this line will remove all the quotation marks from the csv file
(Get-Content $csvFilePath) | % {$_ -replace '"', ""} | out-file -FilePath $csvFilePath -Force 

# Convert CSV file to Excel


$excel = New-Object -ComObject excel.application 
$excel.visible = $False 
$excel.displayalerts=$False 
$workbook = $excel.Workbooks.Open($csvFilePath) #<-- Program fails here
$workSheet = $workbook.worksheets.Item(1) 
#$workSheet.cells.item(3,3) = "HOPLA"

#for freezing pane#
$workSheet.application.activewindow.splitcolumn = 0
$workSheet.application.activewindow.splitrow = 1
$workSheet.Range("A2").application.activewindow.freezepanes = $true
$resize = $workSheet.UsedRange 
$resize.EntireColumn.AutoFit() | Out-Null 
$xlExcel8 = 43
$workbook.SaveAs($excelFilePath, $xlExcel8)
$workbook.Close()
$excel.quit() 
$excel = $null

send-mailmessage -from $smtpFrom -to $smtpTo -subject "$messageSubject" -body "Attachment" -Attachments $excelFilePath -smtpServer $smtpServer -Credential $creds;

As mentioned this works when I run it in PowerShell manually, but through scheduled tasks it gets that error and it references the section I noted in the code. I’ve been working on this for days and I can’t seem to figure out what is causing the issue. Any help or suggestions is welcomed. Thanks for taking the time.