(Excel) Generate S3 Signed URL

Demonstrates how to generate a pre-signed S3 URL.

Download Excel Class Modules Chilkat Excel Class Modules

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

' Insert your access key here:
http.AwsAccessKey = "ABQXXABC83ABCDEFVQXX"

' Insert your secret key here:
http.AwsSecretKey = "XXXXYYYYabcdABCD12345678xxxxyyyyzzzz"


bucketName = "testbucket"

path = "starfish.jpg"

Dim expireTime As Chilkat.CkDateTime
Set expireTime = Chilkat.NewCkDateTime
Dim success As Boolean
success = expireTime.SetFromCurrentSystemTime()

bLocalTime = False
' Set the expiration time to 1 hour from the current time.
success = expireTime.SetFromUnixTime(bLocalTime,expireTime.GetAsUnixTime(bLocalTime) + 3600)

signedUrl = http.S3_GenerateUrl(bucketName,path,expireTime)

If (http.LastMethodSuccess <> True) Then
    Debug.Print http.LastErrorText
Else
    Debug.Print signedUrl
End If