标题:[求助]如何在VB中加载EXCEL的宏
只看楼主
刚上路的新手
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-11-17
 问题点数:0 回复次数:10 
[求助]如何在VB中加载EXCEL的宏

我用VB打开EXCEL的一个文件,激活一个工作表,这个工作表中用到了需要加载宏的一些函数,比如HEX2DEC,但是我用VB一打开这个工作表,总是无法加载宏,所以HEX2DEC就无法使用。我该如何加载宏啊?

搜索更多相关主题的帖子: 加载 EXCEL 函数 文件 
2006-11-17 19:33
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
我不懂这些..

我的msn: myfend@
2006-11-17 20:03
gcwen
Rank: 1
等 级:新手上路
帖 子:67
专家分:0
注 册:2006-11-6
得分:0 
我懂VB,更加精通VBA,但是不知道怎么才能在VB中调用excel。唉。。。。
2006-11-17 21:52
学习VB才2天
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1653
专家分:0
注 册:2006-5-4
得分:0 
引用一下看看吧.....

[GLOW=255,DeepPink,3]我的免费网盘[/GLOW]
2006-11-17 21:54
gcwen
Rank: 1
等 级:新手上路
帖 子:67
专家分:0
注 册:2006-11-6
得分:0 
请问怎么在VB中打开excel文件,而又如何将经VB运算的数据输出到excel文档呢?
2006-11-17 22:21
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
通过Excel对象..

我的msn: myfend@
2006-11-18 10:52
sansizhou
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2006-11-24
得分:0 
EXCEL有两个自动宏:一个是启动宏(Sub Auto_Open()),另一个是关闭宏(Sub Auto_Close())
不知道你有没有用这个?
2006-11-24 11:03
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
得分:0 

同意7楼的.
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Activate '激活工作表
xlBook.RunAutoMacros (xlAutoOpen) '运行自动开启宏,这一句是你的问题的关键就是运行7楼说的Sub Auto_Open())

最后记得要关闲,特别是对象不可见时,那样的话进程中会越开越多的




2006-11-24 12:59
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
得分:0 
5楼的问题我也帮你一并解答了:
xlSheet.Cells.Item(行数, 列数)=你的值

2006-11-24 13:04
sansizhou
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2006-11-24
得分:0 
我尝试了下,没有关闭掉excel表。谁能提出点意见!
Private Sub Command2_Click()
If Dir("F:\vb练习\excel表比对\temp\excel.bz") <> "" Then '由VB关闭EXCEL
xlBook.Workbooks("bb.XLS").Save
xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '关闭EXCEL
End If
Set xlApp = Nothing '释放EXCEL对象
End
End Sub
2006-11-24 16:15



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-103674-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.013052 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved