将文件名复制粘贴至B列

hmy16888

请教一下

文件夹：D:\信息报备表，里面有20多个文件，分别是：绿翠学校信息报备表、张三学校信息报备表、李四学校信息报备表、王五学校信息报备表等等。
我想：读取文件名的前4个字，例如：绿翠学校、张三学校等，将这四个字分别粘贴至各文件的B列，从B4开始粘贴。请问可以吗？

一江春水1688

参考代码如下：
function 文件名写入B列(){
    let path ="D:/信息报备表";
    let res = [];
    const n = 4;//取前n个字符
    FileSystem.readdirSync(path).forEach(file => {
        !FileSystem.stat(`${path}/${file}`).isDirectory() && res.push([`${file.slice(0,n)}`])
    })
    Range('B2').Resize(res.length, res[0].length).Value2 = res;
}

lizhipei78

这个不难吧，遍历一次，读取文件名，取文件前四位，然后填写到文件中

hmy16888

lizhipei78 发表于 2024-12-3 19:58
这个不难吧，遍历一次，读取文件名，取文件前四位，然后填写到文件中

大佬，能写出来带带路吗

zjdh

文件名前四位怎么个贴法，详细说说。

zjdh

Sub TQ()
    Dim myFile$, myPath$, T%
    myPath = "D:\信息报备表\"
    myFile = Dir(myPath)
    Do While myFile <> ""
        If myFile <> "" Then
            ThisWorkbook.Sheets(1).Cells(4 + T, "B") = Left(myFile, 4)
            T = T + 1
        End If
        myFile = Dir     '
    Loop
End Sub

hmy16888

一江春水1688 发表于 2024-12-3 19:46
参考代码如下：
function 文件名写入B列(){
    let path ="D:/信息报备表";

FileSystem.readdirSync(path).forEach(file =>
刚刚运行提示这里出错，不知什么原因

hmy16888

zjdh 发表于 2024-12-3 20:36
文件名前四位怎么个贴法，详细说说。

D:\信息报备表，里面有20个文件，每个文件都有300-1000条记录。每个文件的A列是序号，B列是城市名称，C列之后就是产品的相关信息了。每个文件内容都从第6行开始。（B列城市名称都是没填东西的）
例如：文件夹里面有3个文件，广州仓库XXX.xlsx、佛山仓库XXX.xlsx、东莞仓库XXX.xlsx。我想自动读取每个文件的前4个字，将广州仓库，佛山仓库，东莞仓库分别填写进去各表格里的B列，从B6开始，只要C列不为空，B列都填写这4个字。谢谢！
以前我用VBA是可以做到的，现在换了国产系统，WPS一定要用JSA，我就蒙了，哈

hmy16888

zjdh 发表于 2024-12-3 20:55
Sub TQ()
    Dim myFile$, myPath$, T%
    myPath = "D:\信息报备表\"

VBA不行，国产系统用不了，谢谢！哈

一江春水1688

hmy16888 发表于 2024-12-3 20:57
FileSystem.readdirSync(path).forEach(file =>
刚刚运行提示这里出错，不知什么原因

操作系统是什么？win10/win11还是其它？
wps的版本号是什么？