Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22802 / 76738

←次へ　｜　前へ→


	【59313】Re:ρ(｡｡、 ) イジイジ

neptune - 08/12/5(金) 18:49 -


	引用なし

	パスワード

▼りったさん：
あ～あ・・・

せっかく書いたんでUPしときます。
ジャグ配列って配列の配列の事です。Variantを利用します。
Collectionに入れても同じことです。

Sub t()
Dim x() As String
Dim y() As Variant
Dim bytBuf() As Byte
Dim fNum As Long
Dim fLen As Long
Dim sBuf As String, sBuf2() As String
Dim i As Long, j As Long
Dim iMax As Long
Const sPath As String = "E:\Data\01HOKKAI.CSV"

　　fLen = FileLen(sPath)
　　ReDim bytBuf(fLen)
　　
　　fNum = FreeFile()
　　
　　Open sPath For Binary As #fNum
　　Get #fNum, , bytBuf
　　Close #fNum
　　
　　sBuf = StrConv(bytBuf, vbUnicode)

　　sBuf2 = Split(sBuf, vbCrLf)
　　iMax = UBound(sBuf2)
　　ReDim y(iMax)
　　For i = 0 To iMax - 1
　　　　x = Split(sBuf2(i), ",")
　　　　y(i) = x　　 '配列に配列を格納する
　　Next i
　　
　　'20番目のレコードを出力してみる
　　iMax = UBound(y(1))
　　For i = 0 To iMax - 1
　　　　Debug.Print y(20)(i)
　　Next i
End Sub

0 hits

▼

【59297】(難)Formulaでエラー。MS社のバグ？ りった 08/12/5(金) 11:22