(Excel VBA)テキストファイルを保存する際、セルの値を引用したい

前提・実現したいこと

Excel VBAにてテキストファイルを保存する際、セルの値を引用したいと考えています。

該当のソースコード

VBA
1SC_Sample_txt作成 Macro
2
3    ActiveSheet.Range("D23:M47").Select
4    Selection.Copy
5
6    Shell "notepad.exe", 1
7    SendKeys "^V"      '「Ctrl」＋「V」
8    SendKeys "%{F4}"      '「Alt」＋「F4」
9    SendKeys "{Enter}"  
10    Application.Wait Now + TimeValue("0:00:01") 
11    SendKeys "S:\user\desktop\test.txt"      '保存先入力　…※
12    SendKeys "{Enter}"      'ダイアログ ボックス確定"
13
14    Range("A1").Select
15    ActiveWorkbook.Save

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

上記のCDにて※の場合、desktopにtest.txtとして保存されます。
可能であれば、ファイル名をExcelのD16セルに記載されているものを引用したいと考えています。

試したこと

Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("D16").Valueを入れてみましたが、
こちらはExcelファイル自体をセルの名称で保存するものでした。

大変お手数ですが、ご教示をお願い致します。

行動規範の内容に同意します

回答1件

自己解決

以下の内容にて加筆、修正する形で解決致しました。

ActiveSheet.Range("D16").Select
Selection.Copy

SendKeys "S:\user\desktop" & "" & Range("D16").Value & ".txt"

投稿2020/12/27 17:24

club33gold

総合スコア20

あなたの回答

tips

プレビュー

行動規範の内容に同意します

質問の解決につながる回答をしましょう。サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。また、読む側のことを考えた、分かりやすい文章を心がけましょう。

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.36%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

『🎄teratailクリスマスプレゼントキャンペーン2024🎄』開催中！

＼teratail特別グッズやAmazonギフトカード最大2,000円分が当たる！／