загрузка из Ексель

[Пустовалов Артем]

Добрый день! Появилась проблема с загрузкой екселя. Если загружать файл с локального источника тогда данные загружаются нормально, но если этот же файл отправить на почту, 1С забрать с почты и получать данные на сервере получаются иероглифы. Подскажите как бороться с этой проблемой?

[Igmok]

сервере получаются иероглифы. Подскажите как бороться с этой проблемой?

Покажи часть примера

[BuhRust]

А вы по почте прям так файл в формате xls пересылаете или в архиве?

[Пустовалов Артем]

А вы по почте прям так файл в формате xls пересылаете или в архиве?

Формат XLSX

Добавлено: 11 апр 2017, 06:45

сервере получаются иероглифы. Подскажите как бороться с этой проблемой?

Покажи часть примера

Вот код.

   

Код Выделить Развернуть

xlLastCell = 11;//?
ОбъектExcel = Неопределено;
РабочаяКнига = Неопределено;
Листы = Неопределено;
СписокЛистов = Новый СписокЗначений();

ФайлExcel = Новый Файл(ПутьКФайлу);
ОбъектExcel = Новый COMОбъект("Excel.Application");  //Создаем COM - Объект 
РабочаяКнига = ОбъектExcel.Workbooks;//выбираем файл
Листы = РабочаяКнига.Open(СокрЛП(ПутьКФайлу)).Sheets; //выбираем страницу
//****************************

ActiveCell = ОбъектExcel.ActiveCell.SpecialCells(xlLastCell); //?
КоличествоСтрок = ActiveCell.Row;   //определяем количество  и строк
КоличествоКолонок = ActiveCell.Column; //колонок
   
   

Код Выделить Развернуть

Для Строка = 2 По КоличествоСтрок Цикл

стр = ТЗ.Добавить();
стр.НомерЗаявки = ОбъектExcel.Cells(Строка, 1).value;
стр.КодОтправителя = ОбъектExcel.Cells(Строка, 2).value;
стр.КодПолучателя = ОбъектExcel.Cells(Строка, 3).value;
стр.ДатаОтправки = ОбъектExcel.Cells(Строка, 4).value;
стр.ДатаДоставки = ОбъектExcel.Cells(Строка, 5).value;
стр.Водитель = ОбъектExcel.Cells(Строка, 6).value;
стр.ТипТС = ОбъектExcel.Cells(Строка, 7).value;
стр.НомерТС = ОбъектExcel.Cells(Строка, 8).value;
стр.НомерЛота = ОбъектExcel.Cells(Строка, 9).value;
стр.СтоимостьПеревозки = ОбъектExcel.Cells(Строка, 10).value;
стр.ФактическийПеревозчик = ОбъектExcel.Cells(Строка, 11).value;

КонецЦикла;

ОбъектExcel.WorkBooks.Close();
ОбъектExcel = 0;

[alex0402]

Может на сервере банально шрифтов не хватает?

[Пустовалов Артем]

Может на сервере банально шрифтов не хватает?

А что это значит? можно подробнее?

[alex0402]

Шрифты виндовс, которые используются в Excel отсутсвуют (не установлены) на сервере. Этот же ексель на сервере нормально открывается?

[Пустовалов Артем]

Коллеги тема закрыта! Не правильно создавал временный файл. XLS и XLSX. плюс во вложение попадала картинка из подписок.