Sub GetWorkbookPath() Dim workbookPath As String workbookPath = ThisWorkbook.FullName workbookPath = Left(workbookPath, InStrRev(workbookPath, "\")) MsgBox "当前工作簿的路径是: " & workbookPath End Sub 方法二:使用 ActiveWorkbook 对象 如果你想要获取当前活动工作簿(不一定是包含宏的工作簿)的...
workbookPath = fso.GetAbsolutePathName(ThisWorkbook.FullName) ' 显示工作簿路径 MsgBox "工作簿路径:" & workbookPath ' 释放Filesystemobject对象 Set fso = Nothing End Sub 上述代码中,首先创建了一个Filesystemobject对象,然后使用GetAbsolutePathName方法获取当前工作簿的绝对路径,并将路径存储在workbookPath变量中。最...
最后,可以使用Workbook对象的FullName属性来获取工作簿的文件路径。例如: 最后,可以使用Workbook对象的FullName属性来获取工作簿的文件路径。例如: 这将把工作簿的文件路径赋值给filePath变量。 通过以上步骤,就可以获取VBA打开的另一个工作簿的文件路径了。
Excel VBA学习 Workbook 对象 Workbook 对象 工作簿对象是**工作簿** 集合的成员。 Workbooks 集合包含 Microsoft Excel 中当前打开的所有 Workbook 对象。 Application对象的**ThisWorkbook** 属性返回运行 Visual Basic 代码的工作簿。 在大多数情况下,这与活动工作簿相同。 但是,如果 Visual Basic 代码是加载项的一...
(ThisWorkbook.Path) 'Get the folder object i = 1 For Each objFile In objFolder.Files ' List File Names - in Column 4 Range(Cells(i + 1, 4), Cells(i + 1, 4)).Select 'Create hyperlinks ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ objFile.Path, _ TextToDisplay:=obj...
Tips:获取当前工作簿的信息除了ThisWorkbook.Path和ThisWorkbook.FullName还可以使用FileSystemObject对象的GetParentFolderName方法 e.g: SubGetCurrentWorkbookPath()DimfilePathAsStringDimfolderPathAsString' 获取当前工作簿的完整路径filePath = ThisWorkbook.FullName' 使用 FileSystemObject 获取文件夹路径folderPath = CreateO...
MyFile = Application.GetOpenFilename()Workbooks.Open (MyFile)End Sub 代码截图:代码解读:上面的代码中利用GetOpenFilename方法打开一下选择文件的对话框,然后打开这个文件。今日内容回向:1) Workbooks集合和Worksheets集合的Add方法是什么意义?2) Workbooks集合和Worksheets集合的Count属性是什么意义?3) Path...
Sub Open 法()Dimarr Dim n&, i&, j&, s$Dim wb AsWorkbook, sht As Worksheet, wbk As WorkbookDimmyPath$, myFile$Application.ScreenUpdating = False 禁刷新 Application.Calculation = xlManual禁计算Set wbk = ThisWorkbook myPath = ThisWorkbook.Path & myFile = Dir(myPath & *.xls) 3、n =...
Set wb = Workbooks.Open(strWorkbookFilePath) End If Set OpenWorkbook = wb End Function 5.3 操作Excel工作表(Worksheet) 5.3.1 移动工作表 移动工作表是指将工作表移到工作簿中的其他位置。 在VBA中,可以使用WorkSheet.Move方法来移动工作表。 语法:表达式.Move(Before,...
其中,语句ThisWorkbook.Path获取代码所在工作簿的路径。 运行效果如下图1所示。 图1 示例代码4:拆分工作簿 下面的代码将当前工作簿中的每个工作表都保存为一个工作簿,新工作簿保存在与原工作簿相同的文件夹中,其名称为工作表的名称。 Sub SplitWorkbook(...