Question

我无法将日期转换为可以将Excel文档另存为的格式。即取出'/'和/或用“ - ”替换它们

Dim strDate
Dim intLen
Dim test
Dim testArray

strDate = Date

test = CStr(strDate)

testArray = Split(test)

intLen = Len(test)

For i =  0 To intLen
    if testArray(i) = "/" Then
        testArray(i) = "-"
    End If
Next

'Replace test, "/", "_"

For i =  0 To 3
    Wscript.Echo testArray(i)
Next


objExcel.ActiveWorkBook.SaveAs "C:\Inventory Script" & intLen & ".xls"
objExcel.Close
objExcel.Quit

我试图替换，因为它似乎是明显的答案，但它没有做任何事情。起初我虽然是因为它不是字符串类型，但它仍然无效。

然后我尝试通过将字符串作为数组迭代并手动替换而不做任何操作来做旧学校。

当前没有生成任何错误，Wscript.Echo testArray（i）正在输出2015年11月17日，这对我来说很奇怪，它根本就是输出。

Answer 1

Dim strDate
Dim intLen
Dim test
Dim testArray

strDate = Date

test = CStr(strDate)

'''''' test= join(Split(test,"/"),"_")
'''''' test= join(Split(test,"-"),"_")
test= replace(test,"/","_")
test= replace(test,"-","_")

Wscript.echo test

转换文件名

1 个答案: