[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『Excelでファイルを開く際に、*.xl*;*.xlsx;*.xlsm等でフィルターされているメニューが出ますが、これに*.csvを加える方法は無いか?』(KAZ)
Excelのツールボタンのファイル=>開くからファイルを開く際に、*.xl*;*.xlsx;*.xlsm等でフィルターされているメニューが出ますが、これに*.csvを加える方法は無いでしょうか?
CSVファイルをダブルクリックするとExcelが開く関連付けは出来ているのですが、エクセルを立ち上げて、ファイルの<開く>から出てくる開くメニューの中に、CSVファイルを含めたいという意図です。
デフォルトだと、*.xl*;*.xlsx;*.xlsm等でフィルターされてしまい、一回、プルダウンからCSVを選ばないといけないのが毎回おっくうになってます。
よろしくお願い致します。
< 使用 Excel:Excel2016、使用 OS:Windows7 >
Ctrl+Oでブックを開くダイアログが表示され、選択したファイルが開きます。
'標準モジュール
Function wbopen()
Dim FileName As Variant FileName = Application.GetOpenFilename(FileFilter:="xlsx xlsm csv txt (*.xlsx; *.xlsm; *.csv; *.txt),*.xlsx; *.xlsm; *.csv; *.txt", Title:="ファイルを開く", MultiSelect:=False) If FileName = "" Or FileName = False Then Exit Function Workbooks.Open FileName End Function
'ThisWorkbookモジュール
Private Sub Workbook_Open()
Application.OnKey "^o", "wbopen" End Sub
どのブックでも同じようにしたい場合はアドイン化するなどしてください。
※仮にCtrl+Oにしてますが、既存のキーとバッティングする場合は適宜変更してください。
(カリーニン) 2017/05/22(月) 11:19
(KAZ) 2017/05/22(月) 11:29
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.