VBA izmantošana, lai labotu nesankcionētu kļūdu, augšupielādējot failus Google diskā

Failu augšupielāde Google diskā, izmantojot VBA — neatļautas kļūdas novēršana

VBA ar Google diska API un marķiera autentifikāciju

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

Alternatīva pieeja: failu augšupielāde, izmantojot Google diska API, izmantojot Python

Python ar Google diska API un OAuth 2.0 autentifikācijai

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

Bieži uzdotie jautājumi par failu augšupielādi Google diskā, izmantojot VBA

1. Kā novērst kļūdu “Neautorizēts” manā VBA skriptā?
2. Pārliecinieties, vai izmantotajai API pilnvarai ir pareizās atļaujas un vai tai nav beidzies derīguma termiņš. Varat atsvaidzināt marķieri vai izmantot OAuth 2.0 plūsma, lai radītu jaunu.
3. Kāds ir vairāku daļu pieprasījuma robežas mērķis?
4. Robeža ir unikāla virkne, kas atdala dažādas vairāku daļu datu daļas. Tas palīdz API lietošanas laikā atšķirt faila metadatus un faila saturu multipart/related pieprasījumus.
5. Kāpēc mans fails netiek augšupielādēts pareizi?
6. Tas var būt saistīts ar nepareizu vairāku daļu datu formatējumu vai nederīgu faila ceļu. Izmantot ADODB.Stream lai lasītu failu binārā formātā un pārliecinātos, ka ceļš ir pareizs.
7. Kā pārbaudīt atbildi no Google diska API?
8. Jūs varat izmantot Debug.Print lai parādītu servera atbildi tiešajā VBA redaktora logā. Tas palīdz saprast, vai pieprasījums bija veiksmīgs vai radās kļūda.
9. Kādas kļūdas tiek pieļautas, augšupielādējot failus Google diskā, izmantojot VBA?
10. Dažas izplatītas kļūdas ietver API marķiera, kuram beidzies derīguma termiņš, izmantošanu, nepareizu HTTP pieprasījuma formatējumu vai vajadzīgā neiekļaušanu. Authorization galvenes.

Rokasgrāmatas apkopošana par VBA Google diska augšupielādēm

Visbeidzot, lai veiksmīgi augšupielādētu failus no Excel uz Google disku, izmantojot VBA, ir jāpievērš īpaša uzmanība autentifikācijai un formatēšanai. Precīza pilnvara un pareizi API iestatījumi ir ļoti svarīgi, lai izvairītos no bieži sastopamām kļūdām, piemēram, “Neautorizēts”.

Turklāt, nodrošinot pareizu vairāku daļu pieprasījumu uzbūvi un efektīvu bināro failu datu apstrādi, process būs vienmērīgs un bez kļūdām. Izmantojot pareizo pieeju un kļūdu apstrādes paņēmienus, šos uzdevumus var nemanāmi automatizēt programmā Excel.