下記のIf行で配列を返したいのですが、うまくいかずに
Stopステートメントで止まってしまいます（デバッグ用です）。
特に、下記コードを記述したブックを非表示にし、
ダイアログ内でファイルの場所を変更した時に
配列を返さないようです。
どなたか解決方法をご存知の方がいらっしゃったら、
よろしくお願いいたします。
なお、WindowsXP Pro. SP2、Excel2003 SP2です。
Dim OpenFileName As Variant
OpenFileName = Application.GetOpenFilename _
(FileFilter:="dsc,*.dsc,すべてのファイル,*.*", MultiSelect:=True)
If IsArray(OpenFileName) Then
・・・コード・・・
ElseIf OpenFileName <> False Then
Stop
End If
下記のIf行で配列を返したいのですが、うまくいかずに
Stopステートメントで止まってしまいます（デバッグ用です）。
特に、下記コードを記述したブックを非表示にし、
ダイアログ内でファイルの場所を変更した時に
配列を返さないようです。
どなたか解決方法をご存知の方がいらっしゃったら、
よろしくお願いいたします。
なお、WindowsXP Pro. SP2、Excel2003 SP2です。
Dim OpenFileName As Variant
OpenFileName = Application.GetOpenFilename _
(FileFilter:="dsc,*.dsc,すべてのファイル,*.*", MultiSelect:=True)
If IsArray(OpenFileName) Then
・・・コード・・・
ElseIf OpenFileName <> False Then
Stop
End If
下記のIf行で配列を返したいのですが、うまくいかずに
Stopステートメントで止まってしまいます（デバッグ用です）。
特に、下記コードを記述したブックを非表示にし、
ダイアログ内でファイルの場所を変更した時に
配列を返さないようです。
どなたか解決方法をご存知の方がいらっしゃったら、
よろしくお願いいたします。
なお、WindowsXP Pro. SP2、Excel2003 SP2です。
Dim OpenFileName As Variant
OpenFileName = Application.GetOpenFilename _
(FileFilter:="dsc,*.dsc,すべてのファイル,*.*", MultiSelect:=True)
If IsArray(OpenFileName) Then
・・・コード・・・
ElseIf OpenFileName <> False Then
Stop
End If
