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

質問

あるフォルダに、CSVファイルが沢山あります。例 23148662.CSV

そこで、フォームに配置したテキストボックスに、「23148662」と入力し

登録ボタンを押せば、該当のCSVファイルがシートに取り込まれるようにするには

どうすればよいでしょうか？

有識者のみなさん、どうぞよろしくお願いいたします。

回答No.1

keithin · ベストアンサー

ふつーにその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

お礼

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