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를 통해 파일 업로드

인증을 위해 Google Drive API 및 OAuth 2.0을 사용하는 Python

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 스크립트에서 "승인되지 않음" 오류를 해결하려면 어떻게 해야 합니까?
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에서 원활하게 자동화할 수 있습니다.