VBA naudojimas norint ištaisyti neteisėtą klaidą įkeliant failus į „Google“ diską

Failų įkėlimas į „Google“ diską per VBA – neteisėtos klaidos sprendimas

VBA su „Google“ disko API ir prieigos raktu pagrįsta autentifikacija

Sub GoogleDriveAPI()
    Const reqURL As String = "https://www.googleapis.com/upload/drive/v3/files?uploadType=multipart"
    Const Token As String = "api-token" ' Replace with your actual API token
    Dim content() As Byte, fPath As String, FileName As String
    Dim file_metadata As String
    fPath = "D:\" ' Path to the file to be uploaded
    FileName = "M.pdf" ' The file name
    file_metadata = "{'name':'" & FileName & "'}"
    ' Boundary for separating file parts
    Dim Boundary, part As String, ado As Object
    Boundary = CreateBoundary()
    part = BuildMultipartContent(Boundary, file_metadata, fPath, FileName)
    ' Create HTTP request for Google Drive API
    Dim req As New MSXML2.XMLHTTP60
    Set req = New MSXML2.ServerXMLHTTP60
    With req
        .Open "POST", reqURL, False
        .setRequestHeader "Authorization", "Bearer " & Token
        .setRequestHeader "Content-Type", "multipart/related; boundary=" & Boundary
        .send ado.Read
    End With
    If req.Status = 200 Then
        Debug.Print req.responseText ' Success
    Else
        MsgBox req.Status & ": " & req.statusText ' Error handling
    End If
End Sub

Function CreateBoundary() As String
    Dim s As String
    Dim n As Integer
    For n = 1 To 16
        s = s & Chr(65 + Int(Rnd * 25))
    Next
    CreateBoundary = s & CDbl(Now)
End Function

Function BuildMultipartContent(Boundary As String, metadata As String, fPath As String, FileName As String) As String
    Dim part As String
    part = "--" & Boundary & vbCrLf
    part = part & "Content-Type: application/json; charset=UTF-8" & vbCrLf & vbCrLf
    part = part & metadata & vbCrLf
    part = part & "--" & Boundary & vbCrLf
    part = part & "Content-Type: application/pdf" & vbCrLf
    part = part & "Content-Transfer-Encoding: binary" & vbCrLf & vbCrLf
    part = part & ReadBinaryFile(fPath, FileName) & vbCrLf
    part = part & "--" & Boundary & "--"
    BuildMultipartContent = part
End Function

Function ReadBinaryFile(fPath As String, FileName As String) As String
    Dim ado As Object
    Set ado = CreateObject("ADODB.Stream")
    ado.Type = 1 ' Binary mode
    ado.Open
    ado.LoadFromFile fPath & FileName
    ReadBinaryFile = ado.Read
    ado.Close
End Function

Alternatyvus metodas: failų įkėlimas per „Google“ disko API naudojant Python

Python su Google disko API ir OAuth 2.0 autentifikavimui

from google.oauth2 import service_account
from googleapiclient.discovery import build
from googleapiclient.http import MediaFileUpload

def upload_to_drive():
    credentials = service_account.Credentials.from_service_account_file('path-to-credentials.json')
    service = build('drive', 'v3', credentials=credentials)

    file_metadata = {'name': 'M.pdf'}
    media = MediaFileUpload('D:/M.pdf', mimetype='application/pdf')

    file = service.files().create(body=file_metadata, media_body=media, fields='id').execute()
    print('File ID: %s' % file.get('id'))

if __name__ == '__main__':
    upload_to_drive()

Dažnai užduodami klausimai apie failų įkėlimą į „Google“ diską naudojant VBA

1. Kaip išspręsti VBA scenarijaus klaidą „Neteisėta“?
2. Įsitikinkite, kad naudojamas API prieigos raktas turi tinkamus leidimus ir nepasibaigęs. Galite atnaujinti žetoną arba naudoti OAuth 2.0 srautą, kad sukurtų naują.
3. Koks yra kelių dalių užklausos ribos tikslas?
4. Riba yra unikali eilutė, atskirianti įvairias kelių dalių duomenų dalis. Tai padeda API atskirti failo metaduomenis ir failo turinį naudojant multipart/related prašymus.
5. Kodėl mano failas netinkamai įkeliamas?
6. Taip gali nutikti dėl neteisingo kelių dalių duomenų formatavimo arba netinkamo failo kelio. Naudokite ADODB.Stream perskaityti failą dvejetainiu formatu ir užtikrinti teisingą kelią.
7. Kaip patikrinti atsakymą iš „Google“ disko API?
8. Galite naudoti Debug.Print kad būtų rodomas serverio atsakymas tiesioginiame VBA redaktoriaus lange. Tai padeda suprasti, ar užklausa buvo sėkminga, ar įvyko klaida.
9. Kokios dažniausiai pasitaikančios klaidos įkeliant failus į „Google“ diską naudojant VBA?
10. Kai kurios dažnos klaidos yra pasibaigusio API prieigos rakto naudojimas, neteisingas HTTP užklausos formatavimas arba būtino Authorization antraštes.

Apibendrinant VBA „Google“ disko įkėlimų vadovą

Apibendrinant, norint sėkmingai įkelti failus iš „Excel“ į „Google“ diską per VBA, reikia atidžiai stebėti autentifikavimą ir formatavimą. Tikslaus prieigos rakto ir teisingų API nustatymų naudojimas yra labai svarbus norint išvengti įprastų klaidų, pvz., „Neteisėta“.

Be to, užtikrinus teisingą kelių dalių užklausų sudarymą ir efektyvų dvejetainių failų duomenų tvarkymą, procesas bus sklandus ir be klaidų. Taikant tinkamą požiūrį ir klaidų valdymo metodus, šias užduotis galima sklandžiai automatizuoti programoje „Excel“.