[分享][原创]Excel简单封装教程,图文并貌![已纠正错误]

hdhzmx

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If ThisWorkbook.ReadOnly = True Then
ThisWorkbook.Close SaveChanges:=False
Else
ThisWorkbook.Close SaveChanges:=True
End If

Dim myfile As FileSection '定义变量
Dim comc, exec, xlsc As String '定义变量
Application.Visible = False '隐藏EXCEL主窗口
exec = Worksheets("temp").Cells(1, 1).Value
xlsc = Worksheets("temp").Cells(2, 1).Value
comc = exec & " " & xlsc
Open exec For Binary As #1 '打开EXE文件
ReDim myfile.Bytes(1 To EXE_SIZE)
Get #1, 1, myfile.Bytes '取得固有文件头
Close #1
If VBA.Dir(exec) <> "" Then Kill exec
Open exec For Binary As #1 '生成新的EXE文件
Put #1, 1, myfile.Bytes '先写入文件头
Open xlsc For Binary As #2 '打开xls临时文件
ReDim myfile.Bytes(1 To FileLen(xlsc))
Get #2, 1, myfile.Bytes
Put #1, EXE_SIZE + 1, myfile.Bytes '将xls部分追加进EXE

Close #1
Close #2

Application.Quit
Shell comc, vbMinimizedNoFocus '删除临时xls文件

End Sub

If ThisWorkbook.ReadOnly = True Then
ThisWorkbook.Close SaveChanges:=False
Else
ThisWorkbook.Close SaveChanges:=True
End If

这段代码为何不起作用，封装后这段代码不起作用，如果是非只读状态打开，文件自动保存。
请问各位要如何修改呢。

孙长老老

楼主，能给我发一份全的吗？我下载的不能全部打开。里面附带的教程也不能打开。邮箱：422723004@qq.com，谢谢

xhdd

谢过！好东西！

laojiu369

我还没作过Excel封装，新鲜学习中

meishayongle

好东西就要拿出来分享嘛，么么哒！

zhanger

meishayongle 发表于 2014-12-1 10:05
好东西就要拿出来分享嘛，么么哒！

真不容易 ，发个贴还不能忘记了后续解惑……谢谢！

peter-chen

谢谢楼主的分享，学习中[em01]

peter-chen

怎么以下附件为Excel封装专用文件夹

oLWVXx8c.rar
下载的时候有限时有木马病毒

谢卓燃

怎么下载下来字节0，打不开呢

peter-chen

学习了，谢谢