Question

我使用Excel生成报价，然后使用VBA脚本将该报价和pdf版本上传到我们的作业管理软件，使用XMLHTTP。

我将所有XMLHTTP部分都工作，但是当我发送文件时，上传成功（获取成功消息并且文件在服务器上）但文件已损坏。

我的意思是将文件作为'application / octet-stream'发送，但是我试图尝试上传.txt文件的任何方法都已损坏。

我使用的代码如下：

Dim FileName As String
FileName = "C:\Users\Rob\Desktop\Test365.pdf"
Dim FileContents() As Byte, FileNumber As Integer
ReDim FileContents(FileLen(FileName) - 1)
FileNumber = FreeFile
Open FileName For Binary As FileNumber
    Get FileNumber, , FileContents
Close FileNumber
Dim FileCode() As String
ReDim FileCode(FileLen(FileName) - 1)

For x = 0 To (FileLen(FileName) - 1)
    FileCode(x) = bytetobit(FileContents(x))
    MsgBox (StrConv(FileCode(x), 256))
Next

Dim PleaseWork As String
PleaseWork = Join(FileCode, "")

然而，当我发布PleaseWork时，它不起作用！有谁知道我做错了什么？

这会给我一个八位字节流吗？

使用VBA将文件转换为application / octet-stream

0 个答案: