将值转换为date时需要vba对象

Question

我试图通过使用VBA将值转换为日期，当执行代码时，它显示了消息

  

需要对象

我希望结果如下：

代码如下：

Dim wb2 As Workbook
Dim wsw As Worksheet
Dim destsheetName As String
destsheetName = "Worksheet"
Set wb2 = ThisWorkbook
Set wsw = wb2.Sheets(destsheetName)
ConvertToDate2


Sub ConvertToDate2()
Dim lastrowB As Integer
lastrowB = wsw.Cells(wsw.Rows.Count, "B").End(xlUp).Row
For i = 5380 To lastrowB
If wsw.Cells(i, 2).Value <> "" Then
wsw.Cells(i, 2).Value.NumberFormat = "dd-mm-yyyy"
End If
End Sub

我无法弄清问题是什么，请您提出任何建议？非常感谢你。

Answer 1

错误是：

wsw.Cells(i, 2).Value.NumberFormat = "dd-mm-yyyy"

该值没有数字格式。 Numberformat是单元格的属性（Range，范围有.Numberformat）

所以应该是：

wsw.Cells(i, 2).NumberFormat = "dd/mm/yyyy"