使用替代或替换更改日期格式

Question

我正在从一个Excel文件中读取数据，然后将数据写入另一个Excel文件中。我的问题是，源具有日期格式dd.mm.yyyy，而目的地必须具有格式dd-mm-yyyy。所以我搜索了SO，找到了这个答案，用一个字符串替换一个字符，建议我使用substitute。所以我尝试了这段代码：For r = 1 To 10     myOutputSheet.Cells(6+r, 1).Value  = myInputSheet.Cells(r, 1).Value 'Date    myOutputSheet.Cells(6+r, 1).Value  = substitute(myOutputSheet.Cells(6+r, 1), ".", "-")Next它给出了错误：Microsoft VBScript runtime error: Type mismatch: 'substitute'如何正确更改.成-？更新资料我也尝试过这个：For r = 1 To 10     myOutputSheet.Cells(6+r, 1).Value  = myInputSheet.Cells(r, 1).Value 'Date    replace(myOutputSheet.Cells(6+r, 1), 2, 1, "-")    replace(myOutputSheet.Cells(6+r, 1), 4, 1, "-")Next但这给出了错误：Microsoft VBScript compilation error: Cannot use parentheses when calling a Sub因此，我尝试：For r = 1 To 10     myOutputSheet.Cells(6+r, 1).Value  = myInputSheet.Cells(r, 1).Value 'Date    replace myOutputSheet.Cells(6+r, 1), 2, 1, "-"    replace myOutputSheet.Cells(6+r, 1), 4, 1, "-"Next但这给出了错误：Microsoft VBScript runtime error: Type mismatch: '[string: "-"]'

Answer 1

在按照@Ralph聪明的解释完成date-number-string-value-value2问题后，请记住1）如果要使用SubstituteExcel函数，则必须键入WorksheetFunction.Substitute(...)2）ReplaceVBA函数返回一个字符串，以便像使用它一样myOutputSheet.Cells(6 + r, 1).Value = Replace(myInputSheet.Cells(r, 1), ".", "-")