Excel Microsoft VBScript运行时错误：类型不匹配：'；单元格'；

我试图修改VBS脚本，以便它在excel文件中的日期达到到期日期时发送电子邮件

长话短说，我们有一份包含服务合同的文件，其中包含到期日期、指定的客户经理和电子邮件地址

我需要做的是创建一个脚本，定期逐行读取文件，并在合同即将到期时向相应的地址发送电子邮件

我已经找到了一个脚本，可以通过CDO做到这一点，但我无法发送带有过期日期的行

我当前的问题是，当我尝试运行vbs时，我得到：script.vbs（19，9）Microsoft VBScript运行时错误：类型不匹配：“cells”

请帮忙：）

这就是你的罪魁祸首：

Function sendData(ByVal iRow) 

    Dim iCol
    For iCol = 1 To 3 ' B=2, K=11
        sendData = sendData & vbCrLf & Cells(iRow, iCol).Text
    Next
    MsgBox sendData
End Function

为此：

sendData = sendData & vbCrLf & objExcel.Cells(iRow, iCol).Text

---

错误应该会消失。

哇，非常感谢！我想尽了一切办法，但运气不好。现在剩下的就是做一个假设，只发送过期日期的邮件。。。非常感谢！！

sendData = sendData & vbCrLf & Cells(iRow, iCol).Text

sendData = sendData & vbCrLf & objExcel.Cells(iRow, iCol).Text