1

ファイルを開くダイアログを使用して、ファイルの経路を抽出したい (または、より簡単な場合はファイルを開きたい)

ファイル名をダブルクリックしてもファイルが開かないようにダイアログを設定することはできますか? 私が避けたいのは、ユーザーがファイル名をダブルクリックしたが、そのファイルが既に開いている場合、さらに警告が表示されることです。

または、代わりに、ユーザーがダイアログのOPENボタンをクリックするか、ファイル名をダブルクリックしたときにファイルの読み取り専用バージョンが開かれるように設定すると機能します - これはより簡単な方法ですか? この場合、ダイアログのExecuteメソッドを使用しますか?

Private Function FindFilePath() As Boolean

Dim selectedMultiFiles As Boolean 
Dim fd As FileDialog 
Dim objfl As Variant

Set fd = Excel.Application.FileDialog(msoFileDialogOpen)

Dim myTxt As String 
With fd
    .Filters.Add "Excel Files", "*.xlsx;*.xlsm", 1
    .AllowMultiSelect = False
    .Title = "Choose the file with the target table"
    .InitialView = msoFileDialogViewDetails
    If .Show = -1 Then
        myTxt = .SelectedItems.Item(1)
        fFileName = myTxt
        FindFilePath = True
    Else
        myTxt = "Nothing was selected"
        FindFilePath = False
    End If
    On Error Resume Next End With

txBoxFilePath.Text = myTxt

End Function
4

1 に答える 1