Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
29 мар 2024, 00:32

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

Автор Пустовалов Артем, 10 апр 2017, 14:47

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

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

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

Igmok

Цитата: Пустовалов Артем от 10 апр 2017, 14:47сервере получаются иероглифы. Подскажите как бороться с этой проблемой?
Покажи часть примера

BuhRust

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

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

Цитата: BuhRust от 10 апр 2017, 17:48
А вы по почте прям так файл в формате xls пересылаете или в архиве?

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


Цитата: Igmok от 10 апр 2017, 16:01
Цитата: Пустовалов Артем от 10 апр 2017, 14:47сервере получаются иероглифы. Подскажите как бороться с этой проблемой?
Покажи часть примера

Вот код.

   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 от 11 апр 2017, 07:39
Может на сервере банально шрифтов не хватает?

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

alex0402

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

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

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

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск