VBSでアクティブウィンドウに日付を入力したい

Question

前提・実現したいこと

現在アクティブになってるウィンドウに現在の日付を入力したいです。
形式としては今日が10/7なら「K1007」という形式です。

発生している問題・エラーメッセージ

クリップボードに日付を格納する所まではいけたのですが、アクティブウィンドウにペーストするというのが上手くいきません。
下記のコードだと恐らくVBSウィンドウがアクティブになっている間にCtrl+Vが送られるので、貼り付けが出来ません。
しかしEnterは動作しています。

該当のソースコード

Dim strFormattedDate
Dim WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")

strFormattedDate = Now()
strFormattedDate = Left(strFormattedDate, 10)
strFormattedDate = Right(strFormattedDate, 5)
strFormattedDate = Replace(strFormattedDate, "/", "")
With CreateObject("Wscript.Shell").Exec("clip")
.StdIn.Write "K" & strFormattedDate
End With

WshShell.SendKeys("^V")
WshShell.SendKeys("{ENTER}")
Set WshShell = Nothing

試したこと

変数にアクティブウィンドウを保持できないか試しましたが上手くいきません。

補足情報（FW/ツールのバージョンなど）

Win10です

Answer 1

試してみました。
ペーストする直前にSleepを入れて、その間にメモ帳をアクティブに。
そしたら問題なくペーストできました。
Enterは反応しているということなので、そのウィンドウがCtrl+Vを受け付けていないだけのような気がします。
1文字ずつSendKeysしたらどうでしょうか？

Dim strFormattedDate
Dim WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")

strFormattedDate = Now()
strFormattedDate = Left(strFormattedDate, 10)
strFormattedDate = Right(strFormattedDate, 5)
strFormattedDate = Replace(strFormattedDate, "/", "")
strFormattedDate = "K" & strFormattedDate

For i = 1 To Len(strFormattedDate)
	WshShell.SendKeys(Mid(strFormattedDate, i, 1))
Next
WshShell.SendKeys("{ENTER}")

Set WshShell = Nothing

Comments

[kaz_s13]

1文字ずつSendkeysする事で、望んでいた動作をするようになりました。
ありがとうございました。

Answer 2

AppActivateすればいいと思います。