Закрыть вкладку перед продолжением - PullRequest
Новая
       8

Закрыть вкладку перед продолжением

0 голосов
/ 02 февраля 2019

Это для каждого оператора является частью макроса Excel, который отправляет персонализированные сообщения через WhatsApp, используя ссылки WhatsApp API.Мне нужно закрывать вкладку после отправки каждого сообщения, чтобы избежать попадания в chrome с кучей открытых вкладок. 

For x = 2 To uf
telwhatsapp = a.Cells(x, "B")
textwhatsapp = a.Cells(x, "C")

mylinkwhatsapp = "https://api.whatsapp.com/send?phone=" & telwhatsapp & "&text=" & textwhatsapp
ActiveWorkbook.FollowHyperlink mylinkwhatsapp

Application.Wait (Now + TimeValue("00:00:05"))
ActiveWindow.Application.SendKeys "{TAB}"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveWindow.Application.SendKeys "{TAB}"
Application.Wait (Now + TimeValue("00:00:05"))
ActiveWindow.Application.SendKeys "(~)" 'énvia enter para enviar mensaje
Application.Wait (Now + TimeValue("00:00:18"))
ActiveWindow.Application.SendKeys "(~)"
Next x
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Я пытался добавить это до Next x, и это не сработало 

ActiveWindow.Application.SendKeys "{%F4}"

Также пытался сделать это раньше Next x не работал ни 

ActiveWindow.Application.SendKeys "{^F4}"

Любая помощь, чтобы закрыть вкладку, прежде чем перейти к следующей строке Excel?

1 Ответ

0 голосов
/ 03 февраля 2019

Попробуйте просто использовать %{F4} Кроме того, при вызове sendkeys вы должны сделать это следующим образом, Application.SendKeys "%{F4}", True, чтобы excel ожидал завершения работы sendkeys.

Надеюсь, это поможет

...