csvファイルのみを選択させる 「ファイルを開く」ダイアログ 　 要VBA TOP＞Excel/Word/PowerPoint ○ポイントはGetOpenFilename メソッド csvファイル形式のデータを開く際に、あらかじめ、csvファイルだけが表示されるように、ファイルオープンダイアログボックスを設定することができます。これにより、.xlsや.xlsxなどが表示されなくなり、最初のファイルの絞り込みが楽になります。 (1) ファイルを開くボタンをシート上に配置する。 (2) コード例は下記。 Public Sub OpenDialog() 'ファイルOPENダイアログ設定 Dim myDir As String'csvファイルが格納されているフォルダまでのパス 　myDir = ThisWorkbook.Path & "\" & vbNullStringmy 　FName = Application.GetOpenFilename("CSV ﾌｧｲﾙ (*.CSV),*.CSV", 　Title:="CSVファイルの選択") If VarType(myFName) = vbBoolean Then End Workbooks.Open Filename:=myFName End Sub (3) (1)で配置したボタン（CommandButton1とします）のClickイベントプロシージャのコードは下記。 　（この例では、開いたCSVファイル内容をこのブックのセルに転記します） Private Sub CommandButton1_Click() 　ActiveCell.Activate '---「ファイルを開く」ダイアログ表示 　OpenDialog '---ここから'CSVファイルオープン後の処理を記入 '下記例は開いたCSVファイル内容をこのブックのSheet1のセルに転記します With Application .DisplayAlerts = False .ScreenUpdating = False ActiveWorkbook.ActiveSheet.Cells.Copy ThisWorkbook.Sheets("Sheet1").Range("A1").PasteSpecial _ Paste:=xlPasteValues ActiveWorkbook.Close False Range("A1").Select .ScreenUpdating = True .DisplayAlerts = True End With '---ここまで End Sub (4) (3)のコードを割り当てた(1)で配置したボタンをクリックしてダイアログを確認（図1）。 （図1）CSVファイルのみを表示する「ファイルを開く」ダイアログ ○こんな時に使える ・このワザはEXCEL2000でも利用できます ・大量のCSVファイルを手動で開く処理を効率化する ・CSV形式をEXCELに自動展開する ○応用またはその他の方法 ・同じ書式のファイルを統合したい(EXCEL2010) ○サンプル ・ サンプルファイルはこちら（要解凍） 19KB ○注意 ・このマクロはSheet1のセルを上書きしますのでご注意ください。 ・上書きされたファイルは元に戻りませんのでご注意ください。