|
最近刚接触JS 刚好写了一个
- //函数:GetDirName 选择单个文件夹:
- function GetDirName(FirstDirName= "",Title= "北极狐工作室: 请选择文件夹"){
- //函数: GetDirName 选择单个文件夹:
- //功能:获得已经选择文件夹全路径,没选择的,返回:空白
- //参数:Title 可选,提示信息,默认是:北极狐工作室
- //参数:FirstDirName 可选,开始文件夹,默认是:本表所在文件夹
- //方法: PathY =GetDirName(ThisWorkbook.Path,"请选择文件夹")
- //作者:北极狐工作室 QQ:14885553
-
- //为了解决WPS 不出现对话框 需要加一对: Application.ScreenUpdating
- let BLApp = Application.ScreenUpdating
- Application.ScreenUpdating = false
-
- if(FirstDirName.length == 0){FirstDirName = ThisWorkbook.Path}
- let Filedlg =Application.FileDialog(msoFileDialogFolderPicker)
- Filedlg.InitialFileName = FirstDirName //设置默认文件夹
- if(Title.length == 0){ //设置提示信息
- Filedlg.Title = "北极狐工作室: 请选择文件夹" //自定义浏览对话框的标题栏名称,默认:“浏览”
- } else {
- Filedlg.Title = Title
- }
- //打开,选择文件夹
- if(Filedlg.Show()==-1){ //返回 -1(如果您按 OK)和 0(如果您按 Cancel)
- return Filedlg.SelectedItems(1)
- } else {
- return ""
- }
- Application.ScreenUpdating = BLApp
- }
复制代码 |
|