vb 操作excel(持续更新)
Dim xlApp As Object
xlsheet.range("A7").Value = "777"‘给单元格A7赋值 xlNewSheet.range(xlNewSheet.Cells(1,1),xlNewSheet.Cells(2,2)).merge '合并 单元格 xlNewSheet.range("A13:Q13").MergeCells = True '合并A13到Q13单元格 range("A13").MergeArea.MergeCells '判断单元格是否是 合并单元格 range("A13").MergeArea.Address '取得合并单元格的范围 xlNewSheet.range("D1").Borders.LineStyle = 1 '设置边框 range(cells(1,cells(1,2)) xlNewSheet.range(xlNewSheet.Cells(1,2)).HorizontalAlignment = 3 '单元格水平对齐 1:左 2:右 3:中 With xlNewSheet xlApp.run "宏名","参数","参数" '运行宏 如要使 excel运行宏需设置安全性为中 = > 工具>宏>安全性 vb中运行宏 原(模板)book 不能关闭 使用其他excel的宏 方法为 xlApp.run "exce文件名.xls!宏名","参数" 数据组合(数据分级显示): Group Excel : 数据>组及分级显示>组合 vb: 行组合: xlNewSheet.range("3:5").Group => 组合 3行到5行 xlNewSheet.Rows("3:5").Group => 同上 列组合: xlNewSheet.Columns("A:C").Group => 组合 A列到C列 xlNewSheet.range(.cells(,.cells(,3)).Group=>同上 vb 操作 数据组合的显示方式: xlNewSheet.Outline.showLevels RowLevels/ColumnLevels:=1 数据组合边上显示的 1 一般为关闭组合(视情况而定) xlNewSheet.Outline.showLevels RowLevels/ColumnLevels:=2 数据组合边上显示的2 一般为打开组合(视情况而定) xlNewSheet.Activecell.Address '取得单元格的位置(row,column) xlNewSheet.cells(1,1).Address => ($A$1)=>A1单元格
xlNewSheet.cells(1,1).row=> 1 xlNewSheet.cells(1,1).column=>1 xlNewSheet.cells(1,1).NumberFormatLocal = "@ " '定义单元格为 user定义(字符型)
xlNewSheet.cells(1,1).NumberFormatLocal = "yyyymmdd" '定义为 年月日(user定义) xlNewSheet.cells(1,1).NumberFormatLocat = "#,###" '定义为 (user定义) 逗号分隔 小数位数0 输入0时 会变为空 xlNewSheet.cells(1,##0_" '定义为 数值型 逗号分隔 小数位数0 (录制宏 实验可得出其他) 输入0是 不会为空
xlapp.Visible = True '设置EXCEL对象可见(或不可见) xlNewBook .SaveAs ("D:/123.xls") xlRefBook .Close (True) '关闭EXCEL工作簿 xlApp.Quit '关闭EXCEL (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |