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列里了

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

iRows=activesheet.usedrange.rows.count iColumns=activesheet.usedrange.Columns.count '如果表格前面的几行或几列可能是空的,需要获得最下面的行数和最右面的列数: with activesheet.usedrange iEndRow=.rows.count+.row-1 iEndColumn=.Col...

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

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

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