zoukankan      html  css  js  c++  java
  • VBScript Excel 行和列的复制

    optionExplicit


    Dim objExcel
    Dim objWorkbook
    Dim temp
    GPTScript

    Sub GPTScript
        Set objExcel = CreateObject("Excel.Application")
        Set objWorkbook = objExcel.Workbooks.Open("E:\1.xls")
        objExcel.Visible = True

        Call CopyRowToAnother(1, 2, 30) '把第一个sheet页面中的第2行复制到第30行
        Call CopyColumnToAnother(1, 6, 30) ' 把第一个sheet页面中的第6列复制到第30列
        Call CopyColumnsRangeToAnother(6, 5, 50) '从第6列开始的五列数据复制到50列之后的五列
    EndSub

    Sub CopyColumnsRangeToAnother(srcStartPos,columnNum, destStartPos)
        Dim k
        For k=1To columnNum
            Call CopyColumnToAnother(1, srcStartPos+k, destStartPos+k)
        Next
    EndSub

    Sub CopyRowToAnother(sheetNum, row, anotherRow)
        objExcel.worksheets(sheetNum).rows(row).copy(objExcel.worksheets(sheetNum).rows(anotherRow))
    EndSub

    Sub CopyColumnToAnother(sheetNum, columnNum, anotherColumn)
        objExcel.Worksheets(sheetNum).Columns(columnNum).copy(objExcel.worksheets(sheetNum).Columns(anotherColumn))
    EndSub


    请注明文章出处:http://www.cnblogs.com/zhfuliang/

  • 相关阅读:
    .net 笔试面试总结(3)
    .net 笔试面试总结(2)
    .net 笔试面试总结(1)
    依赖注入
    ssh远程连接vm 安装的ubuntu
    ubuntu 安装vm-tool
    go调度: 第二部分-go调度器
    go调度: 第一部分-OS调度(操作系统调度)
    thrift简单示例 (go语言)
    thrift简单示例 (基于C++)
  • 原文地址:https://www.cnblogs.com/zhfuliang/p/2391129.html
Copyright © 2011-2022 走看看