Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
FileDialog(msoFileDialogFilePicker) の動作について
投稿日時: 18/08/29 17:38:47
投稿者: けん太

VBAで以下の順でマクロ登録したFileDialogが起動されます。
この時、2回目に呼ばれる.FileDialogにおいて、
ファイルフィルターの表示が "*.xls,*.xlsx,*.csv,*.xls,*.xlsx" と "*.txt"
の2つとなります。(プルダウンで選択する形)
 
2回目の呼び出しの時に、"*.txt"のみとしたいのですが
方法はありますでしょうか?
 
 
'ファイル選択1処理
With Application.FileDialog(msoFileDialogFilePicker)
 
    .InitialFileName = ""
    .AllowMultiSelect = True
    .Filters.Add "ファイル", "*.xls,*.xlsx,*.csv,*.xls,*.xlsx"
 
 
'ファイル選択2処理
With Application.FileDialog(msoFileDialogFilePicker)
 
    .InitialFileName = M3_PASS
    .AllowMultiSelect = False
    .Filters.Add "ファイル", "*.txt"

回答
投稿日時: 18/08/29 17:46:39
投稿者: sk

引用:
'ファイル選択2処理
With Application.FileDialog(msoFileDialogFilePicker)
  
    .InitialFileName = M3_PASS
    .AllowMultiSelect = False
    .Filters.Add "ファイル", "*.txt"

'ファイル選択2処理
With Application.FileDialog(msoFileDialogFilePicker)
    .Filters.Clear
    .InitialFileName = M3_PASS
    .AllowMultiSelect = False
    .Filters.Add "ファイル", "*.txt"
 
------------------------------------------------------
 
Clear メソッドを実行してファイルフィルターを初期化して下さい。

投稿日時: 18/08/29 18:03:19
投稿者: けん太

skさん
 
  ご教授、ありがとうございました。