Страницы: 1
RSS
Проблема со вставкой таблицы с форматированием в письмо Outlook
 
Всем привет!
Много лет пользовался кодом из статьи Дмитрий(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
 
Попробуйте перед строкой
Код
With wbTmp.PublishObjects.Add(
добавить такую:
Код
wbTmp.WebOptions.Encoding = msoEncodingCyrillic
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Дмитрий(The_Prist) Щербаков,
супер, спасибо огромное.
 
Дмитрий(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
 
Итог - проблема оказалась в стиле ссылок R1C1... Почему-то при них выходит ошибка.
С причиной разбираться не стал и решил тупо:
Код
Private Sub Workbook_Open()
If Application.ReferenceStyle = xlR1C1 Then
Application.ReferenceStyle = xlA1
End If
End Sub
Изменено: evgeniygeo - 30.08.2023 06:10:20
 
evgeniygeo,
Если нужно запоминать и восстанавливать, а не просто менять
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
Цитата
написал:
С причиной разбираться не стал
ну а что там разбираться...Не так много мест, где это используется в данном куске кода :)
Код
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
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Jack Famous,
спасибо, учту  :)
Дмитрий(The_Prist) Щербаков,
мда...совсем туплю...
Страницы: 1
Наверх