◆ GetOpenFilename()で複数ファイル選択ができない、I
◆ GetOpenFilename()で複数ファイル選択ができない、IsArray()でＮＧ。。。
複数選択のやり方をOKWaveで見つけ便利に活用させて頂いていたのですが、
今年になって、機能しなくなり困っています。手が出ない状況です。
ご教示、よろしくお願いします。
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
概要：Debugでみると、IsArray()の結果がfalse（GetOpenFilename不成功）
使用環境：
Microsoft EXCEL 2002 （10.6856.6853)SP3
Microsoft Visual Basic 6.0
Microsoft Windows XP Professional version 2002 Service Pack 3
不具合の発生箇所：
取込元ファイル = Application.GetOpenFilename(FileFilter:="Excelブック(*.xls),E*.xls", _
Title:="取込元の４ファイルを選択。Ctrlキーを押しながら複数選択。", MultiSelect:=True)
If IsArray(取込元ファイル) Then ' 読む込み成功の確認、IsArray関数
＜問題のマクロ＞
Sub メイン()
' -------------------------------------------------------------------
' - 取込元のファイルを選択してオープン
' -------------------------------------------------------------------
Dim 取込元ファイル, Work1, Work3 As Variant
Dim i As Integer
取込元ファイル = Application.GetOpenFilename(FileFilter:="Excelブック(*.xls),E*.xls", _
Title:="取込元の４ファイルを選択。Ctrlキーを押しながら複数選択。", MultiSelect:=True)
If IsArray(取込元ファイル) Then ' 読む込み成功の確認、IsArray関数
For i = 1 To UBound(取込元ファイル) '配列の上限UBound(データの件数 ４件）
Workbooks.Open 取込元ファイル(i) 'ファイルオープン
Work1 = Dir(取込元ファイル(i))
WORK3 = WORK3 & Work1 & vbCrLf 'ＭＳＧ表示用（取込んだファイル名一覧）
MsgBox "選択したファイルは " & vbCrLf & WORK3 & " ", vbInformation
Next i
Else
MsgBox "取込元ファイルのオープンを" & vbCrLf & "中止しました", vbExclamation
End If
End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
お礼
ご回答ありがとうございます。