SendKeys всегда помещает выбор в окно кода. AppActivate не работает - PullRequest
Новая
       78

SendKeys всегда помещает выбор в окно кода. AppActivate не работает

0 голосов
/ 06 мая 2020

Edit: я тестировал код в интерфейсе VBA и шел построчно. Это казалось проблемой, потому что, когда я вышел и просто запустил макрос, он работал нормально. Надеюсь, это поможет другим!

Я пытаюсь просто скопировать выделение и вставить его в блокнот. Когда я использую функцию SendKeys, она помещает все, что я выбрал для отправки, в окно кода вместо блокнота. Я смотрел на несколько похожих проблем, но, похоже, никто не испытывает того, что я, по крайней мере, я еще не нашел 

Sub SendPaste()

Range("C5:C7").Copy

Call Shell("C:\Windows\system32\Notepad.Exe", vbNormalFocus)

SendKeys "^v"

End Sub

Вот что происходит:

Sub SendPaste ()

Range («C5: C7»). Копировать

Call Shell («C: \ Windows \ system32 \ Notepad.Exe», vbNormalFocus)

SendKeys "^ v"

LNA End Sub

Где LNA - это то, что было вставлено. Он открывает файл блокнота, но это все.

Если я использую AppActivate, он на мгновение активирует блокнот, а затем я получаю тот же результат.

...