VB в excel

[Astra]

В общем сделал в офисе шаблон (письмо которые рассылаться будем макросом на кучу адресов)

 

Через TFS вставил в VB редактор (висивиг типо), вставляешь таблицу и текст - получаешь код. Код нужно перекинуть в ексель - но ексель воспринимает его с ошибками. Нужно править " на ' и в конце в некоторых местах ставить & _

 

Ниже пример, начало норм, дальше ошибки

Очень прошу знатоков помочь отредактирвать 2ую часть скрипта, тем кто шарит это минута.

 

 

trBody = "<span style='font-size:12.0pt; line-height:115%;font-family:"Arial","sans-serif"'>аывавы!" & _

 

                    "<br /><br />Â ывавыавыаываыв (авываа<span style='color:#1F497D'>): </span><o:p></o:p></span></p>"

 

 

 

 

Вот это - корректно, а дальше - одни ошибки

 

 

 

 

StrBody2 = <p class="MsoNormal">

 

                    <span style="font-size:12.0pt;line-height:115%;font-family:

 

  "Arial","sans-serif";color:#1F497D"><o:p> </o:p></span></p>

 

                <p class="MsoNormal">

 

                    <span style="font-size:12.0pt;line-height:115%;font-family:

 

  "Arial","sans-serif";mso-bidi-font-weight:bold">Внимание!<o:p></o:p></span></p>

 

                <p class="MsoListParagraph" style="margin-left:32.2pt;text-indent:-18.0pt;

 

  mso-list:l0 level1 lfo1">

 

                    <![if !supportLists]>

 

                    <span style="font-family:"Arial","sans-serif";

 

  mso-fareast-font-family:Arial;color:black;mso-bidi-font-weight:bold">

 

                    <span style="mso-list:Ignore">1.<span

 

                        style="font:7.0pt "Times New Roman"">    </span>

 

                    </span></span><![endif]>

 

                    <span style="font-family:"Arial","sans-serif";

 

  mso-bidi-font-weight:bold">На данный момент разрешен только

 

                    в системе. О необходимости перевода

 

                    «действующий».<o:p></o:p></span></p>

 

                <p class="MsoListParagraph" style="margin-left:32.2pt;text-indent:-18.0pt;

 

  mso-list:l0 level1 lfo1">

 

                    <![if !supportLists]>

 

                    <span style="font-family:"Arial","sans-serif";

 

  mso-fareast-font-family:Arial;color:black;mso-bidi-font-weight:bold">

 

                    <span style="mso-list:Ignore">2.<span

 

                        style="font:7.0pt "Times New Roman"">    </span>

 

                    </span></span><![endif]>

 

                    <span style="font-family:"Arial","sans-serif";

 

  mso-bidi-font-weight:bold">На данный момент объектам <u>за

 

                    исключением ГТС</u>. О вода договороет сообщено

 

                    лнительно.<o:p></o:p></span></p>

 

                <p class="MsoNormal">

 

                    <span style="font-size:12.0pt;line-height:115%;font-family:

 

  "Arial","sans-serif""><o:p> </o:p></span></p>

 

                <p class="MsoNormal">

 

                    <span style="font-size:12.0pt;line-height:115%;font-family:

 

  "Arial","sans-serif"">Доступ к системе

 

                    адресу:<span style="color:#1F497D"> </span><a href="http://auto.vsk.ru">

 

                    http://еtest.ru</a><span style="color:#1F497D"><o:p></o:p></span></span></p>

 

                <p class="MsoNormal" style="margin-bottom:12.0pt">

 

                    <span style="font-size:12.0pt;

 

  line-height:115%;font-family:"Arial","sans-serif"">Перед началом работы в

 

                    произвести <br />

 

                    согласно инструкции <b style="mso-bidi-font-weight:normal">*Настройка системы*</b>

 

                    в разделе ПОМОЩЬ (см. вложение)<span style="color:#1F497D"><o:p></o:p></span></span></p>

 

                <p class="MsoNormal" style="margin-bottom:12.0pt">

 

                    <b style="mso-bidi-font-weight:

 

  normal"><i style="mso-bidi-font-style:normal">

 

                    <span style="font-size:10.0pt;

 

  line-height:115%;font-family:"Arial","sans-serif"">C уважением,<br />

 

                    Группа бизнес-поддержки фронт-офисных приложений

 

                    <br />

 

                    ХЗХЗХЗ<o:p></o:p></span></i></b></p>

 

            </td>

 

        </tr>

[bugagashi]

уже неправильно

 

 

 

# Вчера в 22:39:29

• Цитировать
• 
   
  В общем сделал в офисе шаблон (письмо которые рассылаться будем макросом на кучу адресов)
   
  Через TFS вставил в VB редактор (висивиг типо), вставляешь таблицу и текст - получаешь код. Код нужно перекинуть в ексель - но ексель воспринимает его с ошибками. Нужно править " на ' и в конце в некоторых местах ставить & _
   
  Ниже пример, начало норм, дальше ошибки
  Очень прошу знатоков помочь отредактирвать 2ую часть скрипта, тем кто шарит это минута.
   
   
  trBody = "<span style='font-size:12.0pt; line-height:115%;font-family:"Arial","sans-serif"'>аывавы!" & _
   
                      "
   
  Â ывавыавыаываыв (авываа<span style='color:#1F497D'>): </span><o:p></o:p></span></p>"
   
  

[bugagashi]

строка

дурачков :)

[Astra]

Начало верное, ексель пропускает и работает. Только по моему не весь скрипт на пд вставился ну и видимо помощи все равно тут не дождаться :(

[ISyaQ]

запихни в тхт и выложи аттачем

[Astra]

во вложении архив с тхт

strbody - все ок

 

отредактировать надо strbody2

 

у кого мозг в этом направлении хоть чуть чуть работает - минутная задача