Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
16 Июн 2021, 17:45
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
МультиВход
 
collapse

Автор Тема: загрузка из Ексель  (Прочитано 1770 раз)

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

Оффлайн Пустовалов Артем

  • ***
  • Регистрация: 2015-10-14
  • Сообщений: 102
  • РЕПУТАЦИЯ: 2
  • КПД: 2%
  • Профессия: Ученик 1С
Добрый день! Появилась проблема с загрузкой екселя. Если загружать файл с локального источника тогда данные загружаются нормально, но если этот же файл отправить на почту, 1С забрать с почты и получать данные на сервере получаются иероглифы. Подскажите как бороться с этой проблемой?


Оффлайн Igmok

  • *
  • Регистрация: 2017-04-10
  • Сообщений: 32
  • РЕПУТАЦИЯ: 0
  • Профессия: Ученик 1С
сервере получаются иероглифы. Подскажите как бороться с этой проблемой?
Покажи часть примера

Оффлайн BuhRust

  • *****
  • Регистрация: 2010-06-25
  • Сообщений: 1065
  • РЕПУТАЦИЯ: 107
  • КПД: 10%
А вы по почте прям так файл в формате xls пересылаете или в архиве?

Оффлайн Пустовалов Артем

  • ***
  • Регистрация: 2015-10-14
  • Сообщений: 102
  • РЕПУТАЦИЯ: 2
  • КПД: 2%
  • Профессия: Ученик 1С
А вы по почте прям так файл в формате 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

  • *****
  • Регистрация: 2010-09-10
  • Сообщений: 2000
  • РЕПУТАЦИЯ: 358
  • КПД: 18%
  • Профессия: Программист 1С
Может на сервере банально шрифтов не хватает?
Спасибо за Сказать спасибо

Оффлайн Пустовалов Артем

  • ***
  • Регистрация: 2015-10-14
  • Сообщений: 102
  • РЕПУТАЦИЯ: 2
  • КПД: 2%
  • Профессия: Ученик 1С
Может на сервере банально шрифтов не хватает?

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

Оффлайн alex0402

  • *****
  • Регистрация: 2010-09-10
  • Сообщений: 2000
  • РЕПУТАЦИЯ: 358
  • КПД: 18%
  • Профессия: Программист 1С
Шрифты виндовс, которые используются в Excel отсутсвуют (не установлены) на сервере. Этот же ексель на сервере нормально открывается?
Спасибо за Сказать спасибо

Оффлайн Пустовалов Артем

  • ***
  • Регистрация: 2015-10-14
  • Сообщений: 102
  • РЕПУТАЦИЯ: 2
  • КПД: 2%
  • Профессия: Ученик 1С
Коллеги тема закрыта! Не правильно создавал временный файл. XLS и XLSX. плюс во вложение попадала картинка из подписок.


Теги:
 


* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Последние вакансии

* Том 10 авторов за месяц

LexaK
68 Сообщений
Геннадий ОбьГЭС Геннадий ОбьГЭС
68 Сообщений
antoneus antoneus
33 Сообщений
Ивашка
27 Сообщений
neek666
26 Сообщений
KATERINA 861
19 Сообщений
Алексей_1985_06
15 Сообщений
SSC
15 Сообщений
alexandr_ll
14 Сообщений
BuhRust
8 Сообщений

* Кто онлайн

  • Точка Гостей: 435
  • Точка Скрытых: 0
  • Точка Пользователей: 8
  • Точка Сейчас на форуме:

* Облако тэгов

* Инструменты

* Дополнительно

Поиск