求vb释放程序代码

先把三个excel文件放到资源文件里面
然后用下面的代码
测试通过
Private Sub Form_Load()
Dim byt() As Byte
Dim File As String

File = App.Path & "\1.xls"
byt = LoadResData(101, "CUSTOM")
Open File For Binary As #1
Put #1, 1, byt()
Close #1
File = App.Path & "\2.xls"
byt = LoadResData(102, "CUSTOM")
Open File For Binary As #1
Put #1, 1, byt()
Close #1
File = App.Path & "\3.xls"
byt = LoadResData(103, "CUSTOM")
Open File For Binary As #1
Put #1, 1, byt()
Close #1
End Sub

楼上是资源释放法。或者用rar压缩包压缩起来。用程序调用winrar来解压缩。