Brug af VBA til at rette den uautoriserede fejl ved upload af filer til Google Drev

Upload af filer til Google Drev via VBA - Løsning af den uautoriserede fejl

VBA med Google Drive API og token-baseret godkendelse

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

Alternativ tilgang: Upload af filer via Google Drive API ved hjælp af Python

Python med Google Drive API og OAuth 2.0 til godkendelse

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

Ofte stillede spørgsmål om upload af filer til Google Drev ved hjælp af VBA

1. Hvordan løser jeg fejlen "Uautoriseret" i mit VBA-script?
2. Sørg for, at det API-token, du bruger, har de korrekte tilladelser og ikke er udløbet. Du kan opdatere tokenet eller bruge OAuth 2.0 flow for at generere en ny.
3. Hvad er formålet med grænsen i flerpartsanmodningen?
4. Grænsen er en unik streng, der adskiller forskellige dele af flerdelt data. Det hjælper API'en med at skelne mellem filmetadata og filindhold, når den bruges multipart/related anmodninger.
5. Hvorfor uploades min fil ikke korrekt?
6. Dette kan skyldes forkert formatering af flerdelte data eller en ugyldig filsti. Bruge ADODB.Stream for at læse filen i binært format og sikre, at stien er korrekt.
7. Hvordan kontrollerer jeg svaret fra Google Drive API?
8. Du kan bruge Debug.Print for at vise serverens svar i det umiddelbare vindue i VBA-editoren. Dette hjælper med at forstå, om anmodningen var vellykket, eller om der var en fejl.
9. Hvad er nogle almindelige fejl, når du uploader filer til Google Drev ved hjælp af VBA?
10. Nogle almindelige fejl omfatter brug af et udløbet API-token, forkert formatering af HTTP-anmodningen eller ikke medtagelse af de nødvendige Authorization overskrifter.

Afslutning af vejledningen om VBA Google Drev-uploads

Afslutningsvis kræver succesfuld upload af filer fra Excel til Google Drev via VBA omhyggelig opmærksomhed på godkendelse og formatering. Brugen af ​​et nøjagtigt token og korrekte API-indstillinger er afgørende for at undgå almindelige fejl som "Uautoriseret."

Desuden vil sikring af den korrekte konstruktion af flerpartsanmodninger og håndtering af binære fildata effektivt gøre processen glat og fejlfri. Med den rigtige tilgang og fejlhåndteringsteknikker kan disse opgaver automatiseres problemfrit i Excel.