excel - 上传到 Dropbox 但文件很小
问题描述
我在 Excel 中有一个 VBA 函数,它创建一个 document.docx,然后将其上传到 Dropbox。它在 Dropbox 中成功创建文件,但无法打开,因为它只有 2 个字节大小。为什么这个文件没有内容?我真的不知道文件实际上是如何工作的,它与将内容转换为字节的脚本有关吗?
Public Sub dropboxUpload()
Dim req As MSXML2.ServerXMLHTTP60
Dim strFile As String
Dim Pos1 As Integer
Dim Pos2 As Integer
Set req = New MSXML2.ServerXMLHTTP60
Dim arg As String
Dim content As Byte
content = ReadByteArrFromFile("C:\Users\me\Desktop\Folder\document.docx")
FileName = "document.docx"
arg = "{""path"":""/Work/" & FileName & """,""mode"":{"".tag"":""add""},""autorename"":true,""mute"":false}"
req.Open "POST", "https://content.dropboxapi.com/2/files/upload", False
req.setRequestHeader "Authorization", "Bearer xxxxx"
req.setRequestHeader "Content-Type", "application/octet-stream"
req.setRequestHeader "Content-length", Len(Result)
req.setRequestHeader "Dropbox-API-Arg", arg
req.setRequestHeader "User-Agent", "api-explorer-client"
req.Send content
If req.Status = 200 Then '200 = OK
'MsgBox req.Status & ": " & req.StatusText
Debug.Print req.responseText
Else
MsgBox req.Status & ": " & req.StatusText
Debug.Print req.responseText
End If
End Sub
Function ReadByteArrFromFile(filePath) As Byte()
Dim buff() As Byte
Dim fileNumb As Integer
fileNumb = FreeFile
Open filePath For Binary Access Read As fileNumb
ReDim buff(0 To LOF(fileNumb) - 1)
Get fileNumb, , buff
Close fileNumb
ReadByteArrFromFile = buff
End Function
解决方案
尝试设置正确的Content-length
值:
Dim arg As String
Dim content As Byte, fPath as string
fPath = "C:\Users\me\Desktop\Folder\document.docx"
FileName = "document.docx"
arg = "{""path"":""/Work/" & FileName & """,""mode"":{"".tag"":""add""},""autorename"":true,""mute"":false}"
req.Open "POST", "https://content.dropboxapi.com/2/files/upload", False
req.setRequestHeader "Authorization", "Bearer xxxxx"
req.setRequestHeader "Content-Type", "application/octet-stream"
req.setRequestHeader "Content-length", FileLen(fPath) '<<< set the correct size
req.setRequestHeader "Dropbox-API-Arg", arg
req.setRequestHeader "User-Agent", "api-explorer-client"
req.Send ReadByteArrFromFile(fPath)
If req.Status = 200 Then '200 = OK
'MsgBox req.Status & ": " & req.StatusText
Debug.Print req.responseText
Else
MsgBox req.Status & ": " & req.StatusText
Debug.Print req.responseText
End If
End Sub
推荐阅读
- python - 使用多个条件从 pandas 数据框中删除具有重复 DatetimeIndex 值的行
- javascript - Javascript/Mongo:将规范本身作为变量排序
- r - R - Chorddiag:为什么要转置矩阵?
- plc - 将 TwinCAT2 移植到 TwinCTA3
- python - 根据一个简单的条件,将一个数字列表分成几个列表,在列表中领先和落后
- c++ - AVX2:AVX 寄存器中 8 位元素的 BitScanReverse 或 CountLeadingZeros
- ios - 多个表视图使用的单一 UITableViewDiffableDataSource
- javascript - 具有两种不同颜色状态的导航栏
- vb.net - 循环无法读取所有访问记录
- google-drive-api - 如何使用google api获取有权访问共享驱动器的用户列表