|
本帖最后由 fmbs2003 于 2019-9-19 16:25 编辑
我有个xla的文件需要在不同电脑打开,路径可能不一样,每次都要启用宏。所以就想用VB6编个EXE文件来执行。我参照了再谈【我说“启用宏”,就得启用宏,管你什么安全级 】
http://club.excelhome.net/forum. ... 8&page=3#pid6766494
这个贴的下列方法
"用VB6简单封装excel
说明:
此封装为简单封装,只是为了启动Excel时先出现一个个性化的等待界面,并跳过宏选择项直接启用宏。封装后为exe文件,已在Excel2003上测试通过。 封装过程:
首先你得安装VB6.0软件,网上有精简版的,才5-6M。
打开VB6.0,新建一个“标准exe”工程。
在这里,我们要做一个启动Excel时的等待界面,把中间的那个form1窗口的标题栏去掉,并设程序图标和等待背景图,以及该程序界面启动时的屏幕居中方式。
要实现上述功能,操作如下:
在右边“属性-Form1”框中分别找到并按下面的要求进行设置:
BorderStyle=0
StartUpPosition=2
Icon设置成你需要的图标(这也将成为你EXE的图标)
Picture设置成你准备使用的图片(即等待界面),窗体的大小可按你的图片情况自行决定。
在窗体上面放一个时间控件,点击左面的时间控件按钮(图标是闹钟),在窗体任何位置拖一个框即可,时间控件就放上去了,将其窗体属性Interval设为1000。
双击窗体,会弹出一个代码框(注意不是在时间控件上双击,要在窗体上面双击,也就是显示有启动界面的位置双击)。
删除里面已有的两行代码,把下面的代码复制进去
Private Sub Timer1_Timer()
Dim Exl As Object
Set Exl = CreateObject("Excel.Application")
Unload Me
Exl.Workbooks.Open (App.Path & "\" & "XXX.xls") '你的EXCEL作品,请修改文件名
Exl.Visible = True
End Sub
点击“工程”菜单,选择“引用”,弹出一个对话框,并勾选:Microsoft Excel……
点击“文件”菜单,执行“生成工程1.exe”,保存下来。现在新生成了一个名叫工程1.exe的文件。"
打开xls文件时是可行的,文件打开了,也直接启用了宏。
但是打开xla文件时就不行了,文件是打开了,但是感觉没有启用宏,也没有直接打开文件时的启用宏和禁用宏的提示。请问各位大神这是怎么回事。
或者用什么方法可以直接坐到我所需要的呢?我是业余的,各位解答时能详细点的话最好。谢谢了
|
|