[[20211008143333]]　『データの保存先ファイルを選択し、その保存先をセ』（ｎao）　ページの最後に飛ぶ

『データの保存先ファイルを選択し、その保存先をセルに記載。２回目以降も動作』（ｎao）

エクセルVBA初心者です

 データを保存する先をボタンクリックで選び、そのデータの格納場所の表示を D2セルに出力させる(C:\Users\Desktop\ファイル名)VBAを考えています。

一度、実行すると、表示されるのですが、２回目の動作を行おうとすると、
【申し訳ございません。book1.htmが見つかりません。
　名前が変更されたか、移動や削除が行われた可能性があります。】
のようなエラーが出て、動作しなくなります。
リセットが必要であると思うのですがどこを触ったら良いのか困っています。教えて頂けないでしょうか。

Sub ボタン7_Click()
Dim myDialog As FileDialog
Set myDialog = Application.FileDialog(msoFileDialogFolderPicker)

With myDialog.Title = "フォルダを選択して下さい."
.InitialFileName = CreateObject("WScript.Shell").SpecialFolders("Desktop").AllowMultiSelect = False

　　　If .Show ThenRange("D2").Value = .SelectedItems(1)
　　'選択したパスを取得する

　 Else 'キャンセル時

 Exit SubEnd 
IfEnd 
With

End Sub

＜使用 Excel：Excel2016mac、使用 OS：Windows10 ＞

 当方でテストした限りでは、２回目も問題なかったですけど。

 バージョン：XL2010、Microsoft365

（半平太） 2021/10/08(金) 17:29

コメント返信：

[ 一覧(最新更新順) ]

[[20211008143333]] 『データの保存先ファイルを選択し、その保存先をセ』（ｎao） ページの最後に飛ぶ

[[20211008143333]]　『データの保存先ファイルを選択し、その保存先をセ』（ｎao）　ページの最後に飛ぶ