fkjj.net
当前位置:首页 >> VBA ExCEl如何自动获取当前工作表的名字? >>

VBA ExCEl如何自动获取当前工作表的名字?

dim fname as string fname=thisworkbook.name 即可得到当前工作簿的名字。 获得当前工作表的名字。 fname=activesheet.name

1. 一步搞定之代码 Sub 提取所有工作表名称() for x=1 to sheets.count cells(x,1)=sheets(x).name next x End Sub 如图,按照顺序来就可以啦。 方法/步骤 1.分步阅读 首先我们打开一个工作样表作为例子。 2. 工作表标签名即是工作表的名称,在...

Sub ExcelVersion() verarr = Array("8.0", "9.0", "10.0", "11.0", "12.0", "14.0") vername = Array("97", "2000", "2002", "2003", "2007", "2010") For i = 1 To 6 If verarr(i - 1) = Application.Version Then MsgBox "当前Excel版本为:E...

针对ThisWorkbook对象的BeforeClose事件添加如下代码 Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim fileStr As String fileStr = "$111.xls$333.xls$“ ‘头尾都用$分隔,循环判断文件名 For I = Workbooks.count To 1 Step -1 If In...

获取指定的工作簿中工作表名称而非本工作簿中表的名称,下面的代码可以使用: Sub 提取name() Dim wk As Workbook Dim sh As Worksheet Dim rw As Byte Set wk = Workbooks.Open("D:\函数习题\第1章 函数基础.xls") For Each sh In Workbooks(2)...

[名称].Address 当然,你还可以有address的参数。

Sub addas() Sheets.Add after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now()) End Sub

可以利用VBA sub m for each sh in sheets k=k+1 cells(k,1)=sh.name next end sub 这样,所有工作表名就放到A列里了

sub test() worksheets("Sheet1").[a1]=thisworkbook.name end sub

大致看了一下, 首先你代码里面有几点疑问 新建工作表后,前一个工作表并不会隐藏 如果想隐藏 应该动态制定工作表 在不会隐藏的前提下 新建的工作表 都是在vba里面以 sheet+数字来排列的 隐藏后工作表都是在地一张 可以用sheets(1)来表示 如果...

网站首页 | 网站地图
All rights reserved Powered by www.fkjj.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com