vba怎么获取当前文件夹路径获取常用的路径并按照选择的路径打开指定的文件夹

导读SubgetPath()Range("A1")="路径名称"，接下来我们就来聊聊关于vba怎么获取当前文件夹路径?以下内容大家不妨参考一二希望能帮到您!vb....

Sub getPath()Range("A1") = "路径名称"，接下来我们就来聊聊关于vba怎么获取当前文件夹路径?以下内容大家不妨参考一二希望能帮到您!

vba怎么获取当前文件夹路径

1 获取常用的路径

Sub getPath()

Range("A1") = "路径名称"

Range("B1") = "具体路径"

Range("A2") = "SystemDrive"

Range("B2") = Environ("SystemDrive")

Range("A3") = "TEMP"

Range("B3") = Environ("TEMP")

Range("A4") = "windir"

Range("B4") = Environ("windir")

Range("A5") = "SystemRoot"

Range("B5") = Environ("SystemRoot")

Range("A6") = "ProgramFiles"

Range("B6") = Environ("ProgramFiles")

Range("A7") = "Application.path"

Range("B7") = Application.Path

Range("A8") = "Application.StartupPath"

Range("B8") = Application.StartupPath

Range("A9") = "Application.TemplatesPath"

Range("B9") = Application.TemplatesPath

Range("A10") = "Application.UserLibraryPath"

Range("B10") = Application.UserLibraryPath

Range("A11") = "Application.DefaultFilePath"

Range("B11") = Application.DefaultFilePath

路径变量具体路径SystemDriveC:TEMPC:\Users\WWUHNW~1\AppData\Local\TempwindirC:\WindowsSystemRootC:\WindowsProgramFilesC:\Program FilesApplication.pathC:\Program Files\Microsoft Office\Office12Application.StartupPathC:\Users\username\AppData\Roaming\Microsoft\Excel\XLSTARTApplication.TemplatesPathC:\Users\username\AppData\Roaming\Microsoft\Templates\Application.UserLibraryPathC:\Users\username\AppData\Roaming\Microsoft\AddIns\Application.DefaultFilePathC:\Users\username\Documents2 按照选择的路径打开指定的文件夹

选中地址所在单元格，运行下述代码即可打开指定的文件夹。

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal sParam As Long, ByVal lParam As Long) As Long

Private Const WM_CLOSE As Long = &H10

以上代码声明API函数和常量

Public Sub OpenDirectory()

Dim path1 As String

path1 = ActiveCell

ShellExecute 0, "", "", "", path1, 1

End Sub

Public Sub CloseDirectory()

Dim hWnd As Long

hWnd = FindWindows(vbNullString, "C:\Program Files\Microsoft Office\Office12")

PostMessage hWnd, WM_CLOSE, 0, 0

End Sub