VBAでメモ帳にコピペをしたいのですが…

解決済

質問者：arimasouitirou
質問日時：2007/11/08 22:02
回答数：2件

おせわになります。
excelで、たとえば、A1～A3のセルをコピーして、メモ帳に貼り付けるというVBAを作りたいのですが、うまくいかないので、教えていただけないでしょうか。
Range("A1:A3").Select
Selection.Copy
a& = Shell("notepad.exe", vbNormalFocus)
AppActivate ("無題 - メモ帳")
…ここまでは書けてるんですが…が…

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.1

回答者： popesyu
回答日時：2007/11/08 22:09

その方法でやるならsendkeyでCTRL+vを送るしかないですが、

http://msdn.microsoft.com/library/ja/default.asp …

通常はINPUT、OUTPUTで書き出す方法を行います。
http://officetanaka.net/excel/vba/file/file08.htm

sendkeyはマシンの環境によってはタイミングが合わないことが多々あるからお勧めできる方法ではありません。他にそれしか方法がないという時のみ非常手段的に使う方法です。

- 1
- 件

通報する

No.2ベストアンサー

回答者： Wendy02
回答日時：2007/11/08 23:09

こんばんは。

本格的には、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ではしません。間違いではありませんが。