Не печатается в Excel с некоторых компьютеров

Форум Программирование Общие вопросы программирования (Dev)

1. kirameka 17.12.20 17:47 Сейчас в теме

Всем привет. Возникла следующая проблема. При печати в Excel с помощью COM-Объекта у некоторых пользователей данные в файле заполняются, а у некоторых - нет, в зависимости от компьютера. Пробовали прописать кучу проверок драйверов:

мсв = новый Массив;
	мсв.Добавить("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " + ПутьСохранения + ";Extended Properties=""Excel 12.0;HDR=Yes;;"""); 
	мсв.Добавить("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ПутьСохранения + "; Extended Properties=""Excel 8.0; HDR=Yes; IMEX=1"";");
	мсв.Добавить("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " + ПутьСохранения + ";Extended Properties=""Excel 8.0;HDR=Yes;;"""); 
	мсв.Добавить("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ПутьСохранения + "; Extended Properties=""Excel 12.0 Xml; HDR=Yes; IMEX=1"";");
	мсв.Добавить("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + ПутьСохранения + ";Extended Properties=""Excel 12.0 Xml; HDR=Yes;"";Persist Security Info=False;");
	мсв.Добавить("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ПутьСохранения + "; Extended Properties=""Excel 12.0; HDR=Yes; IMEX=1"";");
	мсв.Добавить("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + ПутьСохранения + ";Extended Properties=""Excel 12.0; HDR=Yes;"";Persist Security Info=False;");
	мсв.Добавить("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + ПутьСохранения + ";Extended Properties=""Excel 8.0; HDR=Yes;"";Persist Security Info=False;");
	
	мсв.Добавить("OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " + ПутьСохранения + ";Extended Properties=""Excel 12.0;HDR=Yes;;"""); 
	мсв.Добавить("OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ПутьСохранения + "; Extended Properties=""Excel 8.0; HDR=Yes; IMEX=1"";");
	мсв.Добавить("OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " + ПутьСохранения + ";Extended Properties=""Excel 8.0;HDR=Yes;;"""); 
	мсв.Добавить("OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ПутьСохранения + "; Extended Properties=""Excel 12.0 Xml; HDR=Yes; IMEX=1"";");
	мсв.Добавить("OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + ПутьСохранения + ";Extended Properties=""Excel 12.0 Xml; HDR=Yes;"";Persist Security Info=False;");
	мсв.Добавить("OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ПутьСохранения + "; Extended Properties=""Excel 12.0; HDR=Yes; IMEX=1"";");
	мсв.Добавить("OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + ПутьСохранения + ";Extended Properties=""Excel 12.0; HDR=Yes;"";Persist Security Info=False;");
	мсв.Добавить("OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + ПутьСохранения + ";Extended Properties=""Excel 8.0; HDR=Yes;"";Persist Security Info=False;");
	
	мсв.Добавить("Driver={Microsoft Excel Driver (.xls, .xlsx, .xlsm, .xlsb)};Dbq=" + ПутьСохранения + ";");

Показать

не помогло. Отваливается на

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

Кроме второй строчки, там валится на

Command.Execute()

Может быть, кто-то сталкивался? Я так думаю надо какие-то драйвера поставить, вот только как понять какие?

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

4. AnryMc 849 18.12.20 13:02 Сейчас в теме

(1)

Отваливается на

А что то пишет?

Вставьте "ОписаниеОшибки()"

5. kirameka 18.12.20 16:02 Сейчас в теме

(4) Там по-разному

{ОбщийМодуль.ВебСервисы.Модуль(109)}: Ошибка при вызове метода контекста (Open): Произошла исключительная ситуация (Microsoft Office Access Database Engine): Failure creating file.

{ОбщийМодуль.ВебСервисы.Модуль(109)}: Ошибка при вызове метода контекста (Open): Произошла исключительная ситуация (ADODB.Connection): Не удается найти указанный поставщик. Вероятно, он установлен неправильно.

6. kirameka 18.12.20 16:03 Сейчас в теме

(5)Ну и кстати да, я перепутала в изначальном сообщении, на создании com-объекта не падает, имела в виду .open()

10. user1498686 18.12.20 23:13 Сейчас в теме

А нельзя один драйвер везде накатить ?

Там ошибки разные. Одна похоже, что не тот драйвер, а вторая, что не там файл открываете.

А нельзя код переписать с ADODB.Connection на ТабличныйДокумент 1С нормально читает файлы xls. Ну это как вариант конечно если в файле формулы и сложный рельеф то тогда не вариант.

2. AnryMc 849 17.12.20 18:21 Сейчас в теме

Версии Excel везде одинаковые?
1998 год — Excel 8.0 (Office '98)
2008 год — Excel 12.0(Office 2008)

Права пользователей (Windows) везде одинаковые?

3. kirameka 18.12.20 12:38 Сейчас в теме

(2)Спасибо, что откликнулись! :)
На моем компе, на котором печатается, стоит 2013. На которых не печатается тоже стоит 2013. Права у всех одинаковые

7. AnryMc 849 18.12.20 16:15 Сейчас в теме

Такое впечатление что Вы с СЕРВЕРА пытаетесь передать "ПУТЬ" на КЛИЕНТ который там недоступен

Это первая ошибка. Невозможно на КЛИЕНТЕ создать файл (как указывается путь для создаваемого файла?)

8. kirameka 18.12.20 16:40 Сейчас в теме

(7)Пишется в папку на сервере \\db\FILEDB1C\Временная папка на сервере , оттуда копируется в выбранную пользователем папку

ПутьКФайлуШаблона = Справочники.ФайлыШаблонов.ШаблонЗаявкиОтКлиента.ПутьКФайлу;
	
	ПутьКВременномуКаталогу = Справочники.ФайлыШаблонов.ВременнаяПапкаНаСервере.ПутьКФайлу;
	
	НаименованиеФайла = РаботаСФайлами.УдалитьЗапрещенныеСимволыИмени(НаименованиеПолное) + " " +  СокрЛП(ВыбраноСклад.Наименование) + " " + Формат(ТекущаяДата(),"ДФ=гггг-ММ-дд") + ".xls";
	
	ИмяВремФайлаШаблона = ПутьКВременномуКаталогу + ?(Прав(ПутьКВременномуКаталогу,1)="\","","\") + НаименованиеФайла;
		
	КопироватьФайл(ПутьКФайлуШаблона,ИмяВремФайлаШаблона);
	
	ВебСервисы.ОбновитьШаблонЗаявки(СтруктураПараметров,ИмяВремФайлаШаблона);

Показать

9. kirameka 18.12.20 16:41 Сейчас в теме

(8)Сам документ эксель создается нормально. В него просто не все данные пишутся

Оставьте свое сообщение

E-mail: