根据用户选择将变量设置为子文件夹名称

时间:2018-12-04 21:39:04

标签: excel vba

我的代码提示用户选择文件。我想为文件位置的文件夹名称设置一个变量,但是文件位于子文件夹中。

我有这段代码可以打开文件。

fileAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.csv), _ 
*.csv", Title:="Select a file")
If fileAndPath = False Then Exit Sub

这是文件路径C:\ Store Location \ Employees \ Contact Information \ Phone Numbers \ 11373

我想提取11373部分并将其存储为变量

1 个答案:

答案 0 :(得分:0)

好的,因此您想为getOpenFileName设置默认文件夹。 在getOpenFileName之前加上ChDir "D:\Test"。如果驱动器不是C :,则在ChDir之前添加ChDrive“ DriveLetter:”

Sub test()
ChDrive "D:"
Application.DefaultFilePath = "D:\Test"

fileAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.csv),*.csv", Title:="Select a file")
If fileAndPath = False Then
Exit Sub
End If
folderPath = Left(fileAndPath, InStrRev(fileAndPath, "\") - 1)
MsgBox (Mid(folderPath, InStrRev(folderPath, "\") + 1))
End Sub