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

rgbaabbcc

QUOTE:

以下是引用kezhiye在2006-12-18 14:02:25的发言：

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

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

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

哪位大侠出手相救!

回答你的第一个问题,一定是你的ICO不是标准格式,建议你用软件提取一个现成的,或者网上去下载ICO图标

回答你第二个问题,其实test文件名,你也可以改的,不改也没什么,因为最终的文件名,是封装后的exe文件,这个exe文件名默认为main,你可以改为任何名字

给你看下面这个,你就知道为什么是这些名字了:

@echo off
copy /b abc.exe + test.xls main.exe

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:10:02编辑过]

rgbaabbcc

QUOTE:

以下是引用carmp3在2007-9-1 16:04:47的发言：
请问楼主：xls2exe封装机哪里下载的？

在1楼下载：

或者：在记事本中输入下面的内容，保存为.bat格式

@echo off
copy /b abc.exe + test.xls main.exe

chende

QUOTE:

以下是引用weng21509在2006-11-29 10:10:40的发言：
60楼我跟你一样,后来我想可能我的原文件设有密码,被他的启动界面当住无法选择才关的。后来我取消密码重做了一个，文件是打开了，可他的启动界面永远不能消失，虽然启动界面范围我做的不大，但总是当去我一块窗口。？？？？？？？？？？？？？？？？？？？？？？？？？？

我也是这种问题哟，启动界面永远都在窗口上，不消失哟。怎么办？

caijiuhua

好好学习一下

sryks

好帖啊。好帖啊!谢谢了。我谢谢学习这好久了，可是对VB不太懂啊，。

立即寻求方案

excel 2007中的xlsm文件怎么封装。

gzzhangwei

全部收下，谢过为先！

hehz

谢谢~~~全部收下，好好学习

xwb_629

谢谢分享