ファイルを開くダイアログを使用して、ファイルの経路を抽出したい (または、より簡単な場合はファイルを開きたい)
ファイル名をダブルクリックしてもファイルが開かないようにダイアログを設定することはできますか? 私が避けたいのは、ユーザーがファイル名をダブルクリックしたが、そのファイルが既に開いている場合、さらに警告が表示されることです。
または、代わりに、ユーザーがダイアログの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