VBA FileDialogで初期表示されるファイル名を全文表示したい

Question

お世話になっております。
今回はVBAのApplication.FileDialogについて質問させていただきます。
使っているOfficeはOffice365です。

1. FileDialogで対象のExcelファイルを取得する

---

今回、ExcelファイルのとりまとめツールをVBAで作りました。
指定したExcelファイルを取得して、その中から特定の条件の行を取得し、別のExcelに出力するというものです。
指定ExcelはApplication.FileDialogを使って取得するようにしています。

'/* ファイルダイアログボックス表示
Private Function FileDialog(Optional strInitialFileName As String = "") As String
    
    Dim strRtn  As String
    Dim afd     As Object
    Dim strPath As String
    Dim strName As String
    
    Set afd = Application.FileDialog(msoFileDialogFilePicker)
        
    afd.InitialFileName = strInitialFileName
        
    strRtn = ""
    
    If afd.Show = True Then
        strRtn = afd.SelectedItems(1)
    End If
    
    FileDialog = strRtn
    
End Function

1. 何がダメなのか

---

ダイアログを開く際、既にフルパスがあればそのフルパスをInitialFileNameに設定しています。
開いた後、InitalFileNameに設定したフォルダ階層・ファイル名が表示されるのですが、
ファイル名が見切れています。

3．探したキーワード

・「VBA　FileDialog　バグ」
・「VBA　FileDialog　見切れている」
・「VBA　FileDialog　ファイル名　表示されない」
などで検索しましたが、該当するリファレンスが見つかりませんでした。

細かい修正箇所ですが、納品先がどうしても気になるので直してほしいとの事でした。
何かご存知でしたら、助力願います。

Answer 1

Windows API GetSaveFileName(comdlg32.dll) を使っても、同じような現象でした。

おそらく、仕様かちょっとした不具合だと思います。

あきらめましょう。

Comments

[退会済みユーザー]

そうですか…あきらめます

Answer 2

設計の見直しを検討してみてはいかがでしょうか。

こちらで本来求めたいのは、抽出元パスを決めることではないでしょうか。
見た目「ファイル名が見切れています。」や、そもそもの仕様挙動「そのフルパスをInitialFileNameに設定」にこだわる必要性はさほどないように感じられます。

であれば、そもそも参照パスでフルパスが入力されているケースを考えた場合、
すでに指定されたパスにファイルが存在していること自体が入力者にとっては自明であるため、と考えます。でなければ入力すらせず参照ボタン押しますよね。

であれば機能としては、以下に調整できないでしょうか。
まずは、以下の理解を求めたうえで改善となるわけですが・・・。

• 機能のFileDialog仕様では、15文字以上については、もともとそういう表示をしてしまう機能動作であること

改善としてはざっと以下の形でしょうか。

• InitialFileNameでは、ファイル名については触れずフォルダ選択(例：'D:\Test')とする※
• FileDialogの初回ファイル名はあえて表示させない。（ユーザーのファイル選択を重視する）
• フルパスで入力されていた場合は、ファイルの存在チェックのみとし、FileDialogは表示させない※

という形であれば、ユーザー側にとっては、見た目よりは、
機能性を重視した理解が得られるのではないでしょうか？

※フルパスが間違っていた場合の、ユーザーの入力補助として、パスのフォルダの表示を試みる
もちろんディレクトリの存在確認は実施しておく

Answer 3

実機で確認してみましたが、おっしゃる通りFileDialogのファイル名が左側にずれました。
右から半角14文字～16文字くらいの幅が終端になるような表示になっています。

他の方法でダイアログを表示する方法を考えてみました。
簡単なところではGetSaveAsFilenameを使用することでファイル名が見切れないようにできました。ただ、右下のボタンが[保存]になり、変更はできないようです。

'/* ファイルダイアログボックス表示
Private Function FileDialog(Optional strInitialFileName As String = "") As String

    Dim strRtn  As String
    Dim afd     As Object
    Dim strPath As String
    Dim strName As String

    strRtn = Application.GetSaveAsFilename( _
        InitialFileName:=strInitialFileName, _
        Title:="参照", _
        FileFilter:="Excelファイル,*.xlsx,すべてのファイル,*.*", _
        FilterIndex:=1)
    
    FileDialog = strRtn

End Function

他にも任意の指定でシステムダイアログを出す方法があるかもしれません。