Your workflow is unique 👨💻 - tell us how you use Dropbox here.
Forum Discussion
Solved
Upload file doesn't open
I am trying to upload an .xlsx file using VBA. The upload seems to work and the file appears in dropbox, but it will not preview and once downloaded, will not open in excel. I compared the original...
Try this instead? I have a suspicion that returning a String is the issue... the upload sees a string and tries to encode it as UTF-8, leading to the changes to the content making the file unusable. I don't think I've ever used VBA before, so this is code adapted from the web that I have not tested yet. Apologies if there are mistakes!
Private Function ReadBinary(FileName As String) As Byte() Dim f As Integer f = FreeFile Open FileName For Input Access Read As #f ReadBinary = InputB(LOF(f), f) Close #f End Function
Your function didnt work, but your idea did.
I used this function and it worked.
Public Function GetFileBytes(ByVal path As String) As Byte() Dim lngFileNum As Long Dim bytRtnVal() As Byte lngFileNum = FreeFile If LenB(Dir(path)) Then ''// Does file exist? Open path For Binary Access Read As lngFileNum ReDim bytRtnVal(LOF(lngFileNum) - 1&) As Byte Get lngFileNum, , bytRtnVal Close lngFileNum Else Err.Raise 53 End If GetFileBytes = bytRtnVal Erase bytRtnVal
End Function
Steve M.
Dropbox Staff
Dropbox StaffI'm glad you got it sorted out! Thanks for being patient with my lack of VBA knowledge.
About Dropbox API Support and Feedback
Get help with the Dropbox API from fellow developers and experts.
