VBA 二次元配列のデータをSplitして変数に格納するときの挙動は？

Question

あけましておめでとうございます。

VBAに関する質問です。

二次元配列FileName(0,1,2)(0,1,2)があり、
それぞれ下記のデータが格納されているとします。

Dim FileName As Variant
FileName = Array(0,1,2)(0,1,2)
FileName(0,0) = "a\b\c"
FileName(0,1) = "a\e\f\k\s\t\h"
FileName(0,2) = "b\f\g\a"
FileName(1,0) = "g\g\h"
FileName(1,1) = "k\h\s\q"
・
・
FileName(2,2) ="k\l\p"

私が今やりたいことが、FileNameのそれぞれのデータのファイルパスを、
""でSplitしたデータをtmpとして格納することで、
下記のようなイメージで取得をしたいと考えていますが、
実際にうまく取れないと思います。
(tmpを永遠と上書きしているので最後のFileName(2,2)しか取れないことをは承知しています。）

Dim tmp As Variant
    For i = 0 To 3
        For j = 0 To 3
            tmp = Split(FileName(i, j), "\")
        Next j
    Next i

ただ、上記コードのtmpを配列にして、この問題が解決できるものかわかりません。

tmpの宣言を二次元配列とした場合、

Dim Tmp As Variant
Tmp = Array(0,1,2)(0,1,2)
    For i = 0 To 3
        For j = 0 To 3
            tmp(i,j) = Split(FileName(i, j), "\")
        Next j
    Next i

とすれば一見できそうですが、Splitで配列が作成されるので、
tmpは三次元配列になってしまう？と思います。

どのように解決すればよろしいでしょうか。
アドバイスお願いいたします。

Answer 1

Split()は要素の分解であり、配列が返却されることはありません。
分解したものを配列にしたいのなら、各配列に格納し直さなければなりません。

そもそもパスを分解する目的があるなら、Splitで分解する時に行えば良いことだし、
配列に入れ直すことが効率良いというのが思い付かないのですが。

Comments

[hatena19]

Split 関数
https://msdn.microsoft.com/ja-jp/vba/language-reference-vba/articles/split-function?f=255&MSPPError=-2147217396
によると、「1 次元 配列を返します。」とありますね。
分解された要素の配列を返すと思います。

[sazi]

ご指摘のとおりです。

Answer 2

配列の要素に配列を格納するということになりますね。このような配列をジャグ配列といいます。

VBAでジャグ配列(多段階配列)を作るには - t-hom’s diary

今回の場合は、二次元配列の要素にSplitで返された１次元配列を格納するということになります。

ちなみに、
FileName = Array(0,1,2)(0,1,2)
はエラーになりますね。
そもそもArray関数では一次元配列しか作成できません。

コード例は他の方が書かれていますので、そちらをご参考に。

Answer 3

2次元配列の値がsplitによる1次元配列なだけです。3次元ではありません。
「解決する」というのがどういうことか質問からはわかりません。

    Dim FileName(2, 2) As Variant
    FileName(0, 0) = "a\b\c"
    FileName(0, 1) = "a\e\f\k\s\t\h"
    FileName(0, 2) = "b\f\g\a"
    FileName(1, 0) = "g\g\h"
    FileName(1, 1) = "k\h\s\q"
    FileName(1, 2) = "k\h\s\q"
    FileName(2, 0) = "k\h\s\q"
    FileName(2, 1) = "k\h\s\q"
    FileName(2, 2) = "k\l\p"
    
    Dim Tmp(2, 2) As Variant
    
    Dim i As Long, j As Long
    
    For i = 0 To 2
        For j = 0 To 2
            Tmp(i, j) = Split(FileName(i, j), "\")
        Next j
    Next i
    
    Debug.Print Tmp(0, 0)(0) 'a
    Debug.Print Tmp(0, 0)(1) 'b
    Debug.Print Tmp(0, 0)(2) 'c

Answer 4

まず、「Tmp = Array(0,1,2)(0,1,2)」は、
「Redim Tmp(Lbound(FileName ,1) to Ubound(FileName ,1),Lbound(FileName ,2) to Ubound(FileName ,2))」
にすべきでは？

そして、何が問題かが分かりかねます。
２次元配列の各要素に、Splitした１次元配列が入るだけのことです。

要素には、tmp(i,j)(n) 等でアクセスするだけですよ。