прогноза VBA application.goto

в Outlook 2010 У меня есть такое обучение в моем коде VBA, только для выбора, поставленного на А1, а затем сохранить книгупрогноза VBA application.goto

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 
    ........

Excel wbFm открыт Рабочий

после обновления до Outlook 2013 эта команда

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

больше не работает. Когда я удаляю эту команду, программа заканчивается правильно, но курсор, когда я открываю сохраненный файл, находится в последней выбранной ячейке. Любые идеи ?, привет, Ann

источник

2016-12-16 Angro

Предполагая, что wbFm является объектом книги Excel, вы можете просто выбрать ячейку. Нет необходимости в заявлении GoTo.

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

источник

2016-12-16 16:22:56

Это очевидно, но эта команда (я действительно неожиданность) делает то же самое - закончить программу без сохранения файла – Angro

мне нужно больше контекста, чтобы узнать, действительно ли это проблема, но я вижу, что вы 'проверить, существует ли файл, а затем сохранить его. Что, если он уже существует? Разве вы не должны «Сохранить» книгу, если она существует, и «Сохранить как», если она не указана? –

ответ

Смежные вопросы