vba - 尝试将电子邮件正文从 Outlook 获取到 Excel 文件时出现“运行时错误 '9' 下标超出范围”

Answer 1

如果这一行：

If InStr(1, vItem, ":") > 0 Then

不符合条件，接下来将执行此行

vItem = Split(str1, Chr(34))

这实际上试图拆分为空str1 variable。结果，您的 Array 为空，导致 Run-time error'9'引用下一行的右侧部分：

xlobj.Range("E" & i + 1).Value = vItem(0)  

所以，VItem(0)是你的问题，而它不存在。