outlook vba application.goto

在Outlook 2010中我有这样的指令在我的VBA代码，只是为了把select到A1，然后保存Excel工作簿

With wbFm.Sheets(1) ................. LastrOn = .Cells(.Rows.Count, "AQ").End(xlUp).Row For i = 6 To LastrOn Val = .Cells(i, 43).Value Set FoundCell = .Columns("A").Find(Val) If Not FoundCell Is Nothing Then .Cells(i, 44).Copy .Cells(FoundCell.Row, 14).PasteSpecial xlPasteValues <---- last cell picked up end if ................................. Next .Range("AQ4") = "text1" .Range("AU4") = "tekst2" End With wbFm.Application.Goto wbFm.Sheets(1).Range("A1"),True Fdest = emailfolder & Filedest & RepDate & ".xlsx" If fsob.fileexists(Fdest) = False Then wbFm.SaveAs Fdest End If ........ 

wbFm是打开的工作簿

升级到Outlook 2013这个命令之后

 wbFm.Application.Goto wbFm.Sheets(1).Range("A1"),True 

不再工作了。 当我删除这个命令，程序正确完成，但是当我打开保存的文件时，光标是在最后select的单元格上。 任何想法？，关于，安

Answer 1

假设wbFm是一个Excel工作簿对象，您可以简单地select单元格。 不需要GoTo语句。

 wbFm.Sheets(1).Range("A1").Select