跟我学JavaScript in WPS

scnc001

小白进来支持一下，先把VBA搞懂

lyfegf

一个帖子学习了好多

renrong89

重新搞个二维码呗？

lyfegf

催更，等待楼主啥时候更新啊

ctp_119

            以下方法由群友X提供，在此表示感谢！！！

            /*
        使用FileSearch 遍历目录下的指定格式的文件
        常用功能如下
                如何使用：let FS = Application.FileSearch
                此时 FS 即为一个搜索对象,以下都用 FS 变量
                怎么搜索，通过以下设置
                1、在哪个目录搜索：FS.LookIn = myPath
                        myPath 可以是一个从 FileDialog选择得到的文件夹名字或者自定义为："D:\\DATA"
                        表示在这个目录下搜索
                2、是否遍历子目录：FS.SearchSubFolders
                        假如myPath下还有一个文件A，如果想连同子目录内的文件也得到只需要设置为true
                        FS.SearchSubFolders = true
                3、搜索什么样的文件：FS.FileName = "*.xls"
                        可以使用通配符，如上表示搜索所有.xls结尾的文件
                4、最后更改时间限制：FS.LastModified = msoLastModifiedAnyTime
                        如上表示所有时间
                        它代表自从上次修改和保存指定的文件的时间量(在文件夹可以看到最后的修改时间)
                        常用枚举值：
                                msoLastModifiedAnyTime                -所有时间                                 7
                                msoLastModifiedLastMonth        -最后修改于最近一个月                5
                                msoLastModifiedLastWeek                -最后修改于最近一周                3
                                msoLastModifiedThisMonth        -最后修改于本月                        6
                                msoLastModifiedThisWeek                -最后修改于本周                        4
                                msoLastModifiedToday                -最后修改于今天                        2
                                msoLastModifiedYesterday        -最后修改于昨天                        1
                5、文件类型：FS.FileType
                        可以简单的设定某个文件类型
                        常用枚举值：太多了。。。几乎囊括了常用的所有文件格式
                        下面是几个常用的
                        msoFileTypeDatabases         -数据库文件 (*.mdb)
                        msoFileTypeOfficeFiles        -文件的任何以下扩展名: *.doc、 .xls，.ppt、 *.pps、 *.obd、 *.mdb、 .mpd，.dot、 .xlt，.pot、 *.obt、 *.htm，或 *.html
                        msoFileTypeWebPages                -HTML 文件 (*.htm 或 *.html)
                        msoFileTypePowerPointPresentations
                                                                        -PowerPoint 演示文稿文件 (.ppt)，PowerPoint 模板文件 (.pot)，或 PowerPoint 幻灯片放映文件 (*.pps)
                       
                        FS.FileType.Add() 方法可往内部传入参数（上述枚举值来添加文件类型)
                       
                6、排序 FS.Execute(msoSortBy, msoSortOrder, Boolean)
                        msoSortBy:按照什么来排序
                                枚举值：
                                        msoSortByFileName         -按文件名
                                        msoSortByFileType        -按文件类型
                                        msoSortByLastModified        -最后修改时间
                                        msoSortBySize                -文件大小
                        msoSortOrder:升序或者降序
                                        msoSortOrderAscending        升序
                                        msoSortOrderDescending        降序
                7、最后一步：FS.FoundFiles
                        将返回符合条件的一个搜索集合对象。
                        通过遍历可以取出所有符合条件的文件名
                        例如:let files = FS.FoundFiles
                        通过遍历1 到 files.Count 取出使用 files(i)
        */
function test(){
        var mypath=ThisWorkbook.Path;
                        (obj=>{
                        obj.LookIn = mypath;
                        obj.SearchSubFolders = true;
                        obj.FileName = "*.et";
                        obj.LastModified=msoLastModifiedAnyTime
                        obj.Execute(msoSortByFileName,msoSortOrderAscending);
                        files = obj.FoundFiles;
                })(Application.FileSearch)
                  for(let i = 1; i<=files.Count;i++){
                           Debug.Print(files(i))
                  }
}

dongdonggood

ctp_119 发表于 2022-6-14 20:47
以下方法由群友X提供，在此表示感谢！！！

            /*

这个例子很有用。
以前一点没接触过jsa 这些例子很有用。
function test(){
        var mypath=ThisWorkbook.Path;
        var sht=ActiveSheet;            //把当前工作表对象赋值给变量sht
        sht.Range("C2:E1000").Value2= "";
        //Cells(2, 4).Value2= "1文件名";
    Cells(2, 3).Value2 = "绝对路径";
        const obj=Application.FileSearch;
        (obj=>{
obj.LookIn = mypath;
obj . SearchSubFolders = false;
obj.FileName ="*.*";
obj. LastModified=msoLastModifiedAnyTime
obj . Execute(msoSortByFileName,msoSortOrderAscending);
files = obj.FoundFiles;
})(Application.FileSearch)

//Debug. Print(JSON. stringify(files))  
            
for(let i = 1; i<=files .Count;i++){
//Debug. Print(files(i))
sht.Range("c"+(sht.Range("c65536").End(xlUp).Row+1)).Value2= (files(i));
}
}

Chinful

优秀啊楼主

天道酬勤y

wps的宏功能是不是要开启会员 收费啊

ctp_119

天道酬勤y 发表于 2022-7-23 19:00
wps的宏功能是不是要开启会员 收费啊

免费的！！！

LIUZHU

ctp_119 发表于 2022-6-14 20:47
以下方法由群友X提供，在此表示感谢！！！

            /*

请教下，循环遍历files对象，除了for (let i...)这种模式外，还有没有其他的循环模式呢？