myName = ActiveWorkbook.Names(FindName).Name If Err.Number = 0 Then NameExists = True End Function 或者: Function NameExists(TheName As String) As Boolean On Error Resume Next NameExists = Len(ThisWorkbook.Names(TheName).Name) <> 0 End Function [示例2]工作簿中的所有名称可见 Sub UnHideNam...
Function WorksheetIsExists(strName As String) As Boolean Dim str As String On Error GoTo ErrHandle '获取变量strName表示的工作表名称 '如果变量strName表示的名字的工作表存在,则将其名称赋给变量str '否则,导致错误.跳转至ErrHandle语句 str =Workshe...
Function ThisWBName() As String ThisWBName = ThisWorkbook.Name End Function 在工作表中使用该函数可以获取当前工作簿名称,如图6所示。 图6 示例3:获取当前工作簿所在文件路径和名称 下面是一个自定义函数: Function ThisWBFullName() AsString ThisWBFullName...
1、编写宏,打开VBA,双击ThisWorkbook对当前工作薄进行编写宏;双击Sheet1,对整个sheet编写宏; 或者创建模块,在模块里,编写、调试代码。 打开VBA的方法见第一讲,结合常用窗口进行编写、调试。 2、部分对象有提示,如Dim a As,敲击空格后有提示。 3、所有宏要运行,必须启动宏。(2007版启动宏,点击表格左上角 “exce...
dim fname as string fname=thisworkbook.name 即可得到当前工作簿的名字。获得当前工作表的名字。fname=activesheet.name 1
(17) ThisWorkbook.FullName ‘返回当前工作簿路径和名 (18) ActiveSheet.UsedRange.Rows.Count ‘当前工作表中已使用的行数 (19) Rows.Count ‘获取工作表的行数(注:考虑兼容性) (20) Sheets(Sheet1).Name= “Sum” ‘将Sheet1命名为Sum (21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) ‘添加一个新...
Sub GetActiveWorkbookName()Dim sheetName As String sheetName = Application.ActiveWorkbook.ActiveSheet.Name MsgBox "当前工作表名称为：" & sheetName End Sub 方法三：使用ThisWorkbook对象 ThisWorkbook对象是VBA中表示当前工作簿的对象，通过该对象的ActiveSheet属性可以获取当前活动的工作表对象，最后通过该对象的Name...
2 使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Option ExplicitSub ddt()ActiveWorkbook.Name '返回活动工作薄的名称ThisWorkbook.Name '返回当前工作簿名称ThisWorkbook.FullName '返回当前工作簿路径和名称End Sub 3 这里返回活动的工作薄名称我们是使用的活动工作...
"该加载项现在将关闭.",vbExclamation + vbOKOnly, GCSAPPNAME ThisWorkbook.Close False End If If MsgBox("你愿意安装'" & GCSAPPNAME & "' 作为加载项吗?",vbQuestion + vbYesNo, GCSAPPNAME) = vbYes Then If ActiveWorkbook Is Nothing Then AddEmptyBook ...