Excel - Excelファイルの名前を変更するとVBAコードが壊れます - 解決方法はありますか？

Question

VBAへの新着ですね。私は、一度クリックするとダイアログボックスが開き、スプレッドシートにファイルを添付することができるボタンを作りたがっています。私は基本的にマクロを記録し、Googleの助けを借りてコードを編集しました。できます。ファイル名が変更されると、ファイル名が定期的に更新されるという問題のみです。名前が変更されると、コードが壊れます。

わかっていれば、コードはファイル名とワークシート名の両方にリンクされています。ワークシートは変更されませんが、ファイル名は間違いありません。コードをファイル名から独立させる方法はありますか？誰もが、コードはかなり基本的なものです

を使用することができ、

Excelファイルは、他の人が/編集を表示することができsharedrive上にあるので、ボタンを付けたファイルを作成するとよいでしょう。エクセル、オープンVisualBasicの窓、オンと私はしたいワークシートタブ用シートの上に、私は以下の入った：

Sub AttachEmail() 

Set myFile = Application.FileDialog(msoFileDialogOpen) 
With myFile 
.Title = "Choose File" 
.AllowMultiSelect = False 
If .Show <> -1 Then 
Exit Sub 
End If 
FileSelected = .SelectedItems(1) 
End With 

ActiveSheet.OLEObjects.Add(Filename:=FileSelected, Link:=False, DisplayAsIcon:=False).Select 
End Sub 

Answer 1

をdocumentationからのFileDialogオブジェクトに対して：

各ホストアプリケーションのみを作成することができます FileDialogオブジェクトの単一のインスタンスです。したがって、複数のFileDialogオブジェクトを作成しても、FileDialog オブジェクトの多くのプロパティは保持されます。 したがって、ダイアログボックスを表示する前に、すべてのプロパティを適切に設定してください。

あなたのExcelインスタンスが終了していないと、これらのプロパティの1つが持続していると思われます（2回目の使用時にエラーが発生します）。

あなたが受け取っているメッセージに基づいて、最も可能性の高い候補がInitialFileName（私の強調）です：あなたは無効なパスを指定した場合

、最後に使用したパスが使用されています。 無効なパスが使用されたときに がユーザーに警告します。ワークブックがすでに保存されていない場合、これがデフォルトになりますことを

With myFile 
    .Title = "Choose File" 
    .AllowMultiSelect = False 
    'Add this. 
    .InitialFileName = ActiveWorkbook.Path 'Or ThisWorkbook.Path 

注：

は、私はあなたが常に常に有効な値を取得することを保証するために、次のコード行を追加したいですユーザーのドキュメントフォルダ。