Sub GetWorkbookPath() Dim workbookPath As String workbookPath = ThisWorkbook.FullName workbookPath = Left(workbookPath, InStrRev(workbookPath, "\")) MsgBox "当前工作簿的路径是: " & workbookPath End Sub 方法二:使用 ActiveWorkbook 对象 如果你想要获取当前活动工作簿(不一定是包含宏的工作簿)的...
二级菜单中,选择「模块」,完成插入新模块。 插入完成后,在工程列表对应工作簿内,在模块文件夹下,显示新插入的模块。新插入的模块的默认名称是,模块 x,本例中是模块1。在属性窗口,可以修改模块的名称。 step four 打开模块 双击上一步插入的模块1,在右侧代码窗口区域里,将打开模块1的代码编辑器。在右侧代码窗口...
引用对象的属性,获得工作簿的文件信息 Tips:获取当前工作簿的信息除了ThisWorkbook.Path和ThisWorkbook.FullName还可以使用FileSystemObject对象的GetParentFolderName方法 e.g: SubGetCurrentWorkbookPath()DimfilePathAsStringDimfolderPathAsString' 获取当前工作簿的完整路径filePath = ThisWorkbook.FullName' 使用 FileSystemObje...
上面的代码中利用GetOpenFilename方法打开一下选择文件的对话框,然后打开这个文件。今日内容回向:1) Workbooks集合和Worksheets集合的Add方法是什么意义?2) Workbooks集合和Worksheets集合的Count属性是什么意义?3) Path属性和FullName属性是什么意义?4) Close和Open方法是什么意义?5) GetOpenFilename方法的作用...
最后,可以使用Workbook对象的FullName属性来获取工作簿的文件路径。例如: 最后,可以使用Workbook对象的FullName属性来获取工作簿的文件路径。例如: 这将把工作簿的文件路径赋值给filePath变量。 通过以上步骤,就可以获取VBA打开的另一个工作簿的文件路径了。
(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...
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 =...
我们主要利用Workbooks集合和Workbook对象的方法来操作文件。 1、打开Excel文件 我们可以用Workbooks.Open方法打开一个Excel工作簿。 Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, Cor...
其中,语句ThisWorkbook.Path获取代码所在工作簿的路径。 运行效果如下图1所示。 图1 示例代码4:拆分工作簿 下面的代码将当前工作簿中的每个工作表都保存为一个工作簿,新工作簿保存在与原工作簿相同的文件夹中,其名称为工作表的名称。 Sub SplitWorkbook(...
MyFile = Application.GetOpenFilename()Workbooks.Open (MyFile)End Sub 代码截图:代码解读:上面的代码中利用GetOpenFilename方法打开一下选择文件的对话框,然后打开这个文件。今日内容回向:1)Workbooks集合和Worksheets集合的Add方法是什么意义?2)Workbooks集合和Worksheets集合的Count属性是什么意义?3) Path属性和...