- 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.
您可能关注的文档
- Excel 2007添加打印机.doc
- Excel 2007轻松进行多条件求和.doc
- Excel 数据处理、图表制作、常用函数_表格类模板_表格.ppt
- Excel 2007的统计分析功能.doc
- Excel2003中,根据文字颜色来筛选或排序.doc
- excel2007 统计篇.doc
- 2014年规模工业企业统计报表编制方法与技巧.doc
- Excel 宏(英文).doc
- Excel 快捷键和功能键.doc
- ABAP 表格控制(Table Control)和 步循环(STEP-LOOP).doc
- 2025-2030年中国黑龙江省休闲农业行业市场发展前景及趋势预测与投资分析研究报告.docx
- 课题申报参考:平台经济创新发展与规制研究.docx
- 2025-2030年中药产业发展分析及发展趋势与投资战略研究报告.docx
- 课题申报参考:破产法修改研究.docx
- 2025年秋季沪科版七年级上学期数学网络课程计划.docx
- 课题申报参考:普惠金融与共同富裕研究.docx
- 2023_2024学年 [小升初]安徽安庆六年级下册数学期末试卷[有解析].pdf
- 2023_2024学年 [小升初]北京版六年级下册期末数学试卷3套[有解析].pdf
- 课题申报参考:普及化进程中高等教育通向农村的中国道路研究.docx
- 希沃课件特点介绍.pptx
文档评论(0)