www.bcmx.net > vBA 获得当前文件路径

vBA 获得当前文件路径

Sub s() Dim pth$ pth = ThisWorkbook.Path MsgBox "本文件的路径为:" & pthEnd Sub

发给你参考一下,网上搜的 Sub getpath() Range("A2:D1000").ClearContents On Error Resume Next Dim shell As Variant Set shell = CreateObject("Shell.Application") Set filePath = shell.BrowseForFolder(&O0, "选择文件夹", &H1 + &H10, "...

可以通过ActivePresentation对象的Path属性获取路径地址 1)新建一个PPT,插入一个命令按钮,保存为PPTM格式文件。右键单击按钮,查看代码: 2)编辑按钮事件代码如下: Private Sub CommandButton1_Click() MsgBox ActivePresentation.PathEnd S...

打开文件如下: Workbooks.Open ("C:\对账单\对帐单.xlsx") 这里你可以把“C:\对账单\”换成你的绝对路径, 你可以用:a = ThisWorkbook.Path a = ThisWorkbook.Path Workbooks.Open ("" & a & "&" \ "&对帐单.xlsx") 来获取你当前表的绝对路径,...

不知道你说的是啥,如果是vba获取当前工作表路径就应该是File.getPath("filename"), 如果你还要在excel的sheet中的某个cell中显示当前的工作表路径的话按照楼上的就行了,不多说

S = "D:\新建文件夹\123.xls" m = InStrRev(S, "\") + 1 MsgBox Mid(S, m) MsgBox Mid(S, m, InStr(S, ".") - m)

Set objFD = Application.FileDialog(msoFileDialogFolderPicker) With objFD If .Show = -1 Then ' 如果单击了确定按钮,则将选取的路径保存在变量中 sPath = .SelectedItems(1) End If End With

1.插入一个模块或在已有的模块最上面一行定义一个全局变量 比如: Public iFileName As String 2.在这个工作薄的其他模块中都可以引用这个变量 比如:(先执行一次test1,再执行test2) Sub test1() '打开一个选择文件的对话框 iFileName = Applicati...

sub t()dim strstr=ThisWorkbook.PathMsgBox Right(str, Len(str) - InStrRev(str, "\"))end sub用路径整理下就是文件夹了啊~

返回应用程序完整路径 Application.Path 返回当前工作薄的路径 ThisWorkbook.Path 返回当前默认文件路径: Application.DefaultFilePath Application.ActiveWorkbook.Path 只返回路径 Application.ActiveWorkbook.FullName 返回路径及工作簿文件...

网站地图

All rights reserved Powered by www.bcmx.net

copyright ©right 2010-2021。
www.bcmx.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com