VBA使用字符串创建日期

Question

我试图用日期类型做简单的任务，但我得到的不是我想要的。我想用分隔符拆分一些单元格值，并将字符串值返回到DateValue方法。

我的代码

Dim str2() As String
str2() = Split(Cells(ActiveCell.Row, 7).Value, ".")
Dim date1 As Date
date1 = DateValue(str(0) & "-" + str(1) & "-" & str(2))

我想做的是获取一些特定的日期格式。单元格中的日期格式是这样的：26.05.14（天.月.年），我想有这样的格式2014-05-26（年-月-日）。仅此而已。DateValue方法返回一个日期2000-01-02。我不知道如何查看str2（）数组，看看Split方法之后有什么值。我该怎么做？

VBA似乎与VB.NET完全不同……我对VBA没有经验。感谢

Answer 1

您将拆分的返回存储到"str2"中，但随后在DateValue输入中使用变量"str"，该输入未在代码中定义（因此为空）。通过将"Option Explicit"放在项目顶部来避免这种错误，在VBA中，它不像VB.NET那样是强制性的，但实际上是可选的。这是工作代码：

Dim str2() As String
str2 = Split(Range("A2").Value, ".")
Dim date1 As Date
date1 = DateValue(str2(0) & "-" & str2(1) & "-" & str2(2))