精华内容
下载资源
问答
  • 工作中,我们有时会需要将多个工作表Sheet的名称提取出来,制作成一个目录 如果一个一个去复制粘贴,效率肯定是很低的,如果Sheet数量很多,会严重影响我们的工作进度,那该如何处理呢?我们可以用VBA的方法快速处理...

    工作中,我们有时会需要将多个工作表Sheet的名称提取出来,制作成一个目录
    如果一个一个去复制粘贴,效率肯定是很低的,如果Sheet数量很多,会严重影响我们的工作进度,那该如何处理呢?

    我们可以用VBA的方法快速处理

    步骤:

    Step1: 首先调出【开发工具】选项卡,单击【文件】选项卡-【选项】-【自定义功能区】,在主选项卡中,把【开发工具】前面的“√”选上,然后确定即可

    在这里插入图片描述
    Step2:单击 【开发工具】选项卡,在“代码”选项组中选择“Visual Basic”,弹出【模块代码】编辑框,选择Microsoft Excel 对象,然后单击【插入】选项卡,选择【模块】,然后把写好的宏放在右边的编辑框里,然后把代码编辑框关掉

    在这里插入图片描述
    VBA代码如下:

    Sub 提取工作表名称()
    Dim i!
    Cells(1, 1).Value = “表名”
    For i = 1 To Sheets.Count
    Cells(i + 1, 1).Value = Sheets(i).Name
    Next i
    End Sub

    Step3:单击Excel中的【插入】选项卡,单击【形状】按钮,随便选择一个文本框,然后输入文字,单击文本框,鼠标右键,选择【指定宏】选项,选择刚才编辑的宏,然后确定即可,当我们单击“提取工作表的名称”按钮时,在A列就会看到每个表的名称都提取出来了

    在这里插入图片描述
    不会VBA也可以快速提取
    欢迎关注和转发
    在这里插入图片描述

    END

    展开全文
  • excel自动获取当前工作簿下所有工作表名称提取该表最后一行数据
  • 用公式提取一个工作簿中的所有工作表名称
  • '批量取工作表名称 Function gname(x As Integer) If x = 0 Then gname = ActiveSheet.Name ElseIf x > 0 And x <= Sheets.Count Then gname = Sheets(x).Name ElseIf x > Sheets.Count Then ...
    '批量取工作表名称
    Function gname(x As Integer)
    	If x = 0 Then
    		gname = ActiveSheet.Name
    	ElseIf x > 0 And x <= Sheets.Count Then
    		gname = Sheets(x).Name
    	ElseIf x > Sheets.Count Then
    		MsgBox "超出范围"
    	End If
    Application.Volatile
    End Function
    
    展开全文
  • 复制指定目录下excel工作簿中同名工作表,该代码将在相同目录下创建汇总工作簿,各工作簿中同名工作表将被分别复制到汇总工作簿的不同表中(汇总工作簿中各工作表以分工作簿名命名)。 所有要汇总的工作簿在同一个...

    学习日志

    复制指定目录下excel工作簿中同名工作表,该代码将在相同目录下创建汇总工作簿,各工作簿中同名工作表将被分别复制到汇总工作簿的不同表中(汇总工作簿中各工作表以分工作簿名命名)。
    所有要汇总的工作簿在同一个文件夹中,这里以后缀为.xlsx为例;

    ALL excelfiles

    Sub allexclefiles()
        Dim path As String, filename As String
        Dim w As Workbook, ws As Workbook
        
        path = "C:\12"
        filename = Dir(path & "\*.xlsx")
        'ws工作簿保存所有单位excel表格花名册
        
        '关闭提示
        Application.DisplayAlerts = False
        Set ws = Workbooks.Add
        
        Do While filename <> ""
            'w代表指定文件夹下每个找到的excel文件
            Set w = Workbooks.Open(path & "\" & filename)
                '选择工作表(此处假设sheet1),复制,并粘贴为汇总表的最后一张
                w.Sheets("sheet1").Copy after:=ws.Sheets(ws.Sheets.Count)
                 '重命名刚贴的表名为excel文件名
                ws.Worksheets(ws.Sheets.Count).name = Mid(filename, 1, Len(filename) - 5)
    
            '关闭工作簿
            w.Close
            '下一个
            filename = Dir
        Loop
    '程序运行结束,打开提示
        Application.DisplayAlerts = True
    '保存结果
    ws.SaveAs path & "\汇总.xlsx"
    End Sub
    
    展开全文
  • VBA-保存指定工作表为工作簿文件

    千次阅读 2020-02-26 16:53:39
    保存指定工作表为工作簿文件 1、指定的单一工作表 如果需要将工作簿中的工作表单独保存为一个工作簿文件,可以使用 Worksheet 对象的 Copy 方法,将指定的工作表复制到一个新建的工作簿。 Sub test() On Error GoTo...

    保存指定工作表为工作簿文件

    1、指定的单一工作表

    如果需要将工作簿中的工作表单独保存为一个工作簿文件,可以使用 Worksheet 对象的 Copy 方法,将指定的工作表复制到一个新建的工作簿。

    Sub test()
        On Error GoTo line
        ActiveSheet.Copy  '复制工作表为工作簿
        ActiveWorkbook.Close savechanges:=True, Filename:="d:\123.xlsx" '保存当前工作簿即可
        Exit Sub
    line:
        ActiveWorkbook.Close False
    End Sub
    

    2、所有工作表保存为工作簿

    '方法一:
    Sub test1()
        Application.ScreenUpdating = False '屏幕不更新
        Dim i As Integer
        Dim j As Integer
        Dim str As String
        j = Worksheets.Count
        For i = j To 1 Step -1
            Worksheets(i).Copy
        	str = ActiveWorkbook.Sheets(1).Name   '将工作簿名称改为工作表名称
            ActiveWorkbook.SaveAs Filename:="D:\data\" & str & ".xlsx"
            ActiveWorkbook.Close savechanges:=True
        Next
    	Application.ScreenUpdating = True
    End Sub
    
    '方法二:
    Sub test()
    Dim sht As Worksheet
    Application.ScreenUpdating = False
    For Each sht In Sheets
        sht.Copy
        ActiveWorkbook.SaveAs Filename:="d:\data\" & sht.Name & ".xlsx"
        ActiveWorkbook.Close
    Next
    Application.ScreenUpdating = True
    End Sub
    
    展开全文
  • 代码实现的是从一个工作簿中单独保存其中一个工作表,并以单元格数据命名新工作簿名称
  • excel中VBA提取文件夹名称的方法

    千次阅读 2016-08-09 15:15:54
    内容提要:文章介绍excel中使用VBA代码来提取文件夹名称的具体操作步骤。...  在网上看到有人用批处理... 比如需要将电脑E盘“论坛工作资料”文件夹下面的所有文件夹名称提取出来放在excel工作表的A列,可以使用下面的
  • 数据:N张工作簿,每张工作簿里又有M张工作表,每张工作表的同一位置Cells(2,16)有需要的数据,想讲这些数据汇总到一张新的表格。 新建一张“汇总.xlsm”,并打开,新建sub()过程; 依次打开工作簿; 源码如下: ...
  • 这是显示并导出 Office 2016 工具栏图标的 VBA 源码,详细内容见博客文章 https://blog.csdn.net/blackwoodcliff/article/details/89891405
  • 参考: VBA 合并同文件夹下多工作簿中同名工作表到 一工作簿一工作表 在原先代码的基础上修改,可以自由选择和输入要合并多工作簿的同文件夹和工作表名,并生成目录页。 效果展示: 1、选择工作表 2、输入指定相同...
  • 获取工作簿中所有名称和地址
  • excel vba宏 Excel VBA –更改工作表后运行宏 (Excel VBA – Macro Runs When Worksheet Changed) Are you ready for Spreadsheet Day on October 17th? Maybe you can add a Spreadsheet Day message to all your ...
  • 在上一篇文章我们介绍了利用VBA的方法快速提取多个工作表名称,那如果看不懂VBA代码呢?怎么办呢?有没有其它的方法呢?今天我们来学习如何用Excel 的公式来提取Excel工作表的名称? 具体方法如下: Step1:首先把...
  • 需求描述: 为了方便管理大量的简历文件,需要将简历文件列表导入Excel中,然后筛选符合...2. 遍历指定文件夹,将其中的文件名及其路径分别写入工作表中 代码如下: Sub extractFileList_Rival() 'Developed b...
  • '------ 取当前,或活跃的工作表名字名字方法 Debug.Print ThisWorkbook.Name Debug.Print ActiveWorkbook.Name '------ 取其他工作表名字名字方法 '这下面的算个特例 'workbooks("") 路径是相对路径,居然不是...
  • VBA在Excel中的应用用VBA将同一工作簿中不同工作表拆成独立文件问题描述1.在“开发工具”选项卡中选择”Visual Basic”2.插入模块运行结果可能存在的问题 用VBA将同一工作簿中不同工作表拆成独立文件 问题描述 有一...
  • VBA学习笔记本(二)——两个表格数据匹配_DEMO 将excel中两个工作表中,数据进行一键同步的通用方法
  • 在我们启动excel的时候,excel就自动创建了许多对象, 其中之一就是worksheets, 这个对像可以用来表示我们的工作表 中所有的表格 在工作中, 我们会经常遇到, 我们打开的一个excel文件,不止有一个表,而是很非常多个 ...
  • 一个在Excel中使用VBA将所有sheet中的数据和sheet信息汇总到总中的例子,使用VBA编写,在第一个sheet中的宏check,使用时需要打开excel的宏安全,执行时会在合计页填充所有其他sheet的sheet名称,链接,编号,合计...
  • VBA透视

    千次阅读 2019-05-11 23:34:29
    VBA透视代码示例,有需要的朋友,复制粘贴稍微修下基本就可以了。
  • 大家好,我们今日讲解“VBA信息获取与处理”教程中第九个专题“利用IE抓取网络数据”的第三节“利用IE,抓取解禁股票数据”,这个专题是非常有用的知识点,希望大家掌握。第四节 利用IE,抓取解禁股票数据大家好,这...
  • 今天项目上有个应用,获取指定Excel文件下的所有sheet的名称以及当前sheet中指定单元格的值,并把他们写到固定的sheet中去,看了下,文件比较多,而且每个文件sheet的个数比较多,也不一样,所以打算写个程序来帮...
  • 拆分
  • 行下列宏代码,可在A列中从A1开始引用所有该工作簿各工作表的命名: Sub 引用工作表命名() For i = 1 To Sheets.Count Cells(i, 1) = Sheets(i).Name Next End Sub 其中,更改代码“For i = 1 To ...
  • 写了一个VBA宏程序,用来自动将EXCEL一列转换为不同的工作表。例如: 姓名 性别 张三 男 李四 女 通过该程序可以自动分离出“男”工作表和“女”工作表。先上代码,注释写的很清楚。 '时间:2/6/2015 '版本:1.0 ...
  • 业务部门需要将各市公司收寄邮件按指定的条件筛选出来,然后合并到一张工作表中。源数据文件有16个,合并到一个工作表中,筛选条件可以自由设置。为此做了一个筛选合并工具。 1、指定一个文件名。如果这个文件存在...
  • 在过Excel 函数与公式的时候,看到一个可能以后在写vba时候能够使用的长公式。特此记录。 效果: 具体公式: =CELL("filename",$A$1) =MID(B2,FIND("]",B2,1)+1,100) =REPLACE(REPLACE(B2,1,FIND("[",B2,1),""),...
  • VBA语言获取其他工作表中的数据

    千次阅读 2018-07-31 10:54:16
    如下表,我们想按照工作表““OA线路衰耗””填写工作表“线路衰耗统计”: 要抽取的数据在另一个表格内,就要结束方法sheets(): Sub For_tongji() Dim str1 As String Dim str2 A...
  • Sub 工作表拆分2() '通过筛选方法完成需求,速度快,但当有合并单元格时就不能用。读者可以根据实际情况选用 Dim SplitCol As String, ColNum As Integer, HeadRows As Byte, arr, lastrow, i, ShtIndex, only As ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,314
精华内容 525
关键字:

vba提取工作表名称