Question

vbs代码 在D盘中创建xls类型的文件（Excel表格），并另存为“当前时间.vbs" (类似12：0：20.vbs)

如题

Answer 1

手机写的，未经测试，辛苦你自己测试了。

正文如下:

dim fso,file
set fso=createobject("scripting.filesystemobject")
a=year(now)
b=month(now)
c=day(now)
d=hour(time)
e=minute(time)
f=second(time)
g=weekday(now)-1

strfile=a&"年"&b&"月"&c&"日星期"&g&d&"点"&e&"分"&f&"秒"
Set File = fso.CreateTextFile("D:\"&strfile&".xls",True)

追问

strfile一行出错（倒数第二行） ，这个不是关键。
主要是CreateTextFile 是不是只能创建txt文档啊？