Excel VBA 質問スレ Part49©2ch.net

[1 デフォルトの名無しさん 転載ダメ©2ch.net (ﾜｯﾁｮｲ bb2e-8SzA) 2017/06/26(月) 02:15:14.60 ID:T3ylemnb0]

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part48
http://mevius.2ch.net/test/read.cgi/tech/1494890685/

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured

[44 デフォルトの名無しさん (ﾜｯﾁｮｲ 066d-B6M/) 2017/06/29(木) 22:23:02.61 ID:InemyE5a0]

>>43
splitしたのがうまく行ってないと思う
ステップイン　で実行しながら
ウォッチ式　を見ると変数の中身が分かり安いよ

そのテキストを上げてもらえればこっちでも確認する

[45 デフォルトの名無しさん (ﾜｯﾁｮｲ 4211-nP2k) 2017/06/29(木) 22:33:09.86 ID:+TVRrlUj0]

>>43
これ通るの？
　　　For j = 0 to 1
　　　　　sqrDim( i ) = Split( sqrDim( i ), vbTab )
　　　Next j
で sqrDim( i ) を２回splitしてる。
１回めは文字列のsplitだからいいけど、２回めは配列のsplitになってエラーになりそうだけど。
For j のループは不要。

あとついでに
For i = 0 to UBound( tmpDim ) - 1
だとTextDataの最終行のデータが配列に格納されないけど問題ないか？

[46 デフォルトの名無しさん (ﾜｯﾁｮｲ 42aa-wjSU) 2017/06/29(木) 22:47:04.00 ID:CQo0iGok0]

>>43
こうでしょ

　Dim tmpDim As Variant
　Dim sqrDim As Variant

　tmpDim = Split( TextData, vbLf )
　ReDim sqrDim(LBound(tmpDim), UBound(tmpDim))
　For i = LBound(tmpDim) to UBound( tmpDim )
　　　　　sqrDim( i ) = Split( tmpDim( i ), vbTab )
　Next i

sqrDimは２次元配列じゃなくて配列の配列になるけど、むしろこっちの方があとで楽だと思う。