VBA を使用して Google ドライブにファイルをアップロードする際の不正エラーを修正する

VBA 経由で Google ドライブにファイルをアップロードする - 不正エラーの解決

Google Drive API とトークンベースの認証を使用した VBA

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

代替アプローチ: Python を使用して Google Drive API 経由でファイルをアップロードする

Python と Google Drive API および認証用の OAuth 2.0

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

VBA を使用した Google ドライブへのファイルのアップロードに関するよくある質問

1. VBA スクリプトの「Unauthorized」エラーを解決するにはどうすればよいですか?
2. 使用している API トークンに正しい権限があり、有効期限が切れていないことを確認してください。トークンを更新するか、 OAuth 2.0 新しいものを生成するフロー。
3. マルチパートリクエストにおける境界の目的は何ですか?
4. 境界は、マルチパート データの異なる部分を区切る一意の文字列です。これは、API がファイル メタデータとファイル コンテンツを使用するときに区別するのに役立ちます。 multipart/related リクエスト。
5. ファイルが正しくアップロードされないのはなぜですか?
6. これは、マルチパート データの不正な形式または無効なファイル パスが原因である可能性があります。使用 ADODB.Stream ファイルをバイナリ形式で読み取り、パスが正しいことを確認します。
7. Google Drive APIからのレスポンスを確認するにはどうすればよいですか?
8. 使用できます Debug.Print サーバーの応答を VBA エディターのイミディエイト ウィンドウに表示します。これは、リクエストが成功したか、エラーが発生したかを理解するのに役立ちます。
9. VBA を使用して Google ドライブにファイルをアップロードするときによくある間違いにはどのようなものがありますか?
10. よくある間違いとしては、期限切れの API トークンを使用したり、HTTP リクエストの形式が正しくなかったり、必要なリクエストが含まれていなかったりすることが挙げられます。 Authorization ヘッダー。

VBA Google ドライブのアップロードに関するガイドのまとめ

結論として、VBA 経由で Excel から Google ドライブにファイルを正常にアップロードするには、認証と形式に細心の注意を払う必要があります。 「不正」などの一般的なエラーを回避するには、正確なトークンと正しい API 設定を使用することが重要です。

さらに、マルチパート リクエストを正しく構築し、バイナリ ファイル データを効率的に処理することで、プロセスがスムーズでエラーがなくなります。適切なアプローチとエラー処理手法を使用すれば、これらのタスクを Excel でシームレスに自動化できます。