質問: "false" then exit sub workbooks.open f cells.copy thisworkbook.sheets("通販素材").range("a1") activeworkbook.close false は以前とあるサイトを参考に少し手を加えたもので、フォルダからファイルを選択し新しいシートにそのファイルの情報を抽出するというものになります。 今回質問したのは、ファイルの取り込みボタンを押してユーザーフォームが出現してから商品情報が載っているcsvもしくはエクセルファイル、在庫表のcsvもしくはエクセルファイルを選択し、処理開始したらitem、在庫表というシートを作成し読み込んだイファイルの情報を抽出するというのをやってみたいのですがどのようにアレンジすればよろしいでしょうか?
回答: シート上のボタンをクリックしたらユーザフォームを表示し ユーザフォーム上のファイル選択ボタンをクリックしたら ファイルを選択するダイアログを開き ファイルが選択されたら 選択したファイル名(フルパス)をラベルに表示し ユーザフォーム上の開始ボタンをクリックしたら 先に選択したファイルの処理をしたい。 ということであれば、以下でいかがでしょうか... userform1を用意して labelを1つ配置 名前:label_file1 ボタンを2つ配置 名前:btn_filesel1 名前:btn_go '以下のコードを標準モジュールに配置 sub ボタン1_click() userform1.show end sub '以下のコードをフォームモジュールに配置 private sub btn_filesel1_click() label_file1.caption = _ application.getopenfilename("csvファイル(*.csv),*.csv", 1, _ "読み込むcsvファイルを選んで", false) end sub private sub btn_go_click() workbooks.open label_file1.caption cells.copy thisworkbook.sheets("通販素材").range("a1") activeworkbook.close false end sub 追記 今後はエクセル専用のフォーラムを使ったほうがいいと思います。