Question

在Outlook 2010中我在我的VBA代码中有这样的说明，只是为了选择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

不再工作了。当我删除此命令时，程序正常完成，但是当我打开保存的文件时光标位于最后一个拾取的单元格上。任何想法？，问候，安

Answer 1

假设wbFm是Excel工作簿对象，您只需选择单元格即可。不需要GoTo声明。

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

outlook vba application.goto

1 个答案: