Vba 运行时错误1004应用程序定义错误或对象定义错误

我在vba中有一个简单的公式，如下所示：

 Sub button_fu()

Windows("H1.xlsm").Activate
Sheets("jan").Activate
Range("J3").Select

Range("J3").Formula = "=IF((VLOOKUP(C3,'[FOLLOW UP H1.xlsx]jan'!$C$8:$M$100,8,False))=1,""terhubung"",IF((VLOOKUP(C3,'[FOLLOW UP H1.xlsx]jan'!$C$8:$M$100,9,False))=1,""unreach"",IF((VLOOKUP(C3,'[FOLLOW UP H1.xlsx]jan'!$C$8:$M$100,10,False))=1,""reject"",IF((VLOOKUP(C3,'[FOLLOW UP H1.xlsx]jan'!$C$8:$M$100,11,False))=1,""workload"","""")"

End Sub

---

有人告诉我这个问题是如何解决的吗？

您的公式中缺少了一些右括号：

Sub button_fu()

    Windows("H1.xlsm").Activate
    Sheets("jan").Activate
    Range("J3").Select

    Range("J3").Formula = "=IF((VLOOKUP(C3,'[FOLLOW UP H1.xlsx]jan'!$C$8:$M$100,8,False))=1,""terhubung"",IF((VLOOKUP(C3,'[FOLLOW UP H1.xlsx]jan'!$C$8:$M$100,9,False))=1,""unreach"",IF((VLOOKUP(C3,'[FOLLOW UP H1.xlsx]jan'!$C$8:$M$100,10,False))=1,""reject"",IF((VLOOKUP(C3,'[FOLLOW UP H1.xlsx]jan'!$C$8:$M$100,11,False))=1,""workload"",""""))))"

End Sub

注意，“跟进H1.xlsx”应该是“H1.xlsm”，还是您有其他工作簿