VBA – 将15 MB二进制文件读取到var

Excel VBA中是否可以将二进制文件读取到variables中？

function类似于：

function bin2var(filename as String) As XXXX 

而且，是否可以做相反的操作？

 function var2bin(filename as String,data as XXXX) 

Answer 1

 Function bin2var(filename As String) As String Dim f As Integer f = FreeFile() Open filename For Binary Access Read Lock Write As #f bin2var = Space(FileLen(filename)) Get #f, , bin2var Close #f End Function Sub var2bin(filename As String, data As String) Dim f As Integer f = FreeFile() Open filename For Output Access Write Lock Write As #f Print #f, data; Close #f End Sub 

Answer 2

重写Boann的代码，因为它在输出文件的末尾写了一个新的行（2个字节）。

 Function bin2var(filename As String) As String Dim f As Integer f = FreeFile() Open filename For Binary Access Read Lock Write As #f bin2var = Space(FileLen(filename)) Get #f, , bin2var Close #f End Function Sub var2bin(filename As String, data As String) Dim f As Integer f = FreeFile() Open filename For Binary Access Write As #f Put #f, , data Close #f End Sub