zoukankan      html  css  js  c++  java
  • excel多个sheet表拆分成独立的excel文件

    一、问题:

      公司做一个项目,给的用户上报文是一个包含多个sheet页的excel文件,

      但是在实际处理报文数据的时候需要拆分excel文件为多个独立的报文excel文件

    二、解决:

      (1)一个一个的复制,新建文件,生成新的sheet文件,sheet多的时候很麻烦

      (2)使用office的宏工具来自动化拆分文件

    三、操作步骤:  

      注意:本操作以wps为例,其它的请自行测试

      (1)下载【wps vba宏插件】

      (2)点击 【开发工具】--》【vba编辑器】--》【插入】--》【模块】

      (3)复制以下代码:

    Private Sub 分拆工作表()
    
    Dim sht As Worksheet
    
    Dim MyBook As Workbook
    
    Set MyBook = ActiveWorkbook
    
    For Each sht In MyBook.Sheets
    
    sht.Copy
    
    ActiveWorkbook.SaveAs Filename:=MyBook.Path & "" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
    
    ActiveWorkbook.Close
    
    Next
    
    MsgBox "文件已经被分拆完毕!"
    
    End Sub

      (4)点击运行即可拆分文件到改报文的同级目录下,并以sheet的名字命名新文件

  • 相关阅读:
    hinge loss
    KL散度
    pygame 学习
    pytorch 反向传播
    在线画数学函数图
    recover deleted files
    98个关键点的人脸
    Pytorch详解BCELoss和BCEWithLogitsLoss
    one hot vector
    Effective C++
  • 原文地址:https://www.cnblogs.com/hackxiyu/p/8945975.html
Copyright © 2011-2022 走看看