Скачать файл с google drive

Sub DownloadAndOpenFile()
    Dim url As String
    Dim downloadPath As String
    Dim webClient As Object
 
    url = "https://drive.google.com/file"
    downloadPath = "C:\"
    Set webClient = CreateObject("MSXML2.XMLHTTP")
 
    ' Скачивание файла
    webClient.Open "GET", url, False
    webClient.send
 
    ' Сохранение файла
    If webClient.Status = 200 Then
        Dim stream As Object
        Set stream = CreateObject("ADODB.Stream")
  
        stream.Open
        stream.Type = 1 ' Binary
        stream.Write webClient.responseBody
        stream.SaveToFile downloadPath, 2 ' Overwrite
        stream.Close
  
        ' Открытие файла
        Dim shell As Object
        Set shell = CreateObject("WScript.Shell")
        shell.Run downloadPath
        Set shell = Nothing
    End If
 
    Set webClient = Nothing
End Sub

Debug.Print webClient.responseText

downloadPath = "C:\123.xml"

Option Explicit
 
Function GOOGLETRANSLATE(text As String, source_language As String, target_language As String) As String
Dim URL As String
URL = "https://translate.google.com/m?sl=" & source_language & "&tl=" & target_language & "&hl=en&ie=UTF-8&q=" & text
Dim XMLHTTPS As Object
Set XMLHTTPS = CreateObject("MSXML2.ServerXMLHTTP")
XMLHTTPS.Open "GET", URL, False
XMLHTTPS.setrequestheader "User-Agent", "Mozilla/5.0 (compatible;MSIE 6.0; WindowsNT 10.0))"
XMLHTTPS.send ""
 
Dim HTML As Object
Set HTML = CreateObject("HTMLFile")
With HTML
  .Open
  .write XMLHTTPS.responseText
  .Close
End With
 
Dim HTMLDc As HTMLDocument
Set HTMLDc = HTML
 
Dim Class As Object
Set Class = HTMLDc.getElementsByClassName("result-container")(0)
If Not Class Is Nothing Then
GOOGLETRANSLATE = Class.innerText
End If
 
Set Class = Nothing
Set HTML = Nothing
Set XMLHTTPS = Nothing
 
End Function
 
Private Sub Command1_Click()
    MsgBox GOOGLETRANSLATE("Hello world", "en", "ru")
End Sub

Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long