VB中读写EXCEL文件.docVIP

  1. 1、本文档共5页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 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 = 1 Set XlsBook = XlsObj.Workbooks.Add 。设置活动工作表 或者 Set XlsSheet = XlsObj.Worksheets(1) 代表第1个Sheet Set 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 = False XlsObj.Quit XlsObj.DisplayAlerts = True 网上实例 下面就是简单的在一些单元格内写入数字 For i = 7 To 15 For j = 1 To 10 xlsheet.Cells(i, j) = j 当前工作簿第一页的第I行第J列 Next j Next i xlapp.Quit 结束EXCEL对象xlapp.Workbooks.Close Set 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)

yan666888 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档