【VBA】获取⽂件名、⽂件夹名获取⽂件名
Function msoFile(Optional filename)
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Clear
.InitialFileName = filename
.Filters.Add "TXT Files", "*.csv;*.txt"
徐令宜.Filters.Add "All Files", "*.*"
.ButtonName = "OK"
.Show
FileN = .SelectedItems(1)
B站舞蹈区卖肉精选
If FileN = "" Then: Exit Function
msoFile = FileN
End With
End Function
获取⽂件夹名
Function msoFolder(Optional filename)
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Filters.Clear
.InitialFileName = filename
.ButtonName = "OK"
陈松伶
.
世界童话故事Show
皮到爆炸的句子FileN = .SelectedItems(1)义乌小商品
If FileN = "" Then: Exit Function
msoFolder = FileN
End With
End Function