大家中秋快乐，打开文件可只显示CSV,和XLSX两个格式么

q490525427

大家节日快乐，
  打开文件过滤器，可以只显示CSV和XLSX的格式文件么，
CSV和XLSX同时显示
现在是只能选择任意一个格式
不要所有格式都显示，（桌面文件太多，还有图片）

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.9.17   文件选择
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Application.ScreenUpdating = False
   
4.     With Application.FileDialog(msoFileDialogFilePicker)
   
5.         .Title = "请选择文件夹"
   
6.         .InitialFileName = ThisWorkbook.Path & ""
   
7.         .AllowMultiSelect = False
   
8.         .Filters.Clear
   
9.         .Filters.Add "Excel Files", "*.xlsx"
   
10.         .Filters.Add "CSV Files", "*.csv"
    
11.         If .Show Then Set fns = .SelectedItems Else Exit Sub
    
12.     End With
    
13. End Sub
    

复制代码

quqiyuan

ww87725244

在模块里面加3句
fd.Filters.Clear
fd.Filters.Add "CSV Files", "*.csv"
fd.Filters.Add "EXCEL Files", "*.xlsx"

ww87725244

如附件所示，不知是否符合题意

q490525427

ykcbf1100 发表于 2024-9-17 21:23
附件供参考。。。

谢谢，节日快乐

q490525427

quqiyuan 发表于 2024-9-17 21:23

谢谢，节日快乐，还是你懂我

q490525427

ww87725244 发表于 2024-9-17 21:28
如附件所示，不知是否符合题意

谢谢，节日快乐