ダイアログボックスで複数フォルダの複数ファイルの選択

Question

ダイアログボックスで複数フォルダの複数ファイルの選択がうまくいきません。
単一フォルダ内からの複数ファイルの選択は機能しているのですが、ダイアログボックスで他のフォルダを選択して他のファイルを選択すると最終的に選択したファイルのみが残り、先に選択した分が累積されません。　　OpenFileNameが上書きされるのが原因な気がするのですが配列への累積処理が解りません。
その後の処理で選択したファイルを全て開いて加工したいので、累積させる方法を知りたいのです。下記コードは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
    
    OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls", _
                   Title:="対象の明細書を選んで下さい。Ctrlキーを押しながら複数ファイルを同時に選択出来ます。", MultiSelect:=True)

Rtn = MsgBox("他にも対象ファイルがありますか？", vbYesNo, "選択")
If Rtn = vbNo Then
Exit Do
End If
Loop

Mypath = ThisWorkbook.Path
MyFile = "\請求制御.xls" 'ここにファイル名記入    
    If IsArray(OpenFileName) Then
        For i = 1 To UBound(OpenFileName)            
      If OpenFileName(i) = Mypath & MyFile Then
       MsgBox "同じファイルが含まれてます。", vbInformation, "同じファイルは選択出来ません"
      GoTo OWARI
      End If
            tmp = tmp & Dir(OpenFileName(i)) & vbCrLf
      Next
        MsgBox vbCrLf & tmp & vbCrLf & "の全" & i - 1 & "枚です" & vbCrLf & "これらでよろしいですか？ ", vbInformation, "選択したファイルは "

myRange · Accepted Answer

方法はいくつかあるでしょうが、Collectionを使ったサンプル。
但し、質問者提示のコードは動作しているものとする。


'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
'●●●変数宣言
　　Dim myGetFiles As New Collection
　　Dim mySelectFile
'---------------------

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 に変更

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" 'ここにファイル名記入

'●下記のように展開する-------

　For Each OpenFIleName In myGetFiles
　　　For i = UBound(OpenFIleName) To UBound(OpenFIleName)
　　　　　If OpenFIleName(i) = Mypath & MyFile Then
        
　　　・・・・・以下省略・・・・・・
     
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

なお、質問提示のコードにあった
＞If IsArray(OpenFileName) Then
これはここでは不要、Collectionに登録するときチェック済

myRange · Answer

>二回目以降の選択ファイルも配列内に組み入れ開けるようにしたい

そのためのコードですよ。。。(^^;;;

＞For i = LBound(OpenFileName) To UBound(OpenFileName)は1To3となってしまい（ダイアログ二回目以降のファイルが反映されない） 

それは１回目（３個選択）の選択ですからそうなるのは当然です。
１回目と２回目でそこは違ってくるのです。

まだCollectionの中がどうなってるか理解されてないようなので
　　１回目：ファイルを３個選択
　　２回目：ファイルを１個選択
全部で４個選択した場合で説明します。

１回目：　myGetFiles(1)　に、File1,File2,File3　が入る
２回目：　myGetFiles(2)　に、File4　が入る

この状態で下記のコードは、、

For Each OpenFileName In myGetFiles
　　For i = LBound(OpenFileName) To UBound(OpenFileName)

●先ず、myGetFiles(1)　が　OpenFileName　に入る
myGetFiles(1)　には、File1,2,3が入っているので
For i = LBound(OpenFileName) To UBound(OpenFileName)
これは、
For i= 1 to 3
になる

●次に、myGetFiles(2)　が　OpenFileName　に入る
myGetFiles(2)　には、File4　がひとつ入っているので
For i = LBound(OpenFileName) To UBound(OpenFileName)
これは、
For i= 1 to 1
になる

どうですか、ちゃんと４個のファイルを呼び出していますよね。

For Each OpenFileName In myGetFiles
　　For i = LBound(OpenFileName) To UBound(OpenFileName)

要するに、この２行で、４個のファイルを呼び出しているわけです


●これでも納得がいかない場合は、修正した現在のコードを

---------------------------------
'**明細の選択（複数同時）**
Do
BN = Application.InputBox("対象明細書の年月を入力してください。1桁の月は02月のように入力）", , Default:="2009.04", Type:=2)

この部分からファイルを読み込むところまで全て省略しないでアップしてください。
　
ここまでくれば完成したようなものです。

myRange · Answer

いま帰宅。
ちょと気になって覗いてみたら。。。(^^;;;
 
>’●選択したファイル開く
>For i = 1 To cnt
>Workbooks.Open OpenFileName(i)　　　←ここで実行時エラー　13
>　型が一致しませんとなります

それは当然のことです。
回答２のCollectionの展開にはどう書いてありますか？

　For Each OpenFIleName In myGetFiles
　　　For i = UBound(OpenFIleName) To UBound(OpenFIleName)

となってますよね。
そして、質問者は、’●myGetFilesのチェックではちゃんと

cnt = 0
For Each mySelectFile In myGetFiles
For i = LBound(mySelectFile) To UBound(mySelectFile)

こうやってますよね。
なのになぜ、ファイルをオープンするときは、

For i = 1 To cnt
Workbooks.Open OpenFileName(i)

と、For i=1 to cnt　とするのでしょうか。

それから変数OpenFileNameは質問者が提示したコードにありますので
それを極力使うようにした方がいい、と当方が考えてのことです。
（変数mySelectFileはCollectionの登録のときのみ使用）
よって、変数も当方の回答のとおり使うようにしてください。
（もちろん今回のエラーは変数の問題ではありませんが）


'---------------------------------------
’●myGetFilesのチェック

▲▲変数mySelectFileをOpenFileNameに変更した▲▲

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, "選択したファイルは "


’■■■選択したファイル開く■■■

For Each OpenFileName In myGetFiles
　For i = LBound(OpenFileName) To UBound(OpenFileName)

　　　Workbooks.Open OpenFileName(i)　　

'-----------------------------------------------

これでお分かりでしょうか？
それから、前の回答の質問に答えてないとところがありますよ。
　
＞＞どこの段階でどのような配列に入れればよいかが解りません

＞また、これも言いたいことが分かりません。
＞何を配列に入れるのかそれを提示してもらわないと。。

これにもちゃんと答えてもらわないといけませんね。
　

●Collectionの中がどうなっているのか理解してますか？

ま、この回答で完璧に理解できたとは思いますが。
理解できない部分があったら、遠慮なく質問すること。
　
頑張ってください。

myRange · Answer

No2,myRangeです。
タイプミスがあったようですね。
ま、それはご愛嬌ということで。。(^^;;;

＞選択したファイルを開く過程があるのですが、OpenFIleName（i）では開けないので

 　Workbooks.Open OpenFileName(i)

これで開けますよね？
これでは何か拙いことでもあるのでしょうか？
そこらは質問者以外は分かりませんので、補足が必要でしょう。


＞どこの段階でどのような配列に入れればよいかが解りません

また、これも言いたいことが分かりません。
何を配列に入れるのかそれを提示してもらわないと。。


何れにしろ、処理の流れ（最初のは解決したので、その後の流れ）が
明確に読者に伝わるように詳しく説明するべきでしょう。

hana-hana3 · Answer

ダイヤログボックスにはご希望の機能はありません。
ダイアログボックスが開いた時点でバッファーがクリアされるので、その都度別の方法で取得して配列に保存するしか無いと思います。

ダイアログボックスで複数フォルダの複数ファイルの選択

方法はいくつかあるでしょうが、Collectionを使ったサンプル。

この回答への補足

>二回目以降の選択ファイルも配列内に組み入れ開けるようにしたい

いま帰宅。

この回答への補足

No2,myRangeです。

この回答への補足

ダイヤログボックスにはご希望の機能はありません。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング