我的代码提示用户选择文件。我想为文件位置的文件夹名称设置一个变量,但是文件位于子文件夹中。
我有这段代码可以打开文件。
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部分并将其存储为变量
答案 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