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的名字命名新文件

  • 相关阅读:
    andorid(3) 使用sqllite进行数据持久化
    android(1)--hello world中的layout与 onCreate()
    android(2)--listView
    linux 常用指令
    关于虚拟内存、驻留内存与共享内存——virt res shr之间的关系
    base64 和 md5
    python阿里云短信服务
    python邮件发送
    算法
    python3 字典
  • 原文地址:https://www.cnblogs.com/hackxiyu/p/8945975.html
Copyright © 2011-2022 走看看