再谈【我说“启用宏”，就得启用宏，管你什么安全级 】

samuel-he

lskvslgt 发表于 2012-4-4 23:42
你试一下，，，，

楼主：你好
Dim oExcel,fn
fn=Replace(WScript.ScriptFullName,"TT.vbs","TT.xlsm")
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible=True
Set fso = oExcel.Workbooks.Open(fn ,,,,"123")
Set oExcel = Nothing
Wscript.Quit
这段代码在VBS下用工具VBS2EXE转为EXE然这样的提示是什么问题？如图

cxh2010

vbs2exe工具能发一个给我试试吗 谢谢了   cxh1368@163.com

huaimiao781

呵呵！ 这是个好东西啊， 和我这个 功能相同啊， 我也是套别人的用。
http://club.excelhome.net/thread-987719-1-11.html
  提示！ 我是出于整人， 恶搞 才改装的！

fzkoko

学习了，谢谢

wenwen000424

作个记号。以后学习。

lskvslgt

这么多人感兴趣就再贴一种方法
用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的文件。

　　把生成的程序“工程1.exe”和刚Excel文件“XXX.xls”文件复制到同一个文件夹中，运行“工程1.exe”看看效果如何！

banjinjiu

学习了，谢谢了

darklesson

2010面前一切都是浮云

lskvslgt

darklesson 发表于 2013-5-26 16:03
2010面前一切都是浮云

应该也是可以的

lingzhen123456

好像输入密码，这个功能无法实现呢？