实际上程序中用到的excel文件，是由二三十个工作表组成的，如果将excel文件添加到资源文件的话，怎样在程序运行时将资源文件还原成excel文件呢？还是直接能在资源文件里面查询数据？
附件中是实际程序中用到的excel文件

实际上程序中用到的excel文件，是由二三十个工作表组成的，如果将excel文件添加到资源文件的话，怎样在程序运行时将资源文件还原成excel文件呢？还是直接能在资源文件里面查询数据？
附件中是实际程序中用到的excel文件

主要是为了方便不想打包软件，因为软件本身很简单，体积也不大，只想实现直接拷贝到任何电脑上就能打开直接使用，不知道有没有什么好办法。

大概这样子

Private Sub Form_Load()
    Dim FileByte() As Byte'用来缓存文件内容
    Dim sName As String'要生成的文件名称    
    sName = App.Path & "\temp.xlsx"
    If Dir(sName) <> sName Then'如果该文件不存在就建立它
        FileByte() = LoadResData(101, "CUSTOM")'101是资源文件号
        Open sName For Binary As #1
        Put #1, , FileByte
        Close #1
    End If
End Sub

[此贴子已经被作者于2021-9-21 23:35编辑过]

收到的鲜花

• duzihanghai 于 2021-09-23 15:04 送鲜花  5朵  

这是正解，经测试可用，这样做出来的绿软体积小，携带方便，是个好方法。

小白来过!学习了!