FileDialog(msoFileDialogFolderPicker)

ning84

自己出题自己做题




FileDialog(msoFileDialogFolderPicker)选择新建文件夹，才能得到2024-020-10 的文件名。

1. Private Sub FolderSheetName()
   
2.     Dim Fso As FileSystemObject, oFolder As Folder
   
3.         Set Fso = New FileSystemObject
   
4.     Dim Str As String
   
5.     Dim fDia As FileDialog
   
6.         Set fDia = Application.FileDialog(msoFileDialogFolderPicker)
   
7.         '(msoFileDialogFolderPicker)
   
8.         fDia.Show
   
9.     Dim Sht As Worksheet
   
10.     Dim Rng As Range
    
11.         Set Rng = Selection
    
12.         Set Sht = Rng.Parent
    
13.         
    
14.         Debug.Print fDia.InitialFileName
    
15.         
    
16.         Set oFolder = Fso.GetFolder(fDia.InitialFileName)
    
17.         Debug.Print oFolder.Name
    
18.         Stop
    
19.         Sht.Name = oFolder.Name
    
20. 
    
21. End Sub
    

复制代码

qline302

就这几行代码，想pick哪个文件都行呢。好像没那么复杂哦。

ykcbf1100

楼主最好上传同步实例，这样会比较直观。

ning84

qline302 发表于 2024-2-14 13:21
就这几行代码，想pick哪个文件都行呢。好像没那么复杂哦。

谢谢帮助

boyayes

这个要判断的，点了叉号或取消时，就需要退出程序了，否则报错。