excel - 在 VBA 错误消息中从 Excel 文件中读取日期

Question

我有一个函数可以从 Excel 工作表中的某个单元格获取日期，使用空格作为分隔符拆分该单元格中的字符串，并将数组中的第一个对象保存为日期。但是，我不断收到以下错误消息

“运行时错误'91'：对象变量或未设置块变量”。

有什么想法可能是错的吗？

Public Function getDate(ws As Excel.Worksheet, row As Integer, col As Integer) As String
    Dim inspDateTime As Variant
    Dim dateArr() As String
    Dim inspDateFinal As String
    Set inspDateTime = ws.Cells(row, col)
    dateArr = Split(inspDateTime, " ")
    inspDateFinal = dateArr(0)
    getDate = inspDateFinal
End Function

以下代码是我调用函数的方式：

Private Sub UploadData_Click()
    Dim myWorkbook As Excel.Workbook
    Dim myWorksheet As Excel.Worksheet
    Dim inspDate As String
    inspDate = getDate(myWorksheet, 10, 14)
    ' setting the workbook as the directory that was printed to the text box
    Set myWorkbook = Workbooks.Open(Me.FilePathTxtBox)
    ' setting the first worksheet in the array of files entered
    Set myWorksheet = myWorkbook.Worksheets(1)
End Sub

标签： excelvbafunctionobject