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

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

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

thisworkbook.Name '当前运行的工作簿名 工作簿1 thisworkbook.ActiveSheet.Name '当前运行工作簿的活动的工作表名 Sheet1

针对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)...

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

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

只找出一个工作簿还是全部找出来?

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

下面的语句,可以在当前工作表的最右边添加一个表,并命名为“小苹果”: Sheets.Add(after:=Sheets(Sheets.Count)).Name="小苹果"

Sub s() With Sheets("sheet1") i = 1 Do While .Cells(i, 1) "" Sheets("sheet2").Copy after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = .Cells(i, 1) i = i + 1 Loop End WithEnd Sub

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