VBA メモ帳で保存

Question

前提・実現したいこと

VBAで一部のデータをメモ帳に貼り付けしてデスクトップに保存するシステムを作っています。
現在は個人のPCのデスクトップに出力していますが、どのPCでもデスクトップに出力できるようにしたい。

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

一人のユーザーしか保存ができなく、ほかの人がマクロをいじるのがめんどくさい
+αで出力する際、ソースコードだとtest(1).txtで、保存にしているのに()が抜けた状態で出力される。

該当のソースコード

Sub std_1()
    Application.ScreenUpdating = False
    If Range("L4").Value = "10" Then
        If Range("M4").Value = "10" Then
            If Range("N4").Value = "10" Then
                Worksheets("■").Select
                Range("A6:E701").Select
                Selection.Copy
                Shell "notepad.exe", 1
                SendKeys "^v"      '「Ctrl」＋「V」
                SendKeys "^s"      '「Ctrl」＋「S」
                SendKeys "C:\Users\aaa\Desktop\test(1).txt "      '保存先入力"
                SendKeys "{Enter}"      'ダイアログ ボックス確定"
                SendKeys "%{F4}"      '「Alt」＋「F4」
            End If
        End If
    End If
End Sub

試したこと

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

Excel2016
Windows10

Comments

[hatena19]

コードはマークダウン記法のインラインコードではなく、コードブロックにしてください。
コードブロックは下記の書式になります。
```vba
ここにコードを記述
```

Answer 1

WSH.SpecialFolders を使ってください。

Office TANAKA - Excel VBA Tips[特殊フォルダを取得する]

Answer 2

デスクトップのパスの取得は下記を参考に。

Office TANAKA - Excel VBA Tips[特殊フォルダを取得する]

あと、質問内容からは外れますが、ちょっと気になったので。

メモ帳で保存ということですが、要するにテキストファイルで保存ということなので、
メモ帳を開かずとも直接テキストファイルとして保存すればいいかと思います。

エクセルVBAでテキストファイルに書き出す最も簡単なプログラム

他アプリをSendKeysで操作するのは不安定ですのでお勧めできません。

Comments

[kitagawasho]

一部のデータをテキストファイルで保存できますか？
シートの内容すべてを保存できるのは知っていましたが、部分的な保存の仕方がわからなく、SendKeysを使っていました。

[hatena19]

できますよ。
リンク先のコードを見ましたか。それを改造すればできます。
あるいは、下記のような方法でも可能です。
https://excel-excel.com/tips/vba_198.html

[stdio]

保存する時「ファイル名が被ってはいけない」というときOSのルールさえ守れば、セル単位での保存も可能です。
行列番号をファイ名の後につければ、良いだけ何ですけどね...

Answer 3

エクセルのシートのセル内にパス設定用のセルを設けて、保存場所はそのセルを読み取るという設定にすれば個々の設定ができるようになると思います。
保存場所をここに設定できるようなのに変更すれば、自分で設定する手間も省けると思います。
個人的には
・社内のローカルサーバー等があればそこにメモ保存用のフォルダを作って出力する
・エクセル経由でデータベース上に記録させてから、メモ帳に出力する（ログも残せるし、のちに今までのデータをデータ分析する場合に役に立つため）
が良いと思います。

Answer 4

SendKeys "C:\Users\aaa\Desktop\test(1).txt " '保存先入力"

の名前を変えればいいだけです。
ディスクトップに固定でなくても、ThisWorkbook.Pathでそのエクセルのある位置に書き出せば良いのではないでしょうか？