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/

  • 相关阅读:
    第11次作业
    第十次实验
    第九次作业
    第八次实验
    第七次作业
    第六次作业
    作业
    JAVA实验三
    JAVA实验二
    JAVA实验一
  • 原文地址:https://www.cnblogs.com/zhfuliang/p/2391129.html
Copyright © 2011-2022 走看看