Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30 / 13163 ツリー ←次へ | 前へ→

【79967】早急で御座います! ぽんぽこ 18/6/8(金) 21:20 質問[未読]
【79968】Re:早急で御座います! 亀マスター 18/6/8(金) 23:00 回答[未読]
【79975】Re:早急で御座います! γ 18/6/10(日) 12:16 発言[未読]

【79967】早急で御座います!
質問  ぽんぽこ  - 18/6/8(金) 21:20 -

引用なし
パスワード
   セルのデータをコピー→メモ帳起動→メモ帳に貼付け
までを以下で入力しています。

Sub TestSendText()
Dim ret As Long
ActiveSheet.Range("A1:C8").Copy
ret = Shell("Notepad.Exe", vbNormalFocus)
AppActivate ("無題 - メモ帳")
CreateObject("Wscript.Shell").SendKeys "^v"
End Sub

この後に、メモ帳に貼り付けたテキストをもう一度メモ帳からコピー→メモ帳を消去
までを入力したいのですが、どなたかご教授お願い致します。

メモ帳の消去の前にテキストを消去する内容も盛り込めばいいのか等
何度考えても分かりませんでした・・・
申し訳ございませんが、お願い致します!

色々なところで聞いてしまってますが、そのくらい早急です・・・泣

【79968】Re:早急で御座います!
回答  亀マスター  - 18/6/8(金) 23:00 -

引用なし
パスワード
   SendKeysを使うなら
Ctrl+A→Ctrl+C→Del
を実行すればいいのでは?

【79975】Re:早急で御座います!
発言  γ  - 18/6/10(日) 12:16 -

引用なし
パスワード
   別の掲示板で解決済みになっているようです。
こちらにもその旨コメントすべきですよね。
適切な回答が寄せられているわけですから、礼をするのが普通じゃないですか?

事情を知らない人がこれから時間を費やしてしまうことは無駄なこと。
そもそもを申し上げれば、
・なぜそんなことが早急なんですか?
 急ぎだったら手作業でやればいい。
・タイトルは内容を表すものにするのが常識です。
・もともとSendKeysで他のアプリケーションを操作するのは
 不安定だし、できることに限度があるので避けるべき。
 この程度であれば可能だが、メモ帳の特定の位置を指定して
 作業をしたい、などは困難になる。

早急などという方に限って、投稿しっぱなしになるのはよく観察されることでは
あるが、やはりマナーを守って頂きたいですね。
(自分勝手ということでは首尾一貫しているとも言えますが。)

30 / 13163 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free