Отправка извлеченных данных из Excel (VBA) в приложение Telegram в различных текстовых форматах (полужирный шрифт, Italli c, гипертекст) - PullRequest
Новая
       43

Отправка извлеченных данных из Excel (VBA) в приложение Telegram в различных текстовых форматах (полужирный шрифт, Italli c, гипертекст)

0 голосов
/ 08 апреля 2020

Я новичок ie в отношении VBA, но тем не менее я каким-то образом выложил некоторый код, чтобы очистить веб-сайт и опубликовать данные на листе Excel, а затем проанализировать данные в телеграмме (приложение android). Проблема, которую я не могу решить (я много раз искал и не нашел решений) состоит в том, чтобы отформатировать некоторый текст жирным шрифтом, itali c, .., когда я публикую данные в Telegram. Пример: я удалил данные в ячейке Excel, которые я хочу опубликовать в телеграмме, выделенной жирным шрифтом. Я пытался реализовать уценку в Excel, но я не уверен, что это возможно ?? Я также пытался опубликовать html команды, но это тоже не работает: ,, et c ... Любые предложения или решения приветствуются. Пожалуйста, помогите мне ... 

Dim objRequest As Object
Dim strChatId As String
Dim strMessage As String
Dim strPostData As String
Dim strResponse As String

 strChatId = "592117023"
 strMessage = Sheets("Bets").Range("C1000").End(xlUp).Value
 strMessage1 = Sheets("Bets").Range("D1000").End(xlUp).Value
 strMessage2 = Sheets("Bets").Range("E1000").End(xlUp).Value
 strMessage3 = Sheets("Bets").Range("F1000").End(xlUp).Value
 strMessage4 = Sheets("Bets").Range("G1000").End(xlUp).Value
 strMessage5 = Sheets("Bets").Range("B1000").End(xlUp).Value
 stake = Sheets("Bets").Range("H1000").End(xlUp).Value

strPostData = "chat_id=" & strChatId & "&text=" & strMessage5 & vbNewLine & strMessage1 & vbNewLine & strMessage & vbNewLine & "----------------------------------------------" & vbNewLine & strMessage2 & vbNewLine & strMessage3 & vbNewLine & "Odds: " & "@" & strMessage4 & vbNewLine & "Stake: " & stake



 Set objRequest = CreateObject("MSXML2.XMLHTTP")
With objRequest
  .Open "POST", "https://api.telegram.org/botXXXXXXXXXX:xXxXxXxXxXx-rGeb_mhnTGOs/sendMessage?", False
  .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  .send (strPostData)
   GetSessionId = .responseText
 End With
...