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

vBA 获得当前文件路径

发给你参考一下,网上搜的 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, "...

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

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

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

新建一个模块,将代码复制到到这个模块中,就会将当前工作表保存到thisworkbook目录下,并以txt格式来保存。如下图执行的效果,执行后频幕左下角可以看到保存后的文档: Sub baocun() ActiveSheet.SaveAs Filename:= _ ThisWorkbook.Path & "\" ...

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

给你个思路: Public Sub ds() Dim She As New Shell Dim Fo As Shell32.Folder Set Fo = She.BrowseForFolder(0, "", 0) MsgBox Fo.Items.Item.Path End Sub 记得在引用里面将这个打勾,否则会报错

应该是FullName获得路径,Name是获得文件名 MsgBox CurrentDb.FullName

代码如下: Sub s() On Error Resume Next Dim pth$, fn$, wb As Workbook pth = "d:\test\" '在这里输入要打开的工作簿的完整路径 fn = "a.xlsx" '在这里输入要打开的工作簿的文件名,包括扩展名 Set wb = Application.Workbooks.Open(pth & fn...

文件 = Dir(ThisWorkbook.Path & "\*.*") Do While 文件 "" If InStr(文件, ".xlsm") > 0 Or InStr(文件, ".txt") > 0 Then i = i + 1 Cells(i , "A").Value = ThisWorkbook.Path & "\" & 文件 Else 文件 = Dir Loop

网站地图

All rights reserved Powered by www.bcmx.net

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