精华内容
下载资源
问答
  • VBA获取当前工作表的表名

    千次阅读 2020-03-08 19:49:29
    Excel VBA代码怎么样获取或修改当前工作表的表名 获取: Sub get_sheetname() sheetname = ActiveWindow.ActiveSheet.Name Debug.Print sheetname(即时窗口打印,使用Ctrl + G能调出即时窗口,MsgBox消息盒子) End Sub ...

    Excel VBA代码怎么样获取或修改当前工作表的表名
    获取:
    Sub get_sheetname()
    sheetname = ActiveWindow.ActiveSheet.Name
    Debug.Print sheetname(即时窗口打印,使用Ctrl + G能调出即时窗口,MsgBox消息盒子)
    End Sub

    展开全文
  • 获取工作簿中所有名称和地址

    ####一、目的
    一个工作簿中有很多的表,想提取所有表的名称和地址,方便后期公式的使用
    ####二、方法
    1、 使用VBA代码

    Sub 提取所有工作表的名称()
    	For Each x In Sheets
    	    k = k + 1  'k可以不用定义,因为VBA中可以默认变量类型为variant
    	    'Cells(k, 1) = x.Name   '表的名称纵向排列
    	    Cells(1, k) = x.Name   '表的名称横向排列
    	    If k = ThisWorkbook.Sheets.Count - 1 Then Exit For 
    	     '可以控制显示的表的名称的数量
    	Next
    End Sub
    
    

    2、excel公式
    a. 在A1单元格输入=CELL("filename")获得路径和表名;
    b1.在A2单元格输入=MID(A1,FIND("]",A1)+1,99)摘出表名
      b2.或者用“数据”—“分列”–“]”分出表名

    3、定义名称(如定义名称为“你好”)
    a. 定义名称“你好”=index(get.workbook(1),row(A1)&T(NOW())
    b. 在A1单元格输入=IFERROR(HYPERLINK(你好&"!A1",MID(你好,FIND("]",你好)+1,99)),"")
    有表的名称,并且有链接;

    4、定义名称2(如定义名称为“不好”)
    a. 定义名称“不好=get.workbook(1)
    b1. 在A1单元格输入=transpose(不好)必须选中多个单元格然后按ctrl+shift+enter三键进行数组运算;
    b2. 在A1单元格输入=INDEX(不好,ROW(A1)&T(NOW()))
    c. 用“数据”—“分列”–“]”分出表名

    Application.ActiveWorkbook.Path 只返回路径
    Application.ActiveWorkbook.FullName 返回路径及工作簿文件名
    Application.ActiveWorkbook.Name 返回工作簿文件名

    展开全文
  • excel自动获取当前工作簿下所有工作表名称并提取该表最后一行数据
  • 工作中,我们有时会需要将多个工作表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

    展开全文
  • vba 获取所有的sheet名称

    千次阅读 2021-05-18 19:45:50
    Sub Maco1() For i = 1 To Sheets.Count Cells(i, 1) = Sheets(i).Name Next End Sub
    Sub Maco1()
    
    For i = 1 To Sheets.Count
    
    Cells(i, 1) = Sheets(i).Name
    
    Next
    
    End Sub

     

     

     

     

    有的excel禁用宏:

    展开全文
  • VBA单元格、工作表工作簿

    千次阅读 2019-04-30 23:08:35
    详解VBA单元格、工作表工作簿各种表示、方法,注意事项。
  • 列出目录下所有工作簿工作表名,方便多个工作表之间的切换
  • 利用VBA,自动生成工作簿工作表清单,清单生成在sheet1.range("B3")单元格。
  • 统计excel数据表数量 Sub sheetcount() ...MsgBox "工作表数量" & num End Sub 统计excel数据表数量并将数据表名目放在当前代码所在的表单中 Sub a() For Each sh In Sheets k = k + 1 Cells(k, 1...
  • VBA - Excel数据汇总-工作表工作簿名称列在右边
  • 用公式提取一个工作簿中的所有工作表名称
  • Workbooks是所有工作簿对象组成的集合,而Wrokbook对象是Workbooks集合的一个成员。 1.引用集合中的工作簿 利用工作簿名引用工作...通过代码获得指定工作簿名称、保存的路径等文件信息,示例代码如下。 Sub WbMsg...
  • '批量取工作表名称 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 ...
  • 先讲工作簿工作表的相关操作。 一、工作簿工作表的相关操作 1、保存工作簿 Sub SaveWorkBooks() Dim book As Workbook For Each book In Workbooks 'path等于空说明是新文件,就不保存 If book.path <...
  • VBA获取当前工作表的用户名

    千次阅读 2017-08-10 17:46:00
    如何使用VBA获取当前工作表的用户名呢?请看如下代码:Sub 获取当前工作表的用户名() MsgBox "当前工作表的用户名为:" &amp; Application.UserName End Sub点击运行程序后,效果如下:点击下载附件....
  • 您在问题中显示的代码因以下原因而失败:Assets = Array("pipe_mat_tables", "pipe_diam_tables", "pipe_length_tables")Assets是一种工作表,它是一种Object,在为对象赋值时必须使用Set:Set Assets = Array("pipe...
  • 一般的操作方法都是打开两个工作簿,然后选中需要移动的工作表,右键单击以后选择“移动或复制”。接下来在新的窗口里面进行设置就可以了。这种方法适合在移动数量较少的工作表的时候使用。如果有很多的工作簿,都...
  • vba工作表重命名Renaming of worksheets can be done manually, but it will look like a massive task if there are a lot of worksheets to be renamed and when we need to rename it based on some conditions ...
  • VBA-打开指定工作簿

    千次阅读 2020-02-26 12:37:05
    打开指定工作簿 打来看指定工作需要已知其文件路径,并且用opne方法打开,其格式为:expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, ...
  • 如图所示,在同一个目录下有多个工作表名称相同的工资汇总月报。现希望通过VBA建立该多个月份的月报总表,将多个工作簿中的“工资汇总”工作表导入当前工作簿,并以月份命名。该如何实现呢? ...
  • Sub tt() commit_path = Range("F18") Filename = Right(commit_path, Len(commit_path) - InStrRev(commit_path, "\")) MsgBox "222" & Filename ...strPath = "C:\folder\folder\folder\file.txt" ...
  • 如图所示,如何利用VBA将该工作簿中的各个工作表分别保存至单独的工作簿中,并将工作簿名称工作表标签命名? 部门 市场部 员工编号 姓名 0215 林革壮 0233 李卫卿 0247 申玲 ...
  • 1、筛选指定列获取数据 For Each Rng In Sheets("目录").Range("b1:B23") Debug.Print Rng.Value If Rng.Value = "个人" Then n = n + 1 Sheets("备注").Cells(n, "g").Resize(1, 5) = Rng.Offset(0, -1)....
  • 在Excel的使用过程中,经常需要引用其他工作簿的数据...如果需要引用的数据不是太多,可以使用公式取得引用工作簿中的工作表数据,如下面的代码所示。 Sub CopyData_1() Dim Temp As String Temp = "'" & T...
  • 01、获取打开文件的工作路径和工作名 '====================================================================== '功能: 获取打开文件的工作路径和工作名 '函数名: selectExcelfile '参数1: ThisDirPath 需查找...
  • 转 用自定义函数获取工作表名称

    千次阅读 2018-05-05 20:16:07
    (一)有时需要在工作表中引用同一工作簿中其他工作表名称,当工作表数量较多时,逐一手工输入有些繁琐,这时可以添加一个自定义函数来快速获取工作表名称,方法如下: 按Alt+F11,打开VBA编辑器,单击菜单“插入→...
  • 使用vba操作工作表,实现报表汇总

    千次阅读 2020-07-07 10:53:49
    假设工作簿中按顺序新建3张表叫1月和2月和3 月。如何切换到第2张表? Sheet2.select //sheet2是的默认名称。重命名只是给sheet2起一个别名 Sheets(2).select //sheets(2)指工作簿的第2张表 Sheets(“2月”)....
  • 大家好,我们今日讲解"VBA信息获取与处理"教程中第十七个专题"文件及文件夹信息的获取及操作"的第三节"利用VBA获取文件的信息和属性",这个专题是非常实用的知识点,希望大家能掌握利用。教程会提供配套的程序文件。...
  • VBA-合并多个工作簿

    万次阅读 多人点赞 2019-06-14 15:54:28
    1.首先我们理清思路,我们将所有要合并到一起的Excel工作簿放到一个文件夹里,该文件夹里面有一个启用宏的工作表,启动该工作表的宏,就可以将该文件夹里面的所有Excel文件的内容合并到一张表里面,后面可以将合并...
  • wb = load_workbook(filename) active_ws = wb.active Instead of wb.active, how can I say something like Sheets('Data') (this is how the VBA syntax would look like...)? 解决方案 You should use wb...

空空如也

空空如也

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

vba获取工作簿名称