VBA kasutamine failide Google Drive'i üleslaadimisel volitamata tõrke parandamiseks

Failide üleslaadimine Google Drive'i VBA kaudu – volitamata tõrke lahendamine

VBA koos Google Drive API ja tokenipõhise autentimisega

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

Alternatiivne lähenemisviis: failide üleslaadimine Google Drive API kaudu Pythoni abil

Python koos Google Drive API ja OAuth 2.0 autentimisega

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()

Korduma kippuvad küsimused failide üleslaadimise kohta Google Drive'i VBA abil

1. Kuidas lahendada VBA-skripti tõrke "Volitamata"?
2. Veenduge, et teie kasutataval API-märgil on õiged õigused ja see pole aegunud. Saate žetooni värskendada või kasutada OAuth 2.0 voolu, et luua uus.
3. Mis on mitmeosalise taotluse piiri eesmärk?
4. Piir on kordumatu string, mis eraldab mitmeosaliste andmete erinevad osad. See aitab API-l kasutamisel vahet teha faili metaandmetel ja faili sisul multipart/related taotlusi.
5. Miks mu faili ei laadita õigesti üles?
6. Selle põhjuseks võib olla mitmeosaliste andmete vale vormindamine või vale failitee. Kasuta ADODB.Stream faili binaarvormingus lugemiseks ja tee õigsuse tagamiseks.
7. Kuidas kontrollida Google Drive'i API vastust?
8. Võite kasutada Debug.Print serveri vastuse kuvamiseks VBA redaktori vahetus aknas. See aitab mõista, kas taotlus õnnestus või tekkis viga.
9. Millised on levinud vead failide üleslaadimisel Google Drive'i VBA abil?
10. Mõned levinumad vead hõlmavad aegunud API-märgi kasutamist, HTTP-päringu vale vormingut või vajaliku teabe mitte lisamist. Authorization päised.

VBA Google Drive'i üleslaadimiste juhendi kokkuvõte

Kokkuvõtteks võib öelda, et failide edukas üleslaadimine Excelist Google Drive'i VBA kaudu nõuab hoolikat tähelepanu autentimisele ja vormindamisele. Täpse märgi ja õigete API-sätete kasutamine on ülioluline levinud vigade (nt volitamata) vältimiseks.

Lisaks muudab mitmeosaliste päringute õige ülesehituse tagamine ja binaarfailide andmete tõhus käsitlemine protsessi sujuvaks ja vigadeta. Õige lähenemisviisi ja veakäsitluse tehnikatega saab neid ülesandeid Excelis sujuvalt automatiseerida.