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

凝露

有点深奥,对我来说

[em06][em11]

iamyp

谢谢[em02]

jxsdslz

楼主《电子表格VBA编辑器中用到的代码》有三段标点错了：

Private Const EXE_SIZE = 81920 '此处数字为前面第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

“”应为""    ‘应为'

VB懂的人就知道错在哪里，想我这样的菜鸟可就看了半天才看出来，提醒大家一下。

jxsdslz

还想问一下，时间控件起什么作用，时间控件的值我按楼主的选了1000，我按楼主的方法没有成功。合并后是生成了main.exe，但是打开就是看到软件封面，并不能打开EXCEL,不知道为什么？

jxsdslz

我做成的文件，就是停在启动界面，按回车就关了，和16楼的一样，但是楼主的双色球我打得开，不知道为什么？

weng21509

60楼我跟你一样,后来我想可能我的原文件设有密码,被他的启动界面当住无法选择才关的。后来我取消密码重做了一个，文件是打开了，可他的启动界面永远不能消失，虽然启动界面范围我做的不大，但总是当去我一块窗口。？？？？？？？？？？？？？？？？？？？？？？？？？？

kezhiye

下载了

kezhiye

按楼主的指教,封装完成后,发现有两个问题:

一,icon属性指定图片时提示我的ico图标是"无效的图片",但图片的确是ico图标呀.因此,exe文件的图标无法指定.

二,excel文件保存为test的文件名就可以,但保存为别的文件名,比如AAA或生产计划就不行了.请问这个文件名是在哪指定的,文件名总不能都是test呀.

哪位大侠出手相救!

kezhiye

有人给予指点吗

qygds

好东西，试一下

感谢分享