質問: excel vba に関する質問です。excel2016でプログラムを組みました。シートにボタンを張り付けて、そのボタンをクリックするとフォームが起動していろいろ操作するプログラムです。
回答: >If Dir(ThisWorkbook.Path & "ファイル名.xlsx") <> "" Then ThisWorkbook.PathがC:\tmpであれば C:\tmpファイル名.xlsxというフォルダを見に行くので 正しく動くことが期待できません If Dir(ThisWorkbook.Path & "\ファイル名.xlsx") <> "" Then こうする必要があるのでは? コード内容を見る限り、ユーザフォームを作成し その中に書かれているコードの一部を貼り付けされたものでしょうか? そこらへんの説明がないと、コードを読むのが面倒になります。