精华内容
下载资源
问答
  • 合并多个工作簿为一个工作簿 1、右键查看代码,插入以下代码 Sub 工作薄间工作表合并() Dim FileOpen Dim X As Integer Application.ScreenUpdating = False FileOpen = Application.GetOpenFilename(FileFilter:...

    合并多个工作簿为一个工作簿

    1、右键查看代码,插入以下代码

    Sub 工作薄间工作表合并()
    
    
    Dim FileOpen
    Dim X As Integer
    Application.ScreenUpdating = False
    FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
    X = 1
    While X <= UBound(FileOpen)
    Workbooks.Open Filename:=FileOpen(X)
    Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    X = X + 1
    Wend
    ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub
    
    
    
    
    errhadler:
    MsgBox Err.Description
    End Sub


    2、保存,表格存为启用宏的工作簿,如果为xlsx记得将上面的.xls修改

    3、开发工具运行宏

    拆分工作簿为多个工作簿

    1、点击菜单插入模块,输入以下代码:


    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

    2、单击运行运行子过程|窗体,拆分的文件与源文件在同地址。

    展开全文
  • excel 自动拆分工作簿中的多个工作表excel电子文件
  • 使用情景:如题,将一包含工作表的工作簿拆分为单工作表工作簿文件 原始文件描述:【旺旺大礼包.xlsx】中有三工作表,分别是旺仔牛奶、旺旺仙贝、旺旺小小酥 操作流程: 打开旺旺大礼包.xlsx——在菜单栏...

    这个功能,属于我的VBA入坑操作。由于该篇属于实操性较强的内容,为了让小白都能上手用,我这里放一点VBA的基础操作。

    使用情景:如题,将一个包含多工作表的工作簿拆分为单工作表工作簿文件

    原始文件描述:【旺旺大礼包.xlsx】中有三个工作表,分别是旺仔牛奶、旺旺仙贝、旺旺小小酥

    操作流程:

    打开旺旺大礼包.xlsx——在菜单栏的开发工具中找到Visual Basic入口——进入到VBE界面并确认代码窗口已打开

    备注:菜单栏里没有【开发工具】这一选项卡的朋友可以看我另一篇博文的第(二)部分内容:https://blog.csdn.net/liujinli0712/article/details/105367327

    输入代码:

    备注:该段代码已经测试,粘贴走之后唯一需要手动更改的地方就是标红的这个原始工作簿名称

    Sub 拆分工作簿到当前路径()

    Dim wk As Workbook, ss$, k%                         '声明变量

    Application.DisplayAlerts = False                     '将运行时弹出的对话框屏蔽掉

    For Each sht In Workbooks("旺旺大礼包").Sheets        '首先循环当前工作簿下的sheets集合,此处共3个

       Set wk = Workbooks.Add                                           '新建一个工作簿,并且这个工作簿赋值给变量wk

       k = k + 1                                                                      'k的作用在下一句就能看明白

       Workbooks(1).Sheets(k).Copy Workbooks(2).Sheets(1)  

    '前面完成了新建工作簿,现有两个工作簿,原有的为Workbooks(1),新建的为Workbooks(2),这句代码的含义是将当前工作簿下面的工作表Sheet(k)复制到新建工作簿的Sheet(1)前面

       ss = ThisWorkbook.Path & "\" & sht.Name & ".xlsx"                '给ss变量赋值为当前工作簿的路径+取出来的文件名

       wk.SaveAs ss                                                                          '保存wk工作簿

       wk.close                                                                                  '关闭wk工作簿

    Next

    Application.DisplayAlerts = True                     '解除前面的屏蔽

    MsgBox "旺旺大礼包拆分已完成!"

    End Sub

    点击运行按钮执行代码后的效果如下:(1)弹窗提示已完成拆分;(2)到路径下确认已完成拆分。

    展开全文
  • 1、如果你有现成的一个工作簿含有多个工作表的文件,想分成多个工作簿的话, 可以通过office2007或office2013等打开execl,然后通过execl里面的开发工具, 输入以下运行代码,执行就行(拆分工作簿在你设置的路径...

    前提:电脑上装有office2007或office2013等,WPS不行。

    1、如果你有现成的一个工作簿含有多个工作表的文件,想分成多个工作簿的话,
    可以通过office2007或office2013等打开execl,然后通过execl里面的开发工具,
    输入以下运行代码,执行就行(拆分的工作簿在你设置的路径下):

    Sub cfb()
    Dim m As Integer
    Dim sht, sht1 As Worksheet
    '按照需要将分出来的表分成多个工作簿
    n = InputBox(“请输入excel的路径”)
    For Each sht1 In Sheets
    sht1.Copy
    ActiveWorkbook.SaveAs Filename:=n & “” & sht1.Name & “.xlsx”
    ActiveWorkbook.Close
    Next
    End Sub

    2、如果你的工作簿里只有一个工作表,但是需要根据工作表中的某个字段拆分成多个工作簿,并且以该字段值命名工作簿的话,输入以下运行代码,执行就行(拆分的工作簿在你设置的路径下):

    Sub cfb()
    Dim i, j, k, l, m As Integer
    Dim sht, sht1 As Worksheet
    m = InputBox(“想按照第几列分表!”)
    '分表前先删除多余表(将需要的工作表放最前方就行)
    Application.DisplayAlerts = False
    If Sheets.Count > 1 Then
    For i = Sheets.Count To 2 Step -1
    Sheets(i).Delete
    Next
    End If
    '通过字段名进行建表,注意需要建表的字段不能违反表名规则
    j = Sheet1.Range(“a65536”).End(xlUp).Row
    For i = 2 To j
    k = 0
    For Each sht In Sheets
    If sht.Name = Sheet1.Cells(i, m) Then
    k = 1
    End If
    Next
    If k = 0 Then
    Sheets.Add after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Sheet1.Cells(i, m)
    End If
    Next
    '通过已知到的表名进行数据筛选赋值拷贝数据
    For l = 2 To Sheets.Count
    Sheet1.Range(“a1:iv65536”).AutoFilter Field:=m, Criteria1:=Sheets(l).Name
    Sheet1.Range(“a1:iv65536”).Copy Sheets(l).Range(“a1”)
    Next
    Sheet1.Range(“a1:iv65536”).AutoFilter
    '按照需要将分出来的表分成多个工作簿
    m = InputBox(“是否需要分成多个工作簿:1.是,2.否”)
    If m = 1 Then
    n = InputBox(“请输入excel的路径”)
    For Each sht1 In Sheets
    sht1.Copy
    ActiveWorkbook.SaveAs Filename:=n & “” & sht1.Name & “.xlsx”
    ActiveWorkbook.Close
    Next
    End If
    End Sub

    3、如果你有现成的一个工作簿含有多个工作表的文件,想分成多个工作簿,并且有隐藏工作表时,弹出输入框,选择是否执行或显示当前隐藏的工作表。输入以下运行代码,执行就行(拆分的工作簿在当前目录的"拆分"文件夹中):

    Sub cfb()
    Application.ScreenUpdating = False
    Dim xpath, isNext As String
    Dim sht As Worksheet
    xpath = Application.ActiveWorkbook.Path & “\拆分”
    '如果文件夹不存在,则新建文件夹
    If Len(Dir(xpath, vbDirectory)) = 0 Then MkDir xpath
    For Each sht In Worksheets
    If sht.Visible = False Then
    'MsgBox “有隐藏工作表” & sht.Name
    '隐藏工作表是否拆分
    isNext = InputBox(“1:跳过不处理” & Chr(10) & “2:处理” & Chr(10) & “空:默认不处理”, “【” & sht.Name & “】为隐藏工作表,请选择执行方式”)
    If isNext = “2” Then
    sht.Visible = True '取消工作表的隐藏
    sht.Copy
    ActiveWorkbook.SaveAs Filename:=xpath & “” & sht.Name & “.xlsx”
    ActiveWorkbook.Close
    sht.Visible = False '恢复工作表的隐藏
    End If
    ElseIf sht.Visible = True Then
    sht.Copy
    ActiveWorkbook.SaveAs Filename:=xpath & “” & sht.Name & “.xlsx”
    ActiveWorkbook.Close
    End If
    Next
    'MsgBox “工作簿拆分完成”
    Application.ScreenUpdating = True '恢复屏幕更新
    End Sub

    以上就是大致的拆分情况。

    展开全文
  • 按条件将一个工作表拆分为多个工作簿 用Python的xlwings模块按条件将一个工作表拆分为多个工作簿 import xlwings as xw ''' 按条件将一个工作表拆分为多个工作簿 ''' # 给出来源工作簿文件路径及工作簿名称 file_...

    按条件将一个工作表拆分为多个工作簿

    用Python的xlwings模块按条件将一个工作表拆分为多个工作簿

    import xlwings as xw
    '''
    按条件将一个工作表拆分为多个工作簿
    '''
    # 给出来源工作簿的文件路径及工作簿名称
    file_path = r'E:\pythonExample\01\产品统计表.xlsx'
    sheet_name = '统计表'  # 给出要拆分的工作表的名称
    app = xw.App(visible=True, add_book=False)
    workbook = app.books.open(file_path)
    # 获取要拆分的工作表
    worksheet = workbook.sheets[sheet_name]
    value = worksheet.range('A2').expand('table').value  # 读取要拆分的工作表中的所有数据
    
    # 创建一个空字典用于按产品名称分类存放数据
    data = dict()
    for i in range(len(value)):
        # 获取当前行的产品名称,作为数据的分类依据
        product_name = value[i][1]
        if product_name not in data:
            # 如果不存在,则创建一个与当前行的产品名称对应的空列表,用于存放当前行的数据
            data[product_name] = []
        # 将当前行的数据追加到当前行的产品名称对应的列表中
        data[product_name].append(value[i])
    print(data)
    # 按产品名称遍历分类后的数据
    for key,value in data.items():
        new_workbook = app.books.add()  # 新建目标工作簿
        # 在目标工作簿中新增工作表,并命名为当前的产品名称
        new_worksheet = new_workbook.sheets.add(key)
        # 将要拆分的工作表的列标题复制到新建的工作表中
        new_worksheet['A1'].value = worksheet['A1:F1'].value
        #将当前产品名称下的数据复制写入到新建的工作表中
        new_worksheet['A2'].value = value
        # 保存目标工作簿,文件名称为当前产品名称
        new_workbook.save('E:\\pythonExample\\01\\拆分后表\\{}.xlsx'.format(key))
    app.quit()
    
    
    
    展开全文
  • 本文介绍在Java代码环境中如何将Excel工作簿按工作表拆分为多个Excel文档,即:把Excel工作簿中的每一个工作表单独保存为一个Excel工作簿文件。 思路及方法:通过将源文档中的每个工作表通过复制的方式,保存到新的...
  • file_path = 'd:\\python_file\\产品统计表.xlsx' # 给出来源工作簿文件路径 sheet_name = '统计表' # 给出要拆分的工作表的名称 app = xw.App(visible=False,add_book=False) # 启动Excel程序 workbook = app....
  • 'MsoFileDialogType 可以下 MsoFileDialogType 常量之一。 'msoFileDialogFilePicker 允许用户选择文件。 'msoFileDialogFolderPicker 允许用户选择一文件夹 'msoFileDialogOpen 允许用户打开文件 '...
  • VBA拆分一个excel文件为多个excel文件

    千次阅读 2018-12-20 13:12:59
    有时候时候需要将一个大的excel表格,拆分多个文件,这里通过VBA提供一种方法 步骤一 打开VB编辑器 步骤二 插入模块 步骤三 复制代码到模块中 步骤四 运行代码 Sub 保留表头拆分以表头命名新工作簿() Dim arr,...
  • 用Python按条件将一个工作拆分为多个工作表 用Python的xlwings模块按条件将一个工作拆分为多个工作表 import xlwings as xw import pandas as pd ''' 按条件将一个工作拆分为多个工作表 ''' file_path = r'E:\...
  • VBA拆分一个excel文件为多个excel文件 合并代码如下 Sub 多表多文件合并为多表一文件() Dim FileArray Dim X As Integer Application.ScreenUpdating = False FileArray = Application.GetOpenFilename...
  • 步骤: wps - 数据 - 拆分表格 - 把工作表按照内容拆分 目的: 比如列B是 许多重复的苹果种类,差分后每苹果种类会汇总在一sheet里面.也可以拆分为单个文件.
  • EXCEL拆分多个文件

    2020-09-30 18:17:24
    需要根据B列的姓名将每人的数据记录存储单独的工作簿文件。 2、按Alt+F11进入VBE界面。 3、选择【插入】-【模块】插入一模块。 4、双击模块名称,在右侧的空白处粘贴下列代码: Sub CFGZB() Dim ...
  • 将excel按照某一列拆分多个文件

    万次阅读 多人点赞 2018-01-23 16:53:38
    1.打开目标excel,按alt + f11键打开VBE窗口 ...Sub 保留表头拆分数据若干新工作簿()  Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%  c = Application.InputBox("请输入拆分列号", , 4, , , ,
  • 1.打开目标excel,按alt + f11键打开...Sub 保留表头拆分数据若干新工作簿() Dim arr, d As Object, k, t, i&amp;, lc%, rng As Range, c% c = Application.InputBox("请输入拆分列号", , 4, , ,...
  • Sub 保留表头拆分数据若干新工作簿()  Dim arr, d As Object, k, t, i&amp;, lc%, rng As Range, c%  c = Application.InputBox("请输入拆分列号", , 4, , , , , 1)  If c = 0 Then Exit Sub  ...
  • #将一个excel表根据某列字段拆分为多个工作表 import pandas as pd io="C:/.../_all.xlsx" #A表路径 data=pd.read_excel(io,0) rows=data.shape[0] #获取行数,shape[1]获取列数 target_col="Business Process" #...
  • 金浚EXCEL数据拆分能手是一款简单实用的EXCEL数据拆分工具,金浚EXCEL数据拆分能手功能强大,能够将Excel表格拆分成多个工作簿文件,有效提高了工作效率,有需要的朋友快...4、一个Excel文件中的多个sheet表拆分为多个
  • 每月都要给各店负责人发送报表,报表是数据系统导出来的,分为多个,分别:EXCEL1、EXCEL2、EXCEL3。 每个人负责的门店数量不同,比如:A负责人:1号门店;B负责人:2号门店;C负责人:1、2号门店。 也就是说,...
  • Excel工作簿拆分工具(Excel Sheets Separator)是一款专门用于它将Excel表格里面的工作簿分离出来的软件,软件支持将一个...Excel Sheets Separator可以将多个工作表的Excel文件划分几个新的Excel文件,每个文件包含原
  • 这里帮他们搞了个xlsm小工具,直接将一个工作簿中的多个sheet合并1个。 小工具界面 打开文件,里边有操作表sheet以及结果表sheet。操作表是选择文件,或者填写一些合并的一些参数。合并后的数据,显示在结果表...
  • • 如何操作Excel工作簿、工作表和单元格 • 工作表的Change事件 • 工作表中高亮显示行和列 • 文件保存提醒 • 关闭工作簿是恢复Excel默认设置 • 设置Excel工作簿打开时的界面 • VBA事件激活的顺序 • VBA事件的...
  • 功能: 将多个具有相同格式的工作簿中所有工作表合并一个工作簿的多工作表中,也可以将一个工作簿的所有工作表合并到一个工作表 特点: 1.多工作簿合并时,可以自由指定待合并工作簿的目录路径。 2.可以选择将多...
  • 功能: 将多个具有相同格式的工作簿中所有工作表合并一个工作簿的多工作表中,也可以将一个工作簿的所有工作表合并到一个工作表 特点: 1.多工作簿合并时,可以自由指定待合并工作簿的目录路径。 2.可以选择将多...
  • Python openpyxl 库

    2020-12-21 19:46:54
    文章目录openpyxl 库简介Excel 文件安装 openpyxl 模块创建工作簿处理数据访问多个单元格返回单元格的值保存数据到文件中加载文件补充插入时间使用公式合并/拆分单元格加载图像以上用法结果展示 openpyxl 库 简介 ...
  • 10.拆分工作表:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做拆分条件。 11.拆分工作表2:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做拆分条件。拆分后保留页尾的所有...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    02026将工作簿设定加载宏工作簿或解除加载宏 02027设定工作簿的文档属性信息 02028通过指定文件名打开工作簿 02029通过指定索引打开工作簿 02030通过对话框打开工作簿(之一) 02031通过对话框打开工作簿(之二) ...
  • Excel新增工具集

    2011-12-20 09:30:27
    4、一个工作簿中的各工作表分解独立的工作簿:将当前工作簿中若干个指定工作表拆分为独立的工作簿,独立的工作簿名称当前工作簿中工作表的名称。 如下是增加或减少工作表的行列内容的合并或拆分操作: 5、多个...
  • Excel高级工具箱

    2012-01-03 22:15:22
    拆分工作簿】【合并工作簿】【建立文件目录】【选区背景着色】【小写转大写】【大写转小写】 【批量新建或复制工作表】【批量加解密】【生成工资条】【删除工资条】【反向选择】 _______________________________...
  • 拆分工作簿】【合并工作簿】【建立文件目录】【选区背景着色】【小写转大写】【大写转小写】 【批量新建或复制工作表】【批量加解密】【生成工资条】【删除工资条】【反向选择】 _______________________________...

空空如也

空空如也

1 2 3 4
收藏数 68
精华内容 27
关键字:

拆分工作簿为多个文件