Укоротить ссылку из Документов Google с помощью tinyurl

Question

Я видел этот метод через Интернет: создание коротких URL-адресов с помощью API и Google Docs

Как я могу использовать этот метод, используя www.tinyurl.com?

Не могли бы вы мне помочь? благодарю вас!

Answer 1

Для доступа к API tinyurl учетные данные не требуются. Это очень просто, требуя только длинный URL в запросе:

http://tinyurl.com/api-create.php?url=<longUrl>

Функция электронной таблицы, подобная той, что в указанной статье, будет:

= importData(concatenate("http://tinyurl.com/api-create.php?url=",B1))

Справка: Tinyurl имеет API.

Answer 2

=importData is only for googlesheets. Which answers this question.

But for those who use Excel you can use VBA code

Option Explicit
Public Sub tinyURL()
    Dim qt As QueryTable
    Dim ws As Worksheet
    Dim Copy As Integer
    Dim Paste As Integer
    Dim i As Integer
    Dim URL As String

    i = 2
    Copy = 2
    Paste = 2

    Set ws = ThisWorkbook.Worksheets("Sheet1")

    'loops until column A is empty
    Do Until IsEmpty(Cells(i, 1))

     'Copy from list in Column A and paste result into column B
     URL = "INSERT THE TINYURL API URL HERE ENDING WITH =" & Range("A" & Copy)
    Set qt = ws.QueryTables.Add(Connection:="URL;" & URL, Destination:=ws.Range("B" & Paste))

    With qt
        .RefreshOnFileOpen = True
        .FieldNames = True
        .WebSelectionType = xlSpecifiedTables
        .WebTables = 1
        .Refresh BackgroundQuery:=False
    End With

    i = i + 1
    Copy = Copy + 1
    Paste = Paste + 1
    Loop

End Sub