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

rgbaabbcc

QUOTE:

以下是引用weng21509在2006-11-15 21:39:04的发言：
我也打不开,用什么程序打开啊?请指点.

用winrar解压

rgbaabbcc

QUOTE:

以下是引用weng21509在2006-11-15 21:42:12的发言：

这是打开文件的窗口

你的操作不正确,请看里面的word文档教程

rgbaabbcc

QUOTE:

以下是引用matali在2006-11-16 1:29:39的发言：
怎么打开的的例程"双色球空行空列"只停止在启动介面呀,看不到内容,回车就关了

这可能和你的电脑有关,我测试过多台电脑,用这种封装,可行的.而且其他的人未提出你这样的问题

pingquanren

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

红色部分是不是有错误呀，怎么不成功呀 ！！谢谢高手！！！！！

ljjldd

多谢!马上试去...

zhangshirley

好东东，先收了

yfxpzq

好贴。

frurs

bucuo

tgrzwjf

留个记号将来用。

lms0321

为什么我载后打不开呀？下面是什么意思我不会用啊。请予帮助！

以下为教程部份,有插图说明,易懂(以下附件为分卷压缩,改名为1,2,3,4即可解压)