Excel VBA 重要参考(原始的VBA代码)
'原始的VBA代码(重要参考)
'1.打开Excel
Dim exl As New Excel.Application()
exl.Visible = True
'2.添加工作簿
exl.Workbooks.Add()
'3.设定活动工作表
'exl.Worksheets("sheets").active()
'4.打开指定的Excel文件
'exl.Workbooks.Open("c:\book1.xls")
'5.显示Excel窗口
exl.Visible = True
'6.更改标题栏
exl.Caption = "aaaaaaaaaaa"
'7.为单元格赋值
exl.Cells(1, 4).value = 100
exl.Range("a1:b5").Value = 50
'8.设置指定列宽度
exl.ActiveSheet.columns(1).columnwidth = 20
'9.设行高
exl.ActiveSheet.rows(1).rowheight = 1 / 0.035
'10.在第18行插入分页
exl.ActiveSheet.rows(18).pagebreak = 1
'11.在第4列前删除分页符
exl.ActiveSheet.columns(4).pagebreak = 0
'12.指定边框线的宽度
exl.ActiveSheet.range("b3:d3").borders(2).weight = 3
'13.边框线条类型
Dim sheet As Excel.Worksheet
sheet = exl.ActiveSheet
sheet.Range("b10:f13").Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = 1
'14.设置页脚
sheet.PageSetup.CenterFooter = "第&p页"
'15.页眉
sheet.PageSetup.CenterHeader = "aaaaaa"
'16.顶、底、左、右边距
sheet.PageSetup.HeaderMargin = 2 / 0.035
sheet.PageSetup.FooterMargin = 2 / 0.035
sheet.PageSetup.LeftMargin = 2 / 0.035
sheet.PageSetup.RightMargin = 2 / 0.035
'页眉距顶端、页脚距底边
sheet.PageSetup.HeaderMargin = 2 / 0.0354
sheet.PageSetup.FooterMargin = 2 / 0.035
'22.页面水平居中
sheet.PageSetup.CenterHorizontally = True
'23.页面垂直居中
sheet.PageSetup.CenterVertically = True
'24.页面纸张
sheet.PageSetup.PaperSize = Excel.XlPaperSize.xlPaperA4
'25.打印网格(边框是实线,中间是虚线)
sheet.PageSetup.PrintGridlines = True
'26.复制整个工作表
sheet.Range("a1:f5").Copy()
sheet.Range("a10").PasteSpecial() '粘贴
'29.插入列/行
sheet.Columns(1).insert()
sheet.Rows(1).insert()
'31.合并格
sheet.Range("c4:d4").Merge()
'33.调整字体
'sheet.Cells("a1: f10").font.name = 5
'38.打印预览
exl.ActiveWorkbook.PrintPreview()
'39.打印
exl.ActiveWorkbook.PrintOut()
'40.保存文件
exl.ActiveWorkbook.SaveAs("e:\aa.xls")
'41.放弃存盘
exl.ActiveWorkbook.Saved = True
'43.退出
exl.Quit()
sheet.PageSetup.LeftHeader:='&B页眉左侧&B';//粗体显示
sheet.PageSetup.CenterHeader := '&D';//显示日期
sheet.PageSetup.RightHeader:='第 &P 页';//页码
sheet.PageSetup.CenterFooter := 第 &P 页';//页脚
页眉颜色Excel好像不提供,字体大小倒有:
eole=CREATEOBJECT("Excel.application")
eole.Workbooks.add
eole.visible=.t.
eole.cells(4,4).value='TEST'
eole.ActiveSheet.PageSetup.CenterHeader="&50报表1" &&设置页眉
eole.ActiveSheet.PageSetup.CenterFooter="&28第&P页" &&设置页脚
*&后面的50和28可以自定义,表示字体的大小
如果用单元格代替页眉倒可以设置字体颜色,如下
eole=CREATEOBJECT("Excel.application")
eole.Workbooks.add
eole.visible=.t.
eole.cells(1,4).value='TEST'
eole.cells(1,4).Font.Size = 22
eole.cells(1,4).Font.ColorIndex = 3
转载于:https://www.cnblogs.com/kingjiong/archive/2008/12/24/1361489.html
Excel VBA 重要参考(原始的VBA代码)相关推荐
- Excel 2003 VBA编程参考
Excel 2003 VBA编程参考 关于作者 Paul Kimmel Paul Kimmel于1990年创立了Software Conceptions公司,并从那时开始设计和创建软件以及编写计算机图 ...
- 升级:DNAtools for Excel工具箱,2.x英文版- VBA代码破解工具
原始出处:www.cnblogs.com/Charltsing/p/DnaTools.html QQ:564955427 DNA工具箱全部功能一览: 单元格焦点指示(支持Excel 2007~2 ...
- c语言大乐透编译,Excel大乐透摇号vba代码分享,说不定就中百万了呢
大家好我是Excel从零到一,今天闲来无聊做了一套大乐透摇号程序的vba代码分享给大家 来看下效果 Excel大乐透摇号vba代码分享,说不定就中百万了呢 Sub 摇号() Dim i, a, tes ...
- Excel 编写第一个简单的VBA程序
摘要: 该文为想要学习VBA编程的会计和编程同学有使用VBA实现Excel自动化处理和一定的个性化定制Excel操作提供参考 第一篇为::VBA简单语法 第二篇为: Excel 编写第一个简单的VBA ...
- excel宏根据表格自动计算机,使用VBA从Excel电子表格自动执行Internet Explorer会话 | MOS86...
它与Windows集成后,可以使用任何支持它的应用程序(例如Word,Outlook或Excel)中的Visual Basic for Applications(VBA)脚本,以多种令人惊讶的方式控制 ...
- vba excel 开发游戏_为什么要学习VBA?
VBA是一种编程语言,它依托于Office软件,可以实现各种Office软件操作的自动化.也就是说,只要我们用Office软件,如EXCEL,WORD也就是有了应用VBA的理由.为什么用VBA呢?其实 ...
- vba excel 开发游戏_自动化神器—VBA
VBA(Visual Basic For Application)是一种通用的自动化语言,它可以使Excel中常用的操作步骤自动化,还可以创建自定义的解决方案. VBA好比Excel的"遥控 ...
- Excel VBA密码破解工具(VBA实现)
http://www.oschina.net/code/snippet_54124_15443 使用UltreEdit之类的十六进制编辑程序打开.XLS文件,在文本模式下查找"[Host E ...
- python可以实现vba功能吗_再见 VBA!神器工具统一 Excel 和 Python
原标题:再见 VBA!神器工具统一 Excel 和 Python 关注 作者:东哥起飞 来源:Python数据科学 大家好,我是东哥. 经常给大家推荐好用的数据分析工具,也收到了铁子们的各种好评.这次 ...
最新文章
- 一个球从100米高度自由落下,每次落地后反弹回原高度的一半; * 再落下,求在第几次之后反弹高度小于0.1米, * 并计算在这一次落地时共经过多少米?...
- Kanzi常用操作1
- CentOS 迎来更新换代版本 CentOS Stream 9 附下载镜像OS地址
- python中split的用法取第二个分片_python中split()函数的用法
- c++11-std::functionbind
- Springboot 项目中过滤器的使用
- 2021年,彩票店还开的下去吗?
- sendgrid java_java – SendGrid电子邮件API,发送电子邮件附件
- linux系统安全加固基础篇1
- Linux随笔15-Ubuntu20.04允许root用户图形界面登录、chrony局域网时间同步服务、ipxe实现系统自动化安装
- win10触屏输入法_触摸屏笔记本Win10电脑的校准技巧
- 什么是十六进制法_十六进制的定义 十六进制的转换介绍【详解】
- JavaScript绘制矢量图
- 【web】百度地图中心点始终出现在左上角,或者灰蒙蒙的
- 用于2D动画的实时嘴型同步技术
- html css工资条样式,JS+CSS3交互式拖动滑块选择工资条代码
- Unity将世界坐标转为UI坐标
- java实现809*两位数=800*两位数+9*两位数,求出两位数的值。其中8*两位数的结果为两位数,9*两位数的结果为三位数
- Pixhawk系统架构介绍
- [转载]Matlab反三角函数表示
热门文章
- python动态规划算法最大k乘积_C语言使用DP动态规划思想解最大K乘积与乘积最大问题...
- 【TensorFlow】TensorFlow函数精讲之tf.nn.conv2d()
- 机器学习经典算法决策树原理详解(简单易懂)
- 《Python编程从入门到实践》记录之第7章 用户输入(input)和while 循环总结(思维导图)
- 深度学习(六十九)darknet 实现实验 Compressing Deep Neural Networks with Pruning, Trained Quantization and Huffma
- 如何识别新加的计算机硬盘,图文解说win10系统无法识别新加的机械硬盘的具体技巧...
- mysql 命令行怎么格式化_dbForge Data Compare for MySQL入门教程:通过命令行格式化代码...
- 读取文件卡顿_奥睿科IV300固态硬盘评测:35克,读取超900M/s?
- Windows 安装 Redis
- 茂名2021高考成绩查询入口,茂名高考成绩查询入口