◆ GetOpenFilename()で複数ファイル選択ができない、I
◆ GetOpenFilename()で複数ファイル選択ができない、IsArray()でNG。。。
複数選択のやり方を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:="取込元の4ファイルを選択。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:="取込元の4ファイルを選択。Ctrlキーを押しながら複数選択。", MultiSelect:=True)
If IsArray(取込元ファイル) Then ' 読む込み成功の確認、IsArray関数
For i = 1 To UBound(取込元ファイル) '配列の上限UBound(データの件数 4件)
Workbooks.Open 取込元ファイル(i) 'ファイルオープン
Work1 = Dir(取込元ファイル(i))
WORK3 = WORK3 & Work1 & vbCrLf 'MSG表示用(取込んだファイル名一覧)
MsgBox "選択したファイルは " & vbCrLf & WORK3 & " ", vbInformation
Next i
Else
MsgBox "取込元ファイルのオープンを" & vbCrLf & "中止しました", vbExclamation
End If
End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー