使用VBA上传到Google云端硬盘？

Question

我有一个MS Access数据库，现在要求我“附加”文档。我的目的是将文档存储在Google云端硬盘上，并在数据库上有一个链接供用户检索文档。

由于有许多用户遍布不同的城市，因此要求他们同步Google云端硬盘文件夹是不切实际的。所有用户都需要能够上传到数据库/ GD，因此我的目的是为数据库建立一个单独的Google帐户 - 具有自己的登录详细信息。

示例：用户单击按钮上载文件出现另存为对话框，用户选择文件数据库日志到其Google云端硬盘并上传所选文件

虽然有很多问题，但主要的一点是Google Drive不支持VBA。如果用户登录了自己的Gmail帐户，则可能是另一个问题。

我在另一个网站上看到了vb.net的这个代码。

Imports System
Imports System.Diagnostics
Imports DotNetOpenAuth.OAuth2
Imports Google.Apis.Authentication.OAuth2
Imports Google.Apis.Authentication.OAuth2.DotNetOpenAuth
Imports Google.Apis.Drive.v2
Imports Google.Apis.Drive.v2.Data
Imports Google.Apis.Util
Imports Google.Apis.Services

Namespace GoogleDriveSamples

Class DriveCommandLineSample

    Shared Sub Main(ByVal args As String)

        Dim CLIENT_ID As [String] = "YOUR_CLIENT_ID"
        Dim CLIENT_SECRET As [String] = "YOUR_CLIENT_SECRET"

        '' Register the authenticator and create the service
        Dim provider = New    NativeApplicationClient(GoogleAuthenticationServer.Description, CLIENT_ID, CLIENT_SECRET)
        Dim auth = New OAuth2Authenticator(Of NativeApplicationClient)(provider, GetAuthorization)
        Dim service = New DriveService(New BaseClientService.Initializer() With { _
 .Authenticator = auth _
})

        Dim body As New File()
        body.Title = "My document"
        body.Description = "A test document"
        body.MimeType = "text/plain"

        Dim byteArray As Byte() = System.IO.File.ReadAllBytes("document.txt")
        Dim stream As New System.IO.MemoryStream(byteArray)

        Dim request As FilesResource.InsertMediaUpload = service.Files.Insert(body, stream, "text/plain")
        request.Upload()

        Dim file As File = request.ResponseBody
        Console.WriteLine("File id: " + file.Id)
        Console.WriteLine("Press Enter to end this process.")
        Console.ReadLine()
    End Sub



    Private Shared Function GetAuthorization(ByVal arg As NativeApplicationClient) As IAuthorizationState

        ' Get the auth URL:
        Dim state As IAuthorizationState = New AuthorizationState( New () {DriveService.Scopes.Drive.GetStringValue()})

        state.Callback = New Uri(NativeApplicationClient.OutOfBandCallbackUrl)
        Dim authUri As Uri = arg.RequestUserAuthorization(state)

        ' Request authorization from the user (by opening a browser window):
        Process.Start(authUri.ToString())
        Console.Write("  Authorization Code: ")
        Dim authCode As String = Console.ReadLine()
        Console.WriteLine()

        ' Retrieve the access token by using the authorization code:
        Return arg.ProcessUserAuthorization(authCode, state)

    End Function

End Class


End Namespace

有人建议可以利用IE库登录Google Drive，并通过上面的API调用进行上传。我不知道该怎么做。在其他地方，有人提到“COM包装器”可能是合适的。我没有VBA以外的任何编码经验（自学），所以我很难理解下一步应该是什么。

如果有人做过类似的事情或提出任何建议，我将很高兴收到你的来信。