OYQ697的博客Sub 二进制读取() Dim filename As String filename = ThisWorkbook.path & "\text.txt" Open filename For Binary As #1 '打开文件,可以对文件进行读写操作 Dim chs() As Byte, i As ...
weixin_34242658的博客将文件转换成二进制写入数据库: Dim adodb1, adorec As Object Set adodb1 = OpenDatabase(App.Path & "\data.mdb") Set adorec = adodb1.OpenRecordset("select * from model") ...