用VB打开含有VBA代码的EXCEL文件 - 编程论坛

#2

owenlu19812014-03-27 08:48

思路和相关代码如下，关于控件属性和设置问百度
1.滚动条用控件ProgressBar + Timer实现
按"登录"后，启动Timer,ProgressBar1值递增，当ProgressBar1值=ProgressBar1最大值时，关闭Timer并隐藏登录界面，打开Excel
ProgressBar1.Value = 0    '初始值
ProgressBar1.Minimum = 0    '最小值
ProgressBar1.Maximum = 100    '最大值
Timer.Enabled = True    '启动Timer
Timer.Enabled = False    '关闭Timer
Timer.Interval = 1000    '时间间隔，1000为1秒，控制滚动条滚动速度

2. 打开Excel （首先要引用EXCEL对象,工程->引用-> Microsoft Excel xxx Object Library, xxx 为版本号)
Dim xlApp As New Excel.Application, xlBook As New Excel.Workbook, xlSheet As New Excel.Worksheet    '定义相关属性
Set xlApp = CreateObject("Excel.Application")    '打开Excel软件
xlApp.Visible = True    '显示EXCEL
xlApp.DisplayAlerts = False    '取消Excel消息提示
Set xlBook = xlApp.Workbooks.Open(FileName)    '打开指定Excel文档
Set xlSheet = xlBook.Worksheets(1)    '设定第一个Sheet为活动工作表

#3

燕之峰2014-03-27 15:56

用加上这一行代码吗
xlbook.runautomactos(xlautoopen) 运行EXCEL中的启动宏

#4

owenlu19812014-03-27 16:07

回复 3楼燕之峰

加不加看你需求，如果打开后就要跑宏就加

#5

燕之峰2014-03-27 16:53

请教 4楼 owenlu1981
打开后就要跑宏,是何意
xlbook.runautomactos(xlautoopen) 运行EXCEL中的启动宏,应放在哪个位置
另外，xlbook.runautomactos(xlautoclose) '运行EXCEL中的关闭宏
什么情况下使用运行
控件ProgressBar运行时，颜色如何设置

[ 本帖最后由燕之峰于 2014-3-27 17:45 编辑 ]

#6

w3609894262014-03-27 22:26

何必呢，直接将vba代码转化成VB代码来执行操作excel不就好了么，这样宏安全性可以忽略

#7

owenlu19812014-03-28 08:26

Excel有两个自动宏，Sub Auto_Open(),Sub Auto_Close(),分别在打开和关闭Excel时自动执行
但是VB打开Excel时不会自动执行，所以需要命令来启动和关闭
启动:
Set xlSheet = xlBook.Worksheets(1)
xlbook.runautomactos(xlautoopen)
关闭:xlbook.runautomactos(xlautoclose)

#8

owenlu19812014-03-28 08:27

回复 6楼 w360989426

Excel里的宏非系统管理员也可以改，但是EXE改起来就不方便了。