- 1、本文档共20页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
怎样实现用VB对excel的操作.
用VB操作excel方法
Private Sub Command3_Click()? ? ? ? Dim i As Long? ? Dim j As Long? ? Dim objExl As Excel.Application? ?声明对象变量? ? Me.MousePointer = 11? ?? ?? ?? ?改变鼠标样式? ? Set objExl = New Excel.Application? ? 初始化对象变量? ? objExl.SheetsInNewWorkbook = 1??将新建的工作薄数量设为1? ? objExl.Workbooks.Add? ?? ?? ? 增加一个工作薄? ? objExl.Sheets(objExl.Sheets.Count).Name = book1??修改工作薄名称? ? objExl.Sheets.Add , objExl.Sheets(book1) 增加第二个工作薄在第一个之后? ? objExl.Sheets(objExl.Sheets.Count).Name = book2? ? objExl.Sheets.Add , objExl.Sheets(book2) 增加第三个工作薄在第二个之后? ? objExl.Sheets(objExl.Sheets.Count).Name = book3? ? objExl.Sheets(book1).Select? ???选中工作薄book1? ? For i = 1 To 50? ?? ?? ?? ?? ?? ? 循环写入数据? ?? ???For j = 1 To 5? ?? ?? ?? ?If i = 1 Then? ?? ?? ?? ?? ? objExl.Selection.NumberFormatLocal = @??设置格式为文本? ?? ?? ?? ?? ? objExl.Cells(i, j) = E i j? ?? ?? ?? ?Else? ?? ?? ?? ?? ? objExl.Cells(i, j) = i j? ?? ?? ?? ?End If? ?? ???Next? ? Next? ? objExl.Rows(1:1).Select? ?? ?? ?选中第一行? ? objExl.Selection.Font.Bold = True? ?设为粗体? ? objExl.Selection.Font.Size = 24? ???设置字体大小? ? objExl.Cells.EntireColumn.AutoFit??自动调整列宽? ? objExl.ActiveWindow.SplitRow = 1??拆分第一行? ? objExl.ActiveWindow.SplitColumn = 0? ?拆分列? ? objExl.ActiveWindow.FreezePanes = True? ?固定拆分? ? objExl.ActiveSheet.PageSetup.PrintTitleRows = $1:$1??设置打印固定行? ? objExl.ActiveSheet.PageSetup.PrintTitleColumns = ? ? 打印标题? ? objExl.ActiveSheet.PageSetup.RightFooter = 打印时间: _? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ???Format(Now, yyyy年mm月dd日 hh:MM:ss)? ? objExl.ActiveWindow.View = xlPageBreakPreview? ? 设置显示方式? ? objExl.ActiveWindow.Zoom = 100? ?? ?? ?? ?? ???设置显示大小? ? 给工作表加密码? ? objExl.ActiveSheet.Protect 123, DrawingObjects:=True, _? ?? ?? ?? ?? ?? ?? ?? ?? ?? ? Contents:=True, Scenarios:=True? ? objExl.Application.IgnoreRemoteRequests = False? ? objExl.Visible = True? ?? ?? ?? ?? ?? ?? ???使EXCEL可见? ? objExl.Application.WindowState = xlMaximized? ? EXCEL的显示方式为最大化? ? objExl.ActiveWindow.WindowState
您可能关注的文档
- 怎样利用Windos自带的画图程序编辑像片的像素..doc
- 怎样利用FLASH制作动画..doc
- 怎样利用孢子捕捉在线监控防治小麦白粉病..docx
- 怎样利用录制软件来统一电台的录制电平标准..doc
- 怎样利用格式工厂剪辑视频..doc
- 怎样利用滤镜及动作制作暗调金属质感立体字..doc
- 怎样利用微博工具进行推广..doc
- 怎样利用相似形解几何综合题..doc
- 怎样利用经期减肥知道..doc
- 怎样利用网址导航推广自己..doc
- 七章货物的保险.pptx
- 三章国际间接投资.pptx
- 人性假设理论.pptx
- 外研高一英语必修三ModuleIntroduction汇总市公开课获奖课件省名师示范课获奖课件.pptx
- 月相成因优质获奖课件.pptx
- 小学二年级语文课件《狐假虎威》省名师优质课赛课获奖课件市赛课一等奖课件.pptx
- 养羊业概况专题知识讲座.pptx
- 微生物的实验室培养市公开课获奖课件省名师示范课获奖课件.pptx
- 人教版六年级下册式与方程整理与复习市公开课获奖课件省名师示范课获奖课件.pptx
- 必威体育精装版高中精品语文教学:第二单元-第7课-诗三首:涉江采芙蓉、-短歌行、归园田居市公开课获奖课件省名师.pptx
最近下载
- 管理学-PPT课件(全).pptx
- 高峰数字(四)_原创精品文档.pdf VIP
- “深圳工匠杯”深圳市第十四届职工技术创新运动会暨2024年深圳技能大赛碳排放管理员技能竞赛理论题库及答案(300题).docx VIP
- 粉针剂包装技术与设备.pptx
- 全文解读新修订的2021《中国共产党统一战线工作条例》ppt精品.pptx VIP
- 白蚁防治服务合同协议书范本.docx VIP
- (2022年新版)义务教育初中英语课程标准详细解读 (新课标解读讲座培训课件).pptx VIP
- 湖南《住宅工程质量常见问题防治技术规程》.docx
- 葡萄酿酒有限公司生产安全事故应急预案.docx VIP
- 路基爆破设计及施工组织方案.doc
文档评论(0)