vb 操作excel(持续更新)

最新推荐文章于 2024-09-20 15:43:11 发布

你猜猜看！

最新推荐文章于 2024-09-20 15:43:11 发布

阅读量5.1k

点赞数 2

分类专栏： vb 文章标签： excel vb object 工作 user 工具

本文链接：https://blog.csdn.net/yangjun07167/article/details/5727673

版权

vb 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

    Dim xlApp As Object
    Dim xlRefBook As Object         '原EXCEL
    Dim xlRefSheet As Object        '原EXCEL SHEET

    Dim xlNewBook As Object         '新建EXCEL
    Dim xlNewSheet As Object        '新建EXCEL SHEET

    Set xlApp = CreateObject("Excel.Application")       '创建EXCEL应用类
    Set xlRefBook = xlApp.Workbooks.Open("F:/Visual Studio 6.0 test-code/my_test/my_vb_test_001/test.xls") '打开EXCEL工作簿
    Set xlRefSheet = xlRefBook.Worksheets("TEST")

    Set xlNewBook = xlApp.Workbooks.Add                 '增加一个工作薄
    xlRefSheet.Copy After:=xlNewBook.Worksheets(xlNewBook.sheets.Count)     '复制原sheet至新workbook中复制至sheet最后
    Set xlNewSheet = xlNewBook.Worksheets("TEST")       '设置新sheet

    xlNewSheet.Activate                                 '激活工作表

    xlsheet.Cells(1, 1) = "12345678"                '给单元格第1行第1列赋值

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,1),cells(1,2))

    xlNewSheet.range(xlNewSheet.Cells(1, 1), xlNewSheet.Cells(2, 2)).HorizontalAlignment = 3        '单元格水平对齐 1：左 2：右 3：中
    'xlnewsheet.cells(1,1).HorizontalAlignment = 3   '效果同上
    xlNewSheet.range(xlNewSheet.Cells(1, 1), xlNewSheet.Cells(2, 2)).VerticalAlignment = 2          '单元格垂直对齐 1：上 2：中 3:下
    'xlnewsheet.cells(1,1).VerticalAlignment = 2    '效果同上

    With xlNewSheet
        .Cells(3, 1) = "AAA"
        .Cells(3, 1).Font.Bold = True           '设置粗体
        .Cells(3, 1).Interior.ColorIndex = 6    '设置单元格颜色 (2是白色，3是红色，4是绿色，6是黄色)

        .Cells(3, 2).NumberFormatLocal = "@"    '设置格式为文本
        .Cells(3, 2) = "2009年08月"

        .Cells(3, 2).borders.LineStyle = 1      '设置边框线条的类型 borders(i) 1:左边框 2:右边框 3:上边框 4:下边框 5:斜 6:斜不设置:全边框
                                                                    'LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线

        .Cells(3, 2).borders.Weight = 3         '设置单元格边框宽度

        .Cells(3, 2).ColumnWidth = 15           '设置单元格宽度
                                                'EXCEL不能设定某个单元格宽度,只能设定单元格所在列的宽度。
                                                '选中要修改的单元格(或同一列中的其他单元格)然后用ColumnWidth设定宽度
        .Cells(3, 2).EntireColumn.AutoFit       '设置整列单元格自适应宽度

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(,1),.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,1).NumberFormatLocat = "#,##0_" '定义为数值型逗号分隔小数位数0 (录制宏实验可得出其他)

输入0是不会为空

End With

xlapp.Visible = True '设置EXCEL对象可见（或不可见）

    xlNewBook .SaveAs ("D:/123.xls")
    xlRefBook .Close (True)                                   '关闭EXCEL工作簿
    xlApp.Quit                                                   '关闭EXCEL