GetOpenFilenameで開いたファイル名を格納するデータ型 |
GetOpenFilenameでMultiSelectをTrueにしてファイル名を複数とり処理したいのですが取得したものを格納するデータ型は何にすればよいのでしょうか。 |
Variant型です。以下のようになります。 Dim XXX As Variant XXX = Application.GetOpenFilename(…省略…, True) ここからは老婆心ですが。 XXXには、ファイルが選択された場合は配列、選択されなかった 場合はブール型のFalseが返ります。他の型が返ることはないよう ですので、配列でなければ選択されなかったと考えた方が簡単だと 思います。 サンプル: Dim XXX As Variant, i As Integer XXX = Application.GetOpenFilename(…省略…, True) If (VarType(XXX) And vbArray) = 0 Then ' ファイルが選択されなかったときの処理 Else ' ファイルが選択された For i = 1 To UBound(XXX) ' XXX(i) を処理する Next End If |