Excel VBA输入框获取日期时错误13（类型不匹配）解决方案咨询

核心问题在于直接把InputBox的返回值赋值给Date类型变量：

• 用户取消输入时，InputBox返回空字符串，无法赋值给Date变量
• 输入非日期内容时，同样无法完成类型转换，触发错误13

你之前的判断无效，是因为Date变量不可能等于空字符串，必须先把输入值存为字符串再做校验。

修正后的完整代码 #

Sub NewMonth_button()
    Dim inputStr As String
    Dim Date_Today As Date
    Dim nwFilename As String
    
    ' 先以字符串接收输入，避免直接赋值给Date变量的类型冲突
    inputStr = InputBox("Please enter YEAR-Month (e.g. 2024-05)")
    
    ' 处理用户取消输入的情况
    If inputStr = "" Then
        Exit Sub
    End If
    
    ' 验证输入是否为有效日期
    If Not IsDate(inputStr) Then
        MsgBox "Invalid date format! Please enter a valid YEAR-Month.", vbExclamation
        Exit Sub
    End If
    
    ' 验证通过后再转换为Date类型
    Date_Today = CDate(inputStr)
    
    ' 生成目标文件名
    nwFilename = "Daily Journal_" & Year(Date_Today) & "_" & Month(Date_Today)
    
    ' 复制工作表并保存新工作簿
    Worksheets(Array("list", "data", "Fill", "Archive>")).Copy
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & Application.PathSeparator & nwFilename
End Sub

关键修正说明 #

• 先存为字符串：用inputStr接收输入，兼容空字符串（用户取消）和非日期内容
• 取消输入判断：直接检查inputStr = ""，符合VBA InputBox的返回逻辑
• 日期有效性校验：用IsDate()函数判断输入是否可转换为合法日期，提前拦截错误输入
• 延迟类型转换：仅当输入合法时，才用CDate()将字符串转为Date类型，确保类型安全

内容的提问来源于stack exchange，提问作者Light