VBAからメモ帳起動

  Excel 2010 VBAからWindowsに付属の「メモ帳」を起動することができます!!
  例えば、Worksheetのセル範囲を選択して、マクロの「メモ帳起動」を実行するとセル範囲の値がメモ帳に取り込まれます。
  これは、選択したセル範囲の値をクリップボードにコピー(^C)し、メモ帳起動時に貼り付け(^V)する例です。

  1.セル範囲を選択
    シートとセル範囲は任意です。

備忘録サイトの画面

  2.マクロからModule「メモ帳起動」を実行

備忘録サイトの画面

  3.自動的にメモ帳を起動し、クリップボードの値を貼り付け

備忘録サイトの画面

  4.メモ帳起動Moduleのソースコード(コードはコピー&ペーストできます!)

備忘録サイトの画面
Sub メモ帳起動()
'メモ帳を起動し、クリップボードから値を取り込む例です。
    Dim Rc As Long
    Selection.Copy
    Rc = Shell("Notepad.Exe", vbNormalFocus)
    If Rc <> 0 Then
        AppActivate ("無題 - メモ帳")
        CreateObject("Wscript.Shell").SendKeys "^v"
    Else
        MsgBox "起動に失敗しました。"
    End If
    Application.CutCopyMode = False
End Sub

↑頁トップへ