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

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отправка таблицы с данными в Телеграм (Макросы/Sub)

lanitfin

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

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

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

Сообщений: 8

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

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

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

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

Код

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

[/vba]

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

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

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

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

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

Код

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