VBA 字符串到日期类型不匹配

Question

抱歉，如果之前有人问过这个问题，我一直在搜索，但似乎找不到有用的答案。

我目前正在尝试编写一个 excel 宏，它将根据来自 'setup' sheet.

的信息为我制定工作时间表

我似乎无法从设置 sheet 中获取 'start date' 并将其添加 1 天并将其输入到单元格中。我总是遇到类型不匹配的问题。

设置中的单元格是 P1，格式为“2018-02-09”'MMMM dd, yyyy'，因此表示 2018 年 2 月 9 日。

我正在使用以下代码尝试添加一天：

Dim d As Date
    d = DateValue(startDate)
    d = DateAdd("d", 1, d)
    MsgBox d
    index = index + 1

我也试过仅将 DateAdd 与 startDate 一起使用而不使用 DateValue，仍然键入不匹配，我尝试只在 startDate 值上加上 1，仍然键入不匹配。我已经尝试重新格式化原始值，认为是格式搞砸了，仍然没有成功。

只是想将某些东西转换成日期并添加 1 天哈哈

Answer 1

这是我用单元格做的，符合您的格式：

Dim startDate As String
startDate = ThisWorkbook.ActiveSheet.Cells(1, 1).Value

Dim datePlusOne As Date
datePlusOne = DateAdd("d", 1, CDate(startDate))
MsgBox datePlusOne

VBA 字符串到日期类型不匹配

VBA String to Date type mismatch

vba

date

dateadd