Отправка таблицы с данными в Телеграм

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Отправка таблицы с данными в Телеграм (Макросы/Sub)

lanitfin Дата: Понедельник, 17.05.2021, 13:17 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 20% ±

Добрый день, эксперты!

Подскажите, пожалуйста, как- то можно отправить через Excel(VBA) таблицу с данными. То есть, к примеру, у меня есть таблица c данными на листе в ячейках B38:J39.
Эту таблицу хотелось бы отправить в телеграм. Вижу пока только два варианта: отправка каждой строки в отдельном сообщении, где построчно будут данные из столбцов каждой строки; Либо отдельным макросом сначала формировать скриншот этого диапазона, отправлять его картинкой и удалять этот скриншот.
Собрал вот такой код, он рабочий, но он отправляет данные только из одной ячейки, и если в ячейке есть переносы на другую строку, то текст всё равно приходит в "слипшимся" виде(т.е. без переносов):

Function RussianStringToURLEncode_New(ByVal txt As String) As String For i = 1 To Len(txt) l = Mid(txt, i, 1) Select Case AscW(l) Case Is > 4095: t = "%" & Hex(AscW(l) \ 64 \ 64 + 224) & "%" & Hex(AscW(l) \ 64) & "%" & Hex(8 * 16 + AscW(l) Mod 64) Case Is > 127: t = "%" & Hex(AscW(l) \ 64 + 192) & "%" & Hex(8 * 16 + AscW(l) Mod 64) Case 32: t = "%20" Case Else: t = l End Select RussianStringToURLEncode_New = RussianStringToURLEncode_New & t Next End Function Sub MessegeToTelegram1() Dim Token As String, ChatID As String, message As String, strPhoto As String Dim sURL As String, oHttp As Object, sHTML As String message = RussianStringToURLEncode_New(Range("B38").Text) ' отправляется текст из ячейки B34 'message = RussianStringToURLEncode_New(Range("B38").Text) 'strPhoto = ConvertFileToBase64("C:\Users\.........\Desktop\12.jpg") 'strPhoto = "C:\Users\.......\Desktop\12.jpg" Token = "......:........" ChatID = "............." sURL = "https://api.telegram.org/bot" & Token & "/sendMessage?chat_id=" & ChatID & "&text=" & message Set oHttp = CreateObject("Msxml2.XMLHTTP") oHttp.Open "POST", sURL, False oHttp.Send Set oHttp = Nothing End Sub

Вообще возможно, чтобы в телеграм сообщение приходило построчно, т.е. одна ячейка= одна строка:
Первое сообщение:
Первая строка: данные из ячейки B38
Вторая строка: данные из ячейки С38
.
.
.
Последняя строка: данные из ячейки J38

Второе сообщение:
Первая строка: данные из ячейки B39
Вторая строка: данные из ячейки С39
.
.
.
Последняя строка: данные из ячейки J39
и т.д.

Не совсем еще представляю как это реально будет выглядеть и "удобочитаемо" ли это будет, по-этому еще пытался сделать отправку скришота таблицы в JPG, но тут так и не понял как правильно отправить файл с локального диска.

Прошу подсказать, где я допускаю ошибку.

Заранее спасибо. :help:

К сообщению приложен файл: _____.xlsm (22.1 Kb)