ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存

ExcelのVBAを使用し、

①
シートの(A2:A100)までのセルをコピーし、
メモ帳を立ち上げ、さきほどコピーしたものを値貼付
↓
↓
②
そのメモ帳に（A1）に入力された言葉をタイトルにして
名前を付けて保存
この保存をするときに、こちらが指定したフォルダに保存したい
のですが、そんなことは可能でしょうか。


① は

Sub MemoOpen001()
Range("A2:A100").Select
Selection.Copy
Shell "notepad", 1
SendKeys "^V", True
End Sub


でできたのですが、②がどうにもうまくいきません。

解決策をご存じの方がいましたら教えていただけますと幸いです。
大変お手数おかけいたしますが、
何卒宜しくお願い致します。

No.2 回答者： mygoonickname 回答日時： 2021/12/09 16:42

No.1の者です。

きっと下記の様な感じかと。実際に試していないので、エラーが出るかも。
その際は、適宜、修正願います。

'テキストファイル出力
Sub MemoOpen001()
Dim I As Long

'ファイルを書き込みで開く(無ければ新規作成される、あれば上書き)
Open "C:test.txt" For Output As #1 'ここで、保存先を記載

'開いたファイルに書き込む
For I = 2 To 100
Print #1, Cells(i, 1).Value
Next

'開いたファイルを閉じる
Close #1

'終わったのが分かるようにメッセージを出す
MsgBox "完了！"

End Sub

No.1 回答者： mygoonickname 回答日時： 2021/12/09 16:34

こんにちは。

先ず、Sendkeysは、場合によって制御に失敗する可能性もあるかと。
また、メモ帳を使うと制御が大変だと思いますので、txtファイルとして
出力すれば、目的の事は達成できると思いますが、如何でしょうか？

下記、参考の１つとして。
https://www.sejuku.net/blog/87566