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

2007的云彩

无意间跑进了这里，这里真是个学习的好地方！

renran0220

 exec = WorkSheets(“temp”).cells(1,1).value
 xlsc = WorkSheets(“temp”).cells(2,1).value

请问这两个单元格为何值。

sizenlin

好!

crin

全部收下，谢过

playbober

rivate Const EXE_SIZE = 180224 '此处数字为前面第7步得到的EXE文件字节数
Private Type FileSection
 Bytes() As Byte
End Type

'在Workbook_BeforeClose事件中加入如下代码(对原有的代码可保留)：

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.Close True

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

楼主，为什么我在设置excel的时候，这行代码出错了，而且提示错误75，路径/文件访问错误啊？

rgbaabbcc

QUOTE:

以下是引用playbober在2006-12-28 20:42:52的发言：

rivate Const EXE_SIZE = 180224 '此处数字为前面第7步得到的EXE文件字节数
Private Type FileSection
 Bytes() As Byte
End Type

'在Workbook_BeforeClose事件中加入如下代码(对原有的代码可保留)：

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.Close True

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

楼主，为什么我在设置excel的时候，这行代码出错了，而且提示错误75，路径/文件访问错误啊？

经我仔细研究，由于此时这里打开exe文件出错是正常的，因为没有exe文存在，此时还没有封装的嘛！封装后就正确了

[此贴子已经被作者于2008-4-7 13:08:36编辑过]

dtglexcel

very good

office_wolf

太好了，谢谢楼主。真的值得去学习一下

fanrong88

学习

ybhl