- 1、本文档共5页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB中读写EXCEL文件
VB中读写EXCEL文件
(2011-01-11 22:41:47)
HYPERLINK javascript:; 转载
标签:
HYPERLINK /c.php?t=blogk=%B9%A4%D7%F7%B1%EDts=bpoststype=tag \t _blank 工作表
HYPERLINK /c.php?t=blogk=%B5%A5%D4%AA%B8%F1ts=bpoststype=tag \t _blank 单元格
HYPERLINK /c.php?t=blogk=%C9%E8%D6%C3ts=bpoststype=tag \t _blank 设置
HYPERLINK /c.php?t=blogk=%B1%DF%BE%E0ts=bpoststype=tag \t _blank 边距
HYPERLINK /c.php?t=blogk=%B6%D4%CF%F3ts=bpoststype=tag \t _blank 对象
HYPERLINK /c.php?t=blogk=itts=bpoststype=tag \t _blank it
分类: HYPERLINK /s/articlelist_1598393227_5_1.html \t _blank 计算机教程
在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同,所以这个选项的版本号可能不同
。定义EXCEL对象
Dim XlsObj As Excel.Application Excel对象Dim XlsBook As Excel.Workbook 工作簿Dim XlsSheet As Excel.Worksheet 工作表
。打开或创建EXCEL
Set XlsObj = CreateObject(Excel.Application) 创建EXCEL对象XlsObj.Visible = True 设置EXCEL对象可见(或不可见)
打开已经存在的test.xls工件簿文件Set xlbook = xlapp.Workbooks.Open(App.Path \test.xls)
创建有一个工作表的工作簿XlsObj.SheetsInNewWorkbook = 1Set XlsBook = XlsObj.Workbooks.Add
。设置活动工作表
或者 Set XlsSheet = XlsObj.Worksheets(1) 代表第1个SheetSet XlsSheet = XlsObj.Worksheets(表名)
给单元格(row,col)赋值
XlsSheet.Cells(row, col) =值
给合并的单元格赋值,如(A3:A9)
XlsSheet.Range(A3:A9) =值
运行 EXCEL 宏
XlsBook.RunAutoMacros (宏名)
插入一行
XlsSheet.Rows(1:1).Insert Shift:=xlDown
保存 EXCEL 文件XlsBook.Save另存为XlsBook.SaveAs(文件名)
关闭工作簿XlsBook.Close (True)
结束 EXCEL 对象XlsObj.Quit
释放 XlsObj 对象Set XlsObj = Nothing
如果要求在退出应用程序后EXCEL不提示用户是否保存已修改的文件,则可使用如下语句:XlsObj.DisplayAlerts = FalseXlsObj.QuitXlsObj.DisplayAlerts = True
网上实例
下面就是简单的在一些单元格内写入数字For i = 7 To 15For j = 1 To 10xlsheet.Cells(i, j) = j 当前工作簿第一页的第I行第J列Next jNext ixlapp.Quit 结束EXCEL对象xlapp.Workbooks.CloseSet xlapp = Nothing 释放xlApp对象End Sub这样,我们就可以简单的对excel文件进行操作了。下面再放一些我从网上查到的资料吧,还挺有用的:1.创建Excel对象 eole=CREATEOBJECT(′Excel.application′) 2.添加新工作簿 eole.Workbooks.add 3.设置第3个工作表为激活工作表 eole.Worksheets(〃sheet3〃).Activate 4.打开指定工作簿 eole.Workbooks.Open(〃c:\temp\ll.
文档评论(0)