Имя: Пароль:
1C
 
1C 8 и выгрузка в эксель
0 cyberandr
 
14.03.18
12:48
Всем привет!
Мне необходимо что бы при выгрузки из 1С в одной из колонок была гиперссылка. Я делаю это таким способом
ExcelПриложение = Новый COMОбъект("Excel.Application");

  Попытка
    // Открытие файла Microsoft Excel
    Состояние("Открытие файла Microsoft Excel...");
    ExcelФайл = ExcelПриложение.WorkBooks.Open(ПапкаФайла+"/"+ИмяФайла+".XLSX");
  Исключение
    Сообщить("Ошибка открытия файла Microsoft Excel." + ИмяФайла + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
  КонецПопытки;


    ExcelЛист = ExcelФайл.Sheets(1);
    Для инд=2 по КоличествоСтрок Цикл
    МоеЗначение=РасчетЗначения();
//     МоеЗначение="=ГИПЕРССЫЛКА("http://сайт.ru/image/data/tov_foto/fors/17200.jpg";"посмотреть";;
    ExcelЛист.Cells(инд, 8).FormulaR1C1 =МоеЗначение;
КонецЦикла;
ExcelФайл.Save();    
ExcelПриложение.Quit();

Вариант    FormulaR1C1 подсмотрен в макросах excel но в даанном примере пишет что записать не может. Если же записывать в value то для того что бы гиперссылка отображалась как надо (а не строкой с формулой) в нее зайти. Не подскажите как можно сразу заставить эесель понять что это гиперссылка?
1 shuhard
 
14.03.18
12:50
2 cyberandr
 
14.03.18
13:00
ага я по сути так и сделал как предложили но не до конца получилось поэтому повторно и спрашиваю
3 shuhard
 
14.03.18
13:05
(2)[повторно и спрашиваю]
не стоит плодить топики
4 cyberandr
 
14.03.18
13:07
сорри буду впредь аккуратней.
5 aka AMIGO
 
14.03.18
13:12
6 Ненавижу 1С
 
гуру
14.03.18
13:14
Ячейка.Hyperlinks.Add(Ячейка, ГиперСсылка);
7 cyberandr
 
14.03.18
13:27
(6) спасибо
а гиперссылка как понимаю должна быть "чистой" то есть "http://сайт.ru/image/data/tov_foto/fors/17200.jpg"; без ГИПЕРССылка?
8 cyberandr
 
14.03.18
14:04
(6) почти получилось - не подскажешь как скрыть ее под "посмотреть"
9 cyberandr
 
14.03.18
15:29
вроде добил. всем спасибо