ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 384|回复: 19

WPS宏获取文件夹名称怎么写

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-10-23 16:26 | 显示全部楼层 |阅读模式
WPS宏获取文件夹名称怎么写

TA的精华主题

TA的得分主题

发表于 2024-10-23 18:40 | 显示全部楼层
function g(){
        let fso =Application.FileDialog(msoFileDialogFolderPicker);
        fso.Title="选择文件夹路径";
        if(fso.Show()){
                console.log(`选择的文件夹地址是: ${fso.SelectedItems(1)}`);
        }else{
                console.log("没有选择任何文件夹")
        }
}  看下是不是这个效果

TA的精华主题

TA的得分主题

发表于 2024-10-23 18:41 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
function g(){         let fso =Application.FileDialog(msoFileDialogFolderPicker);         fso.Title="选择文件夹路径";         if(fso.Show()){                 console.log(`选择的文件夹地址是: ${fso.SelectedItems(1)}`);         }else{                 console.log("没有选择任何文件夹")         } }

TA的精华主题

TA的得分主题

发表于 2024-10-23 22:50 | 显示全部楼层
最近刚接触JS  刚好写了一个

  1. //函数:GetDirName    选择单个文件夹:
  2. function GetDirName(FirstDirName= "",Title= "北极狐工作室: 请选择文件夹"){
  3.         //函数: GetDirName    选择单个文件夹:
  4.         //功能:获得已经选择文件夹全路径,没选择的,返回:空白
  5.         //参数:Title         可选,提示信息,默认是:北极狐工作室
  6.         //参数:FirstDirName  可选,开始文件夹,默认是:本表所在文件夹
  7.         //方法: PathY =GetDirName(ThisWorkbook.Path,"请选择文件夹")
  8.         //作者:北极狐工作室 QQ:14885553
  9.        
  10.         //为了解决WPS 不出现对话框 需要加一对: Application.ScreenUpdating
  11.         let BLApp = Application.ScreenUpdating
  12.     Application.ScreenUpdating = false

  13.     if(FirstDirName.length == 0){FirstDirName = ThisWorkbook.Path}
  14.         let Filedlg =Application.FileDialog(msoFileDialogFolderPicker)
  15.         Filedlg.InitialFileName = FirstDirName    //设置默认文件夹
  16.         if(Title.length == 0){                    //设置提示信息
  17.             Filedlg.Title = "北极狐工作室: 请选择文件夹"   //自定义浏览对话框的标题栏名称,默认:“浏览”
  18.         } else {
  19.             Filedlg.Title = Title
  20.         }
  21.         //打开,选择文件夹
  22.         if(Filedlg.Show()==-1){  //返回 -1(如果您按 OK)和 0(如果您按 Cancel)
  23.             return Filedlg.SelectedItems(1)
  24.     } else {
  25.             return ""
  26.     }
  27.         Application.ScreenUpdating = BLApp
  28. }
复制代码

TA的精华主题

TA的得分主题

发表于 2024-10-24 13:11 | 显示全部楼层
opiona 发表于 2024-10-23 22:50
最近刚接触JS  刚好写了一个

代码风格很值得学习!感谢

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-10-25 09:28 | 显示全部楼层
everbest2015 发表于 2024-10-23 18:40
function g(){
        let fso =Application.FileDialog(msoFileDialogFolderPicker);
        fso.Title="选择文件夹 ...

感谢大佬的解答
不好意思,我的问题描述的不是很准确,我的需求是想获取某个文件夹下所有子文件夹的名称,谢谢!

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-10-25 09:29 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
opiona 发表于 2024-10-23 22:50
最近刚接触JS  刚好写了一个

感谢大佬的解答
不好意思,我的问题描述的不是很准确,我的需求是想获取某个文件夹下所有子文件夹的名称,谢谢!

TA的精华主题

TA的得分主题

发表于 2024-10-25 10:11 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-10-25 11:33 | 显示全部楼层

,厉害!大佬
这个困扰我好久了,谢谢!!
function test(){
        let fs = Application.FileDialog(msoFileDialogFolderPicker)
        fs.Show()
        let path = fs.SelectedItems(1)
        let arr = FileSystem.readdirSync(path)
        console.log(JSON.stringify(arr))       
}
测试成功!

TA的精华主题

TA的得分主题

发表于 2024-10-25 11:50 | 显示全部楼层
讲话稿很简单 发表于 2024-10-25 11:33
,厉害!大佬
这个困扰我好久了,谢谢!!
function test(){

我有个疑问  要是你的子文件夹里面还有子文件夹,这种很多层文件夹嵌套的情况下 这个代码还适用吗
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-4 01:01 , Processed in 0.050980 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表