Question

我正在尝试将公式插入到excel电子表格中的一行单元格中。我是通过获取电子邮件的内容并使用vba将其解压缩到excel中从outlook进行此操作。

我从“临时供应商描述：”之后的我的电子邮件正文中获取文本并将其插入到我的行中的单元格4中，然后我想在行中插入一个参考单元格的公式5 4。

出于某种原因，我在我的公式为

的行上得到了应用程序定义或对象定义错误

Dim b7 As String
 If TypeName(olkMsg) = "MailItem" Then
    b7 = olkMsg.Body

    Dim indexOfNameb4 As Integer
        indexOfNameb4 = InStr(UCase(b7), UCase("Description of the provisional Supplier:"))


    Dim indexOfNamec4 As Integer
       indexOfNamec4 = InStr(UCase(b7), UCase("Current Status: "))

    Dim finalStringb4 As String

        finalStringb4 = Mid(b7, indexOfNameb4, indexOfNamec4 - indexOfNameb4)

        LResult3364 = Replace(finalStringb4, "Description of the provisional Supplier:", "")

        excWks4.Cells(intRow4, 4) = LResult3364

        lastcell = excWks4.Cells(intRow4, 4)

        excWks4.Cells(intRow4, 5) = "=IF(ISERROR(INDEX('Look Up Supplier Sheet'!$A$1:$G$10004,SMALL(IF(LEFT('Look Up Supplier Sheet'!$B$1:$B$10004,5)=LEFT(" & lastcell & ",5),ROW($B$1:$B$10004)),ROW(1:1)),6)),"",INDEX('Look Up Supplier Sheet'!$A$1:$G$10004,SMALL(IF(LEFT('Look Up Supplier Sheet'!$B$1:$B$10004,5)=LEFT(" & lastcell & ",5),ROW($B$1:$B$10004)),ROW(1:1)),6))"



End If

Answer 1

改为使用lastcell = excWks4.Cells(intRow4, 4).Address和excWks4.Cells(intRow4, 5).Formula = ...。

公式中的

加""（双引号）实际上会在单元格中生成单引号。使用""""（四元引号）在单元格中插入空引号。

vba在公式中使用单元格引用？

1 个答案: