• ベストアンサー

エクセル、フォームのテキストボックスから検索

あるフォルダに、CSVファイルが沢山あります。例 23148662.CSV そこで、フォームに配置したテキストボックスに、「23148662」と入力し 登録ボタンを押せば、該当のCSVファイルがシートに取り込まれるようにするには どうすればよいでしょうか? 有識者のみなさん、どうぞよろしくお願いいたします。

質問者が選んだベストアンサー

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7941)
回答No.1

ふつーにそのCSVをマクロで開かせてしまえばそれまでのような気がします。もし「所定のシートに記入する」までやりたいなら,更にコピーして貼り付けてみます。 pvivate sub CommandButton1_Click() workbooks.open filename:="c:\あるフォルダ\" & me.textbox1.text & ".csv" workbooks(me.textbox1.text & ".csv").worksheets(1).range("A1").currentregion.copy _ destination:=thisworkbook.worksheets("所定のシート名").range("A1") application.displayalerts = false workbooks(me.textbox1.text & ".csv").close false application.displayalerts = true end sub

ein-zwei
質問者

お礼

うまくいきました!ありがとうございました!

関連するQ&A

専門家に質問してみよう