ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2004|回复: 1

[求助] 编个直接打开xla文件并启用宏的文件

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-9-19 16:22 | 显示全部楼层 |阅读模式
本帖最后由 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文件时就不行了,文件是打开了,但是感觉没有启用宏,也没有直接打开文件时的启用宏和禁用宏的提示。请问各位大神这是怎么回事。
或者用什么方法可以直接坐到我所需要的呢?我是业余的,各位解答时能详细点的话最好。谢谢了


TA的精华主题

TA的得分主题

 楼主| 发表于 2019-9-24 10:01 | 显示全部楼层
没人解答么
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 16:10 , Processed in 0.039403 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表