精华内容
下载资源
问答
  • sheet工作表批量另存为独立的工作簿,并命名成sheet表的名称 用法:打开excel文档,按ALT+F11调出VB编辑器,点插入模块,粘贴代码,按F5运行即可。 Sub saveworkbook() 'sheet工作表批量另存为独立的工作簿,并...

    将sheet工作表批量另存为独立的工作簿,并命名成sheet表的名称
    用法:打开excel文档,按ALT+F11调出VB编辑器,点插入模块,粘贴代码,按F5运行即可。
    Sub saveworkbook()        '将sheet工作表批量另存为独立的工作簿,并命名成sheet表的名称
    Dim sht As Worksheet     '定义字符变量
    Application.ScreenUpdating = False     '关闭屏幕更新
    ipath = ThisWorkbook.Path & '\'          '指定建立新的工作簿保存到的路径
    For Each sht In Sheets       '遍历所有的sheet工作表
       sht.Copy     ' 拷贝sheet工作表到新的工作簿,即将工作表另存为新的文件。
       ActiveWorkbook.SaveAs ipath & "\" & sht.Name & ".xlsx"  '保存工作簿,并命名成工作表的名称
       ActiveWorkbook.Close         '关闭工作表
       Next '执行遍历循环体
    Application.ScreenUpdating = True   '开启屏幕更新
    End Sub
    ------------以下为实测成功代码-----------
    Sub saveworkbook()
    Dim sht As Worksheet
    Application.ScreenUpdating = False
    ipath = ThisWorkbook.Path & "\"
    For Each sht In Sheets
       sht.Copy 
       ActiveWorkbook.SaveAs ipath & sht.Name
       ActiveWorkbook.Close
       Next
    Application.ScreenUpdating = True
    End Sub

    展开全文
  • 代码实现的是从一个工作簿中单独保存其中一个工作表,并以单元格数据命名新工作簿名称
  • 创建新的 Excel 文件(或如果文件存在则打开它)并按照 (sheetnames) 中列出的方式命名工作表工作簿另存为 (filename)。 xlsheets(工作表名,文件名) xlsheets(sheetnames) sheetnames:工作表名称列表...
  • SUB 批量增加命名工作表() For L = 1 To 100 Sheets.Add(, Sheets("发票表头")).Name = "发票表" & i NEXT END SUB SUB 批量删除工作表() Application.DisplayAlerts = 0 ‘’‘关闭提示 On Error Resume ...
    SUB 批量增加命名工作表()
     For L = 1 To 100
    Sheets.Add(, Sheets("发票表头")).Name = "发票表" & i
    NEXT
    
    END SUB
    
    SUB 批量删除工作表()
    Application.DisplayAlerts = 0  ‘’‘关闭提示
    On Error Resume Next
    X = Worksheets.Count
    For i = 1 To X 
    
    Worksheets("发票表" & i).Delete
    Next
    Application.DisplayAlerts = 1
    MsgBox ("完成" & X - 3 & "个工作表删除!")
    end SUB
    
    展开全文
  • 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

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

    展开全文
  • 根据sheet1所列名称,添加并重命名新的工作表。 二、实现 1.按照从前往后的顺序 Sub cre_ren_sheets() Dim num% /* 定义为integer*/ num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A")) /* num...
    一、需求

    根据sheet1所列名称,添加并重命名新的工作表。
    在这里插入图片描述

    二、实现
    1.按照从前往后的顺序
    Sub cre_ren_sheets()
    	Dim num% 
    	/* 定义为integer*/
    	num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
    	/* num是非空单元格数*/
    	
    	For i = 1 To num
    	    Sheets.Add after:=ActiveSheet
    	    Sheets(i + 1).Select
    	    Sheets(i + 1).Name = Sheet1.Cells(i, 1)
    	Next i
    End Sub
    

    在这里插入图片描述

    2.按照从后往前的顺序
    Sub cre_ren_sheets()
    	Dim num%
    	num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
    	
    	For i = 1 To num
    	    Sheets.Add
    	    Sheets(1).Name = Sheet1.Cells(i, 1)
    	    /* Sheet1=Sheets(i+1), sheet1随着新工作表的建立被往后挤,序列数随之增大*/
    	Next i
    End Sub
    
    

    在这里插入图片描述

    三、注意事项
    1.代码中的索引号和新建sheet默认命名不一定一致,代码按照顺序,工作簿只是名称。

    在这里插入图片描述

    2.工作表的命名要求

    在这里插入图片描述

    展开全文
  • 现在,要'9月1日'这个sheet按照日期顺序,复制出14个相同内容的sheet,最后一张sheet的名称是'9月15日'。下来展示python程序。 import openpyxl as op file='日签到.xlsx' wb=op.load_workbook(file) ws=wb['9...
  • 数据库表命名规范

    万次阅读 2017-12-18 08:13:38
    数据库表命名规范:(1)表名前应该加上前缀,表的前缀一个用系统或模块的英文名称缩写,前缀全部大写或首字母大写,表名中包含的单词首字母大写。(2)数据库表名应该有意义,并且易于理解,最好使用可以表达功能的英文...
  • Excel用代码将工作表保存为工作簿

    千次阅读 2017-12-21 13:47:48
    今天,做会计的朋友问我一个问题,怎么讲Excel的工作表拆分成单独的文件,并给我发了一个链接。 ... ...说这个在他那执行不了,他还以为是...随便试了下,发现能执行,让他截图,发现是他的工作表都是 用日期命名的,比
  • 数据仓库主题四--(表命名规范)

    千次阅读 2020-08-07 11:29:39
    二、工作关于数仓命名规范实践 todo 总结 数据库和字段命名规范: 1.表名应加上前缀,前缀为所在的库名,统一小写 (例如 :dw_ ods_ dim_等) 2.表名和字段名具有意义且易于理解。尽量使用英文简写,其次是...
  • VBA单元格、工作表、工作簿

    千次阅读 2019-04-30 23:08:35
    详解VBA单元格、工作表、工作簿各种表示、方法,注意事项。
  • 为Excel工作表单元格命名的两种方法

    千次阅读 2011-01-06 12:53:00
    为单元格起一个名字是一个非常好的习惯,这不仅可以帮助用户记忆,而且可以提高工作效率。用户可以有两种方法为单元格命名。选中要命名的单元格,选择“插 入”菜单中的“名称”,单击“定义”命令,在弹出的...
  • Sub exportpic() '当前活动工作表中的图片保存到以工作表名称命名的文件夹内 Dim sn, path As String, j% sn = ActiveSheet.name path = "C:\Lx\all\" For j = 1 To ActiveSheet.Shapes.Count ActiveSheet.Shapes...
  • 复制指定目录下excel工作簿中同名工作表,该代码在相同目录下创建汇总工作簿,各工作簿中同名工作表将被分别复制到汇总工作簿的不同表中(汇总工作簿中各工作表以分工作簿名命名)。 所有要汇总的工作簿在同一个...
  • 利用python可以快速一个工作表拆分成多个工作表。 具体如何操作呢? 举个栗子: 需要拆分的工作簿为"chaifengzb",里面有一个“总表”,字段包含...3、新生成的工作表按分公司进行命名。 4、保存 import pandas as
  • 工作流Activiti5命名规范

    千次阅读 2015-02-08 00:00:26
    Activiti的都以ACT_开头。 第二部分是表示的用途的两个字母标识。 用途也和服务的API对应。  ACT_RE_*: 'RE'表示repository。 这个前缀的包含了流程定义和流程静态资源 (图片,规则,等等)。  ACT_RU_*:...
  • 已知有BS、HR等多个部门,分别存放在独立的以部门命名工作表中,现需要多个部门的工作表合并为包含所有部门的一张工作表。实现代码如下:Sub MergeToOneSheet() '取表头 Range("A1:D1") = Sheets(2)....
  • 一开始想到的方法是:第一步:先总表拆分成多个子工作表,第二步:新建多个工作簿,把子工作表中的内容逐个复制到对应的工作簿。第一步想到如何操作了,但是第二步效率太慢,太耗时间了。 百度了一圈后,发现有2种...
  • 1.数据库设计14规则 1. 原始单据与实体之间的关系   可以是一对一、一对多、多对多的关系。...这里的实体可以理解为基本。明确这种对应关系后,对我们设计录入界面大有好处。   〖例1〗:一份员工履
  • 数据库与字段命名的规范总结

    千次阅读 2019-05-09 15:45:12
    前面要求表名的长度要控制在30个字符以内,在此前提下,为了尽可能不影响命名前缀应该越短越好。我们建议前缀控制在两个以内。具体前缀添加规则建议如下,括号内的单个大写字母表示要添加的前缀。 这...
  • 今天在java中使用jxl导出数据到excel工作表的时候,无论是在线直接打开还是保存到本地再打开,都会提示下面的错误信息:   “Excel在‘excel.xls'中发现不可读取的内容。...重新命名无效的工作表名称。 ....
  • Public Sub 更改名称() For i = 2 To Worksheets.Count Worksheets(i).Name = Worksheets("目录").Cells(i, 2).Value Next End Sub
  • 将工作表1导出来成为一个单独的工作簿,命名1.xlsx 将工作表2导出来成为一个单独的工作簿,命名2.xlsx 将工作表3导出来成为一个单独的工作簿,命名3.xlsx 将工作表4导出来成为一个单独的工作簿,命名4.xlsx 将工作表5导...
  • 需求① 在一个工作簿(workbook)中根据已知的工作表名称创建多个工作表并分别命名,可以创建同时当然需要研究增删改工作表。思路:研究vba的基础语法,知道了workbooks(工作簿集)、workbook(工作簿)、worksheet...
  • 最近需要筛选Excel的数据 看到网上有大神做出来的Demo 但是在mac上...Sub 如何一个Excel工作表的数据拆分成多个工作表() Dim Arr, Rng As Range, Sht As Worksheet, Dic As Object Dim k, t, Str As String, i A
  • 工作中,我们有时会需要多个工作表Sheet的名称提取出来,制作成一个目录 如果一个一个去复制粘贴,效率肯定是很低的,如果Sheet数量很多,会严重影响我们的工作进度,那该如何处理呢?我们可以用VBA的方法快速处理...
  • Excel多个工作簿合成为一个工作表

    万次阅读 2020-08-21 14:02:20
    Excel多个工作簿合成为一个工作表 目录 前言 第一步:多张工作簿合并成一个“汇总工作簿”,操作如下: 第二步:把多张sheet表合并成一张sheet工作表,操作如下: 总结 前言 在工作中,我们会遇到这种情况,...
  • VBA根据A列数据批量建立工作表的代码如下: Sub NewSht() 'ExcelHome VBA编程实践与学习 Dim Sht As Worksheet, Rng As Range Dim Sn, t$ Set Rng = Range("a2:a" & Cells(Rows.Co...
  • 在上一篇文章我们介绍了利用VBA的方法快速提取多个工作表名称,那如果看不懂VBA代码呢?怎么办呢?有没有其它的方法呢?今天我们来学习如何用Excel 的公式来提取Excel工作表的名称? 具体方法如下: Step1:首先把...
  • Excel表格无法重命名工作表

    千次阅读 2020-07-01 19:15:34
    Excel表格无法重命名工作表 原因分析: Excel表受保护,无法修改 详细步骤: step1:审阅>保护工作簿 step2:输入密码 step3:即可正常修改工作表 step4:安全需要,别忘了再重新设置密码 ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 319,958
精华内容 127,983
关键字:

怎么将工作表命名