都是根对象Application上的API
FileDialog(保存文件,另存为等、、)
激活sheet
Application.Workbooks.Open('路径') -- 打开制定路径的工作簿
检测文件类型,判断是不是excel:
Application.Quit() -- 关闭所有打开的excel工作簿
Evaluate()赋值函数:
Application.Evaluate("A1").Value2 = 25; -- 赋值
可以引用区域进行运算,可以调用宏;可以获取调用外部工作簿的值
使用Evaluate改变制定单元格样式
使用Evaluate计算区域单元格的平均值,其中函数为excel内置函数
Range,Goto
获取指定的范围(指定工作簿的指定区域),跳转至指定位置
Goto第二个参数为true时滚动工作表以显示区域,为false时不滚动工作表
InputBox 接收用户输入的对话框,可以接收单元格的引用
以下操作是:切换到Sheet1,输出当前激活的单元格的值,给当前激活的单元格加上指定样式(加粗、斜体)
获取当前激活窗体的名字(工作簿名):Application.ActiveWindow.Caption
Application.ActiveWorkbook.Name
获取当前版本号:Application.Build
Application.ActiveWindow.Zoom += 50:当前页面放大50%
Application.Cells(获取当前激活工作表的所有单元格)
Application.Cells.Range("A1: A2") ,也可以指定获取范围
获取指定行列的单元格:Application.ActiveSheet.Cells.Item(1, 1) ,其中Item的坐标可以是一维,也可以是二维(rowIndex, columnIndex)
获取所有单元格的值:
1、不建议使用如下方式遍历循环,会卡死
2、推荐使用使用当前已用区域ActiveSheet.UsedRange
UsedRange.Count = 当前使用的单元格数量
获取行、列:Application.WorkSheets.Item('xx').Rows/Columns
删除第三行:Application.WorkSheets.Item('xx').Rows.Item(3).Delete()
选中范围:Range("A1:A4").Select()
Application.Path:文件实际存放路径
Application.Version:应用版本号
Application.OperatingSystem:操作系统版本
调用内置函数:Application.WorkSheetFunction.Min(myRange)
新建工作表,并命名:
区域上色:
Borders -- 边框
Characters--文本的指定范围
Comment--给单元格加批注
Hyperlinks--超链接
Interior -- 设置单元格内部样式,颜色等
Sort--排序
Style--样式
通过 SpecialCells--获取指定范围
给单元格填充数据: