Використання VBA для виправлення неавторизованої помилки під час завантаження файлів на Google Drive

Подолання неавторизованої помилки VBA для завантаження файлів на Google Диск

Під час автоматизації завдань у Excel інтеграція його з Диском Google для завантаження файлів може значно підвищити продуктивність. Проте користувачі часто стикаються з проблемами під час спроби використання VBA для цієї мети, зокрема з отриманням помилки «Неавторизовано» під час процесу завантаження.

Ця проблема зазвичай виникає через неправильні маркери авторизації або неправильну конфігурацію запиту API. Якщо її не усунути належним чином, помилка «Неавторизовано» може перешкодити успішному завантаженню файлів із локальної системи на Диск Google.

Розуміння нюансів взаємодії API, таких як правильні заголовки, маркери та форматування файлів, є важливим для вирішення цих помилок. Відкоригувавши певні частини коду VBA та забезпечивши належне налаштування API, ви можете усунути помилку та ефективно виконати завдання.

У цьому посібнику ми розповімо вам, як визначити причину неавторизованої помилки та як виправити код, щоб ви могли легко завантажувати файли на Диск Google за допомогою VBA. Давайте почнемо з покрокового підходу до усунення та вирішення цієї проблеми.

Як сценарії VBA керують завантаженнями на Google Диск і усувають помилки

Метою наданого сценарію VBA є автоматизація завантаження файлів із локального каталогу на Диск Google за допомогою Google Drive API. Ключем до цього процесу є створення багатокомпонентного запиту POST для надсилання файлу у двійковому форматі разом із його метаданими. Використання об’єкта `MSXML2.ServerXMLHTTP60` дозволяє коду VBA спілкуватися з веб-серверами, включаючи API Google Drive. Цей об’єкт необхідний для обробки циклу запитів/відповідей HTTP, надсилаючи файл у спосіб, зрозумілий API.

Однією з головних проблем, з якими стикаються в цьому процесі, є правильне використання авторизації. Сценарій використовує маркер `Bearer`, який має бути дійсним, щоб API Google Диска надав доступ до завантаження. Цей маркер передається в методі `setRequestHeader`, щоб переконатися, що запит правильно автентифікований. Без цього маркера або якщо він недійсний, ви отримаєте повідомлення про помилку "Не авторизовано". Тому дуже важливо правильно згенерувати маркер і переконатися, що він має необхідні дозволи на завантаження в обліковому записі Диска Google.

Обробка вмісту файлу досягається за допомогою `ADODB.Stream`, який дозволяє VBA читати файл у двійковому форматі. Це особливо важливо, оскільки такі файли, як PDF, потрібно завантажувати як двійкові дані. Завантажуючи файл у бінарний потік, код готує його до передачі через HTTP. Багатокомпонентний запит вимагає, щоб метадані файлу та двійковий вміст надсилалися в певних розділах, розділених унікальним межа. Функція `CreateBoundary` динамічно генерує цю межу, щоб правильно структурувати запит.

Підхід Python, наданий як альтернатива, використовує Клієнт Google API і метод `service_account.Credentials` для автентифікації, що робить його більш придатним для сучасних випадків використання з автоматизованими системами та серверами. Цей метод спрощує керування маркерами та зменшує ймовірність помилок, як-от «Неавторизовано», завдяки автоматичній обробці автентифікації OAuth 2.0. Обидва рішення надійні, але вимагають ретельного налаштування облікових даних API та правильної обробки файлів, щоб уникнути типових проблем, таких як помилки авторизації або неправильні формати файлів.

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

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

Звертаємо увагу на важливість належної авторизації в завантаженнях Google Drive на VBA

Одним із ключових елементів під час роботи з Google Drive API у VBA є забезпечення правильного процесу авторизації. Google Drive потребує OAuth 2.0 для безпечного доступу, що означає, що просто передати маркер API недостатньо, якщо він не має необхідних дозволів. Маркер API, який використовується, повинен мати необхідні області для завантаження файлів, і якщо він прострочений або недійсний, ви зіткнетеся з помилкою «Неавторизовано». Періодичне оновлення маркера та підтвердження правильних дозволів можуть запобігти цим проблемам.

Ще один важливий аспект, на який слід звернути увагу, — це те, як багатокомпонентні дані обробляються під час завантаження файлу. У цьому процесі побудова багатокомпонентної форми є критичною, оскільки вона розділяє метадані файлу та фактичний вміст файлу. Граничний рядок, створений динамічно, діє як роздільник для розрізнення цих частин. Дані мають бути правильно відформатовані, щоб API Диска Google міг правильно їх проаналізувати. Без цієї структури API відхилить запит, що призведе до помилок "Неправильний запит".

Нарешті, не менш важливою є обробка помилок у сценарії VBA. Під час завантаження файлів можуть виникнути несподівані проблеми, наприклад проблеми з підключенням до мережі або неправильні шляхи до файлів. Реалізація процедур перевірки помилок і механізмів налагодження, як Налагодження.Друк дозволяє розробникам швидко визначати джерело помилок. Завдяки чіткому зворотному зв’язку, коли завантаження не вдається, усунення несправностей стає ефективнішим, роблячи процес плавнішим і надійнішим для майбутніх завантажень файлів.