用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”看看效果如何！