ダイアログで選択させたファイルの重複防止を教えて下さいませ

質問

http://okwave.jp/qa4955154.htmlの続きなのですが、
下記コードのようにDo～Loopでダイアログを廻し対象ファイルを選択してもらうのですが、コードの書いてあるＢＯＯＫの選択は防止しているのですが、選択済みのファイルを選択してしまうことを下記コード中の

'*****同じファイルの選択防止
　　　　　　　　　　　←ここを作りたいのです
'*****同じファイルの選択防止完了

ここの部分に記入したいのです。
ダブリがあってもそのまま進むのですが、例示コードより先の開いたファイルを閉じる部分でエラー（Do～Loopで閉じてゆくので、既に閉じているものを閉じようとする結果）
ダブリ選択は、集計が狂うので防がなければならないのですが、ダイアログ上では無理な気がするので、全て選択後の選択ファイルのコレクションをチェックさせたいのです。
どなたかお助け願えませんでしょうか？

Do
BN = Application.InputBox("元となる対象明細書一覧の年月を入力してください。1桁の月は02月のように入力）", , Default:="2009.04", Type:=2)
If BN = False Then '入力なければ
GoTo OWARI
End If
WorkPath = ThisWorkbook.Path & "\明細書一覧" & BN & "月"
ChDrive WorkPath
ChDir WorkPath
mySelectFile = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls", _
Title:="対象の明細書を選んで下さい。Ctrlキーを押しながら複数ファイルを同時に選択出来ます。", MultiSelect:=True)
'●●●選択ファイルをCollectionに登録
If IsArray(mySelectFile) Then
myGetFiles.Add mySelectFile
End If
Rtn = MsgBox("他にも対象ファイルがありますか？", vbYesNo, "選択")
If Rtn = vbNo Then
Exit Do
End If
Loop
'●●●Collectionの展開
If myGetFiles.Count = 0 Then
MsgBox "ファイルがひとつも選択されていません！"
GoTo OWARI
End If
Mypath = ThisWorkbook.Path
MyFile = "\請求制御.xls" 'ここにファイル名記入
cnt = 0
'●myGetFilesのチェック
cnt = 0
For Each OpenFileName In myGetFiles
For i = LBound(OpenFileName) To UBound(OpenFileName)
cnt = cnt + 1
If OpenFileName(i) = Mypath & MyFile Then
MsgBox "同じファイルが含まれてます。", vbInformation, "同じファイルは選択出来ません"
GoTo OWARI
End If
'*****同じファイルの選択防止
　　　　　　　　　　　　　←ここを作りたいのです
'*****同じファイルの選択防止完了
tmp = tmp & Dir(OpenFileName(i)) & vbCrLf
Next i
Next OpenFileName
'●選択したファイルの一覧化及び数量の表示
MsgBox vbCrLf & tmp & vbCrLf & "の全" & cnt & "枚です" & vbCrLf & "これらでよろしいですか？ ", vbInformation, "選択したファイルは "

回答No.1

myRange · ベストアンサー

少しは進んでおるようですね。

myGetFilesのチェック以降の部分をメンテ。

'------------------------------------------------------
'●myGetFilesのチェック

■追加■　Dim myDic
■追加■　Set myDic = CreateObject("Scripting.Dictionary")

cnt = 0
For Each OpenFileName In myGetFiles
For i = LBound(OpenFileName) To UBound(OpenFileName)
If OpenFileName(i) = Mypath & MyFile Then
▲▲修正した▲▲MsgBox "請求制御.xls　は選択できません、やり直し", vbOKOnly, "選択エラー"
GoTo OWARI
End If

'*****同じファイルの選択防止
'-----■■コード追加　ここから^----

　If myDic.Exists(OpenFileName(i)) Then
　　　MsgBox Dir(OpenFileName(i)) & "　はダブリ選択、やり直し", vbOKOnly, "選択エラー"
　　　GoTo OWARI
　End If

　　myDic.Add OpenFileName(i), ""

'-----■■ここまで--------------
'*****同じファイルの選択防止完了

cnt = cnt + 1
tmp = tmp & Dir(OpenFileName(i)) & vbCrLf
Next i
Next OpenFileName

追加コードは、■の部分です。▲は修正。

また、ダブり選択があった時点で、OWARIへ飛ばした。

お礼

myRangeさんお早うございます。
原本の選択と重複ファイルの選択を共にDictionaryで処理なのですね。有難うございました。バッチリです。
また、MsgBox の表示まで手を加えてもらいました。助かります。
以前も、時々お世話になりました。重ねてお礼申し上げます。
今後ともよろしくお願い致します。YOKOKAMA46