Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Курилка
Страницы: 1
RSS
Проблема со вставкой таблицы с форматированием в письмо Outlook
 
#1
24.08.2023 08:51:58
Всем привет!
Много лет пользовался кодом из статьи Дмитрий(The_Prist) Щербаков: https://www.excel-vba.ru/chto-umeet-excel/vstavit-v-pismo-outlook-tablicu-excel-s-formatirovaniem/
Но на днях все русские слова в таблице начали превращаться в крокозябры при вставке в письмо.
Язык в настройках windows - русский + проблема на всех рабочих компах, где проверял.

Есть идеи?
Изменено: evgeniygeo - 24.08.2023 12:16:49
 
 
 
#2
24.08.2023 13:29:35
Попробуйте перед строкой
Код
With wbTmp.PublishObjects.Add(
добавить такую:
Код
wbTmp.WebOptions.Encoding = msoEncodingCyrillic
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
25.08.2023 06:11:47
Дмитрий(The_Prist) Щербаков,
супер, спасибо огромное.
 
 
 
#4
29.08.2023 11:32:14
Дмитрий(The_Prist) Щербаков,
обновились компы на работе до версия 2306 (сборка 16529.20226) и вот на этой части кода стала появляться ошибка:

Код
    With wbTmp.PublishObjects.Add( _
         SourceType:=xlSourceRange, Filename:=sF, _
         Sheet:=wbTmp.Sheets(1).Name, Source:=wbTmp.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With
 
 
 
#5
30.08.2023 06:09:45
Итог - проблема оказалась в стиле ссылок R1C1... Почему-то при них выходит ошибка.
С причиной разбираться не стал и решил тупо:
Код
Private Sub Workbook_Open()
If Application.ReferenceStyle = xlR1C1 Then
Application.ReferenceStyle = xlA1
End If
End Sub
Изменено: evgeniygeo - 30.08.2023 06:10:20
 
 
 
#6
30.08.2023 09:51:03
evgeniygeo,
Если нужно запоминать и восстанавливать, а не просто менять
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#7
31.08.2023 12:56:05
Цитата
написал:
С причиной разбираться не стал
ну а что там разбираться...Не так много мест, где это используется в данном куске кода :)
Код
With wbTmp.PublishObjects.Add( _ 
        SourceType:=xlSourceRange, Filename:=sF, _
         Sheet:=wbTmp.Sheets(1).Name, Source:=wbTmp.Sheets(1).UsedRange.Address(1,1, Application.ReferenceStyle), _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#8
31.08.2023 15:09:48
Jack Famous,
спасибо, учту  :)
Дмитрий(The_Prist) Щербаков,
мда...совсем туплю...
 
 
 
Страницы: 1
Читают тему
Наверх