vba代码能生成VBS文件吗

sunny_8848

Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c htmer.bat",vbhide
请教，能否用代码生成含有上述代码的 vbs文件？

sunny_8848

有谁可以帮忙吗

№▁▃风筝﹋

vbs不就是文本文件

1. vbs =
   
2. "Set ws = CreateObject(""Wscript.Shell"")" & chr(10) & "ws.run ""cmd /c htmer.bat"",vbhide"
   
3. Open "D:\text.vbs" For Output As #1
   
4. Print #1, vbs
   
5. Close #1
   

复制代码

sunny_8848

谢谢帮助，代码没效果
我的本意如下：
    S = "D:\1\" '生成bat文件
    Open S & "1.bat" For Output As #1
    Print #1, "@echo off"
    Print #1, ":redel"

    Print #1, "del " & Chr(34) & S & "*.xls" & Chr(34)
    Print #1, "if exist " & Chr(34) & S & "*.xls" & Chr(34) & " goto redel"

    Print #1, "rd /s /q " & Chr(34) & S & Chr(34)

    Print #1, "del %0"

    Print #1,
    Close #1
   
    vbs = "Set ws = CreateObject(""Wscript.Shell"")" & Chr(10) & "ws.run ""cmd /c 1.bat"",vbhide" '生成VBS文件
    Open "D:\1\text.vbs" For Output As #1
    Print #1, vbs
    Close #1

    ChDrive "D:"
    ChDir "D:\1"
    Shell "cscript test.vbs" 'VBS运行bat完毕后删除文件所在文件夹

sunny_8848

有熟悉cmd命令的能网友指点一下吗

E_菜鸟

我也想学习一下怎么生成VBS文件