| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4717 人关注过本帖
标题:[原创]在VB中调用EXCEL
只看楼主 加入收藏
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
结帖率:100%
收藏
 问题点数:0 回复次数:11 
[原创]在VB中调用EXCEL
我们写程序时,有很多的功能如果都要自己写会非常的麻烦,比如:我们调用打印和打印预览。如果自己写过的人都会明白,调用还不是太麻烦,但你要如果调整你的打印内容在打印时正好是A4纸中的合适位置,这一点可能会非常的麻烦。
不知道大家有没有同感。
正因如此,如果调用一些现有的程序来达到一些功能,那么将会变得非常的方便,而EXCEL在这方面具有强大的功能,同时可以说会电脑的人90%都会使用EXCEL,这一点也是它的优势,不必另行特别的培训。
为此如果VB能与EXCEL很好的结合使用,那将是一件非常爽的事。
所以我写这一篇贴子,供大家参考,希望能给大家一定的帮助。
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("sheel1") '设置活动工作表,sheet1表示表名,可以使用字符型变量代替。
xlSheet.Activate '激活工作表,让它处于前台活动中。
xlBook.RunAutoMacros (xlAutoOpen) '运行自动开启宏Macro1(),在EXCEL中加入以下宏
'Sub auto_open() '这是VBA中的自动打开时运行的宏
' 您要宏自动运行的程序,比如可以call其它的宏,这样VB在打开EXCEL时,使用上面的语句就可以先运行这个宏
'End Sub
xlSheet.Cells.Item(行数,列数) =值 '给EXCEL对象中的表的单元格附值。
xlSheet.Rows("7:7").Select '选定EXCEL表的第7行
xlApp.Selection.Delete shift:=xlUp '删除选定的行
xlSheet.Rows(7).Insert '在第7行处插入一行
ActiveSheet.PageSetup.CenterHeader ="页眉内容" '给页眉附值
xlSheet.Range("f7:h7").Select '选定f7:h7之间的单元格,下面的程序是把它们合并。
Application.CutCopyMode = False
With xlApp.Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With

由于功能太多,不能一一列举,如果有自己不会的可以用录制宏的办法,用手功操作一次你要的功能,然后看录下的宏程序,VBA中的宏程序几乎所有的宏在VB中都可以直接使用,关键是对象一定要搞清楚。
搜索更多相关主题的帖子: EXCEL 
2006-11-24 13:36
gcwen
Rank: 1
等 级:新手上路
帖 子:67
专家分:0
注 册:2006-11-6
收藏
得分:0 
Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件

上面这一句如何定义路径?
2006-11-28 12:07
flyly
Rank: 1
等 级:新手上路
帖 子:254
专家分:0
注 册:2006-11-13
收藏
得分:0 
回复:(tang688)[原创]在VB中调用EXCEL
簡單!用這個!
baFHBt3r.rar (134.56 KB) 回复:(tang688)[原创]在VB中调用EXCEL


[此贴子已经被作者于2006-11-28 12:23:23编辑过]


2006-11-28 12:22
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
以下是引用gcwen在2006-11-28 12:07:07的发言:
Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件

上面这一句如何定义路径?

不是已经有定义了吗?
App.Path 的意思是你现在这个程序远行的地方,要不是那你就写绝对路径啊.
比如:"d:\aa\b.xls"


2006-12-04 10:25
shenqiwei
Rank: 1
等 级:新手上路
帖 子:53
专家分:0
注 册:2006-12-2
收藏
得分:0 
2006-12-05 02:40
shenqiwei
Rank: 1
等 级:新手上路
帖 子:53
专家分:0
注 册:2006-12-2
收藏
得分:0 
2006-12-05 02:40
shenqiwei
Rank: 1
等 级:新手上路
帖 子:53
专家分:0
注 册:2006-12-2
收藏
得分:0 
2006-12-05 02:40
shenqiwei
Rank: 1
等 级:新手上路
帖 子:53
专家分:0
注 册:2006-12-2
收藏
得分:0 
2006-12-05 02:40
shenqiwei
Rank: 1
等 级:新手上路
帖 子:53
专家分:0
注 册:2006-12-2
收藏
得分:0 
2006-12-05 02:41
xzx0811
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-4-18
收藏
得分:0 

不错哦,嘿嘿

2007-04-18 17:32
快速回复:[原创]在VB中调用EXCEL
数据加载中...
 
   



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

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