英文:
VBA Save Byte Array to File
问题
我已收到来自API的POST请求的字节数组作为响应。该字节数组是一个PDF文档。我一直在搜索，但找不到从哪里开始的地方。如果我有一个字节数组，我该如何将其保存为PDF？
抱歉，我没有代码，因为我不确定从哪里开始，是否有人能提供至少一些链接或指导，以便我可以查找如何做这个的方法？
英文:
I have received a Byte Array as response from a POST request to an API. The Byte Array is of a pdf document. I have been searching around but couldn't find where to start. If I have a byte array how would I go about saving it back as a PDF?
Apologies I have no code as I'm not sure where to start, could anyone provide with at least some links or guidance so I can look up how to do this?
答案1
得分: 1
Sub SaveByteArray(bArr() As Byte, fileName As String, Optional overWriteFile As Boolean)With CreateObject("ADODB.Stream").Open.Type = 1.Write bArr.SaveToFile fileName, IIf(overWriteFile, 2, 1).CloseEnd WithEnd SubSub TestSaveByteArray()Dim fileName As String: fileName = ThisWorkbook.Path & "\myFile.pdf"Dim fileToRead As String: fileToRead = "C:\your path\TestFile.pdf" 'place the path of an existing pdf file!Dim arr() As Byte'load the array (somehow...), only to have a checkable byte array:arr = ReadBytes(fileToRead) 'you must use your existing array instead!SaveByteArray arr, fileName, TrueEnd SubPrivate Function ReadBytes(strFile As String) As Byte() 'only to supply a (testing) byte array...Dim byteArr() As ByteDim frFile As Integer: frFile = FreeFileOpen strFile For Binary Access Read As #frFileReDim byteArr(0 To LOF(frFile) - 1)Get #frFile, , byteArrClose #frFileReadBytes = byteArrEnd Function
英文:
Please, use the next Sub:
Sub SaveByteArray(bArr() As Byte, fileName As String, Optional overWriteFile As Boolean)With CreateObject("ADODB.Stream").Open.Type = 1.Write bArr.SaveToFile fileName, IIf(overWriteFile, 2, 1).CloseEnd WithEnd Sub
And use it as:
Sub TestSaveByteArray()Dim fileName As String: fileName = ThisWorkbook.Path & "\myFile.pdf"Dim fileToRead As String: fileToRead = "C:\your path\TestFile.pdf" 'place the path of an existing pdf file!Dim arr() As Byte'load the array (somehow...), only to have a checkable byte array:arr = ReadBytes(fileToRead) 'you must use your existing array instead!SaveByteArray arr, fileName, TrueEnd SubPrivate Function ReadBytes(strFile As String) As Byte() 'only to supply a (testing) byte array...Dim byteArr() As ByteDim frFile As Integer: frFile = FreeFileOpen strFile For Binary Access Read As #frFileReDim byteArr(0 To LOF(frFile) - 1)Get #frFile, , byteArrClose #frFileReadBytes = byteArrEnd Function
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论