Excel vba macro получает ошибку несоответствия типа в 2007 году, но работает в 2010 году

Question

Я сделал и протестировал этот макрос в Excel 2010 на Windows 7, также протестировал его на другом компьютере под управлением Windows 7, но с Excel 2007. Работал на обоих, но когда я пытаюсь используйте его на моем рабочем компьютере (Windows 7, Excel 2007). Я получаю «ошибку несоответствия типа» при первом утверждении «Следующий». Посмотрел и обнаружил, что вместо «следующего» я ​​мог бы использовать «Выход за», но потом он просто жалуется на следующую строку, содержащую «End If». Теперь он утверждает: «End If without block If». Наверное, я просто не понимаю, как это работает на одном компьютере Win7 \ Excel 2007, но не в другом.

Макрос просто ищет значения выбранных ячеек в объектах электронной почты (если ячейка еще не окрашена), если есть совпадение, это изменяет цвет ячейки.

Sub MultipleCellSubjectSearch() 

'This macro searches for the selected cell values (if there is no cell color), when it finds a match it turns the cell color yellow 

Dim olApp As Outlook.Application 
Dim olNamespace As Outlook.Namespace 
Dim olItem As MailItem 
Dim olInbox As Outlook.MAPIFolder 
Dim olFolder As Outlook.MAPIFolder 
Dim oCell As Range 

'The following sets the Outlook folder to search 
Set olApp = New Outlook.Application 
Set olNamespace = olApp.GetNamespace("MAPI") 
Set olInbox = olNamespace.GetDefaultFolder(olFolderInbox) 

'The following searches for cell value string in subject 
For Each oCell In Selection 
    If oCell.Interior.Pattern = xlNone Then 
     For Each olItem In olInbox.Items 
      If InStr(olItem.Subject, (oCell.Value)) <> 0 Then 
      oCell.Interior.ColorIndex = 6 
      End If 
     Next 
    End If 
Next 

Set olInbox = Nothing 
Set olNamespace = Nothing 
Set olApp = Nothing 

End Sub 

Если у кого-то есть идеи, они были бы весьма признательны.

Answer 1

Вот эта мысль - ваш olItem определяется как mailItem. Возможно, что код не работает, когда ваш следующий элемент в почтовом ящике не является почтовым отправлением? Будет ли запрос календаря или что-то еще причиной этого? Возможно, вы захотите поместить заявление Debug.Print во внутренний цикл, чтобы посмотреть, какие объекты просматриваются, - и посмотреть, действительно ли цикл выполняется до тех пор, пока он не встретит странный элемент в вашем почтовом ящике ...

As быстрое исправление, если вы позволили ему быть вариантом, вы не получили бы ошибку типа. Таким образом, вы бы просто объявить его как

Dim olItem 

без as mailItem

на это длинный выстрел.