ActiveWorkbook 属性返回当前活动的工作簿对象。你可以通过该对象的 Name 属性来获取当前工作簿的名称。 vba Sub GetWorkbookNameUsingActiveWorkbook() Dim workbookName As String workbookName = ActiveWorkbook.Name MsgBox "当前工作簿名称是:" & workbookName End Sub 方法二:使用 ThisWorkbook 属性 ThisWorkbook...
Sub GetSheetNames()Dim objConn As Object Dim objCat As Object Dim tbl As Object Dim iRow As Long Dim sWorkbook As String Dim sConnString As String Dim sTableName As String Dim cLength As Integer Dim iTestPos As Integer Dim iStartpos As Integer ‘在此输入工作簿名称及路径.s...
15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 SubGetSheetName() DimPathAsString DimFileAsString DimWBAsWorkbook DimshtAsWorksheet Dimarr()AsString Dimnarr()AsString Application.ScreenUpdating =False ...
为了应用Workbooks.Open方法打开一个文件，我们可以先取得这个文件的文件名，这时我们可以用GetOpenFilename方法，GetOpenFilename实际上并没有打开文件，只是取得一个文件的文件名。我们看下面的代码：Sub mynzG() 'GetOpenFilename方法 Dim MyFile As String MyFile = Application.GetOpenFilename()Workbooks.Open (...
Set OpenWorkbook = wb End Function 5.3 操作Excel工作表(Worksheet) 5.3.1 移动工作表 移动工作表是指将工作表移到工作簿中的其他位置。 在VBA中,可以使用WorkSheet.Move方法来移动工作表。 语法:表达式.Move(Before, After) 其中,在Move方法中,主要包含...
Sub FileBackUp() ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & _ "" & Format(Date, "mm-dd-yy") & " " & _ ThisWorkbook.name End Sub 这是最有用的宏之一,可以帮助您保存当前工作簿的备份文件。它将备份文件保存在保存当前文件的同一目录中,并且还将添加带有文件名的当前日期。 49. 一次关...
本文讲解Workbook对象返回链接信息的一些方法和属性,如图1和图2所示。 图1 图2 下面,通过示例来讲解这些属性和方法的具体应用。 示例1:获取当前工作簿的链接更新设置信息 下面的代码确定当前工作簿更新链接的设置并显示该信息。 Sub GetUpdateLinksInfo()
Var_Propertyname = Object.Propertyname 例如,若想获得工作簿的名称,可通过下面的VBA代码来实现。 01 Dim GetWorkbook 02 GetWorkbook = Application.Worksheets.Count 03 MsgBox "当前工作簿中有 " + Str(GetWorkbook) + " 个工作表", , "提示信息" ...
GetLastWorkbook=sName End Function 假设当前工作簿存放在指定要获取最新保存工作簿的文件夹中,可以使用下面的程序代码调用GetLastWorkbook过程: 代码语言:javascript 代码运行次数:0 运行 AI代码解释 Subtest()Dim wbName As String wbName=GetLastWorkbook(ActiveWorkbook.Path)Debug.Print wbName ...
我们主要利用Workbooks集合和Workbook对象的方法来操作文件。 1、打开Excel文件 我们可以用Workbooks.Open方法打开一个Excel工作簿。 Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, Cor...