質問: shell("notepad.exe", vbnormalfocus) appactivate ("無題 - メモ帳") ...ここまでは書けてるんですが...が...
回答: こんばんは。 本格的には、apiで書くところでしょうけれども、簡単な方法では、以下のようなものがあります。おそらく、#1 さんのご指摘のように、私も環境によってかなり違ったような記憶があります。excelから、クリップボードに入ったものが、外に排出しないという問題だったか、前面に来ないのだっか、何かあったように思います。(apiでは可能ですが、これらをまともに書くと、ものすごいコードになってしまいます) 以下は、xp でしか試していません。 sub testsendtext() dim ret as long activesheet.range("a1:a3").copy ret = shell("notepad.exe", vbnormalfocus) appactivate ("無題 - メモ帳") createobject("wscript.shell").sendkeys "^v" end sub なお、リテラル値以外に「a&」という書き方は、あまりvbaではしません。間違いではありませんが。