EXCEL中如何获得工作表(sheet)的名称

1.  EXCEL中获得工作表(sheet)的名称:

RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename")))
=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1)))

2.  Excel 工作簿(文件)名 (WorkBook)

=RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename")))
=MID(CELL("filename",$A$1),FIND("[",CELL("filename",$A$1)),FIND("]",CELL("filename",$A$1))-FIND("[",CELL("filename",$A$1))+1)

3. 取工作表名及路径

=CELL("filename",$A$1

原文地址:https://www.cnblogs.com/m0488/p/12330589.html

时间: 2024-07-31 16:33:55

EXCEL中如何获得工作表(sheet)的名称的相关文章

C#合并选中EXCEL中的各个工作表

合并选中EXCEL中的各个工作表,以第一个选中的EXCEL文件里的工作表进行匹配,遍历后面的每个EXCEL文件,有相同的工作表就合并: private void button1_Click(object sender, EventArgs e) { string inifolder = System.AppDomain.CurrentDomain.BaseDirectory.ToString() + "EXCEL\\UpdateList";//设定默认文件夹 OpenFileDialo

NPOI_2.1.3_学习记录(2)-创建Excel的工作表(Sheet)

创建Sheet用到命名空间: using NPOI.SS.UserModel; 在上一篇写入之前插入如下代码: //创建(工作表)Sheet ISheet sheet1 = hssfWorkbook.CreateSheet("Murray工作表_1"); ISheet sheet2 = hssfWorkbook.CreateSheet("Murray工作表_2"); ISheet sheet3 = hssfWorkbook.CreateSheet("Mur

C# 获得Excel工作簿Sheet页面(工作表)集合的名称

#region 获取Excel工作薄中Sheet页(工作表)名集合 /// <summary> /// 获取Excel工作薄中Sheet页(工作表)名集合 /// </summary> /// <param name="excelFile">Excel文件名称及路径,EG:C:\Users\JK\Desktop\导入測试.xls</param> /// <returns>Sheet页名称集合</returns> p

如何把一个excel工作薄中N个工作表复制到另一个工作薄中

一般遇到标题这样的情况,许多人可能会一个一个的复制粘贴,其实完全不必那么麻烦. 你可以按以下步骤来操作: 第一步:打开所有要操作的excel工作薄 第二部:按住Shift键,选择所有要复制的工作表,在选择的工作表上单击右键 第三步:在弹出的菜单中,选择移动或复制(M)...选项. 第四步:在新弹出的窗口中选择转移到的目标工作薄,以及放置的位置.点击确定,转移成功.

excel中如何合并多个sheet到一个表?

转自老外的帖子,试过了管用:https://www.extendoffice.com/documents/excel/1184-excel-merge-multiple-worksheets-into-one.html excel中打开宏编辑器,粘贴如下宏代码: Sub Combine() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "Combined" S

excel批量取消隐藏工作表

按下"Alt+F11"键,在打开的"Microsoft Bisual Basic"窗口中,选择"插入——模块".,复制下面的代码,按F5键运行,就完成了批量取消隐藏工作表. Sub 批量取消隐藏工作表() Dim i As Integer For i = 1 To Worksheets.Count Worksheets(i).Visible = True Next End Sub 批量取消隐藏工作表代码二: Sub 批量取消隐藏工作表() For

excel 利用正则表达式匹配工作表中的数据

sheet1中A列放需要匹配的数据 sheet2中A列放正则表达式,可以是多个,但至少一个 匹配到了则在sheet1中C列对应行显示相关标记内容,比如本案例中显示1111 Sub Test() atr = Worksheets("Sheet1").Range("a65536").End(xlUp).Row btr = Worksheets("Sheet2").Range("a65536").End(xlUp).Row a =

excel表格中关于 撤销工作表保护密码

利用宏处理,代码如下: Sub PasswordBreaker() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 6

Excel使用VLOOKUP合并工作表

表1:Name 表2:Score 在Name表 C2单元格,输入公式:=IFERROR(VLOOKUP(A2,Score!A:B,2,0),"") 回车,得到对应的Score Ctrl+C复制,点击C列,回车 回车Enter