[[20170522103413]] 『Excelでファイルを開く際に、*.xl*;*.xlsx;*.xlsm』(KAZ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『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


なるほど。渋いソリューションありがとうございます。
Excelもこの位の設定デフォルトでさせてもらえればいいんですけどね。。。。

(KAZ) 2017/05/22(月) 11:29


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.