WPS表格Excel创建按钮，点击生成文件夹并打开

双击进入按钮的设计模式，输入以下代码，自己修改代码的存放路径保存即可。点击按钮就可以生成文件夹并打开生成的文件夹了。

Private Sub CommandButton1_Click()
    Dim fso, fld, MZ, wjm
    Dim s As Date
    s = Now
    shijian = Format(s, "yyyymmddhhmmss")
    m = "C:\Users\HP08\Desktop\" & shijian
    
    '新建文件夹代码，使用时间作为文件名
    'MsgBox m
    Set fso = CreateObject("scripting.filesystemobject")
    Set fld = fso.createfolder(m)
    
    '打开文件夹代码
    Set MZ = CreateObject("wscript.shell")
    MZ.Run m
End Sub