陣列物件ArrayList 與陣列Array混搭問題

本帖最後由 singo1232001 於 2022-2-11 02:12 編輯

Sub ttttt()
Set arL = CreateObject("System.Collections.ArrayList")
Dim br(4)
For i = 1 To 2
arL.Add br
Next
arL(1)(0) = 4
arL.Add 3
arL.Add Array("red", "white", "green")
Debug.Print arL(1)(0)
End Sub

如圖匯入後找不到資料

請問
如何將資料依  列號 or 名稱正確匯入?
如何將單一資料依  列號 or 名稱正確提取?

另外我在網路上找到一個很特殊的用法
Sub ReadRangeExample()
Dim MyList1 As Object
Set MyList = CreateObject("System.Collections.ArrayList")
'Dim MyList As New ArrayList, MyList1 As Object
MyList.Add "Item1"
MyList.Add "Item2"
MyList.Add "Item3"
MyList.Add "Item6"
MyList.Add "Item4"
MyList.Add "Item7"
Set MyList1 = MyList.GetRange(2, 4)
For Each I In MyList1
MsgBox I
Next I
End Sub

嘗試觀察監看式  發現  物件不是消失而是會被暫時輪流關閉

樓主熱帖

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2022-2-12 03:47 | 只看該作者

回復 6# singo1232001

看這個會更加直觀

Sub Array_Arraylist4()
Dim ar(0): Dim br(2): Dim cr(2)
cr(0) = "97": cr(1) = "98": cr(2) = "99":
Set ar(0) = CreateObject("System.Collections.ArrayList")
ar(0).Add br
ar(0).Add Array(1, 2, 3)
ar(0).Add cr
ar(0)(0)(0) = 555
ar(0)(0)(1) = 666
ar(0)(0)(2) = 777
Debug.Print ar(0)(0)(0) & " br空白"
Debug.Print ar(0)(0)(1) & " br空白"
Debug.Print ar(0)(0)(2) & " br空白"
Debug.Print ar(0)(1)(0) & " Array(1, 2, 3, 4)有東西"
Debug.Print ar(0)(1)(1) & " Array(1, 2, 3, 4)有東西"
Debug.Print ar(0)(1)(2) & " Array(1, 2, 3, 4)有東西"
Debug.Print ar(0)(2)(0) & " cr有東西"
Debug.Print ar(0)(2)(1) & " cr有東西"
Debug.Print ar(0)(2)(2) & " cr有東西"
'----以下是在arraylist後新增一個正常的arraylist 並且可以賦值取值
ar(0).Add ""
Set ar(0)(3) = CreateObject("System.Collections.ArrayList")
ar(0)(3).Add ""
Set ar(0)(3)(0) = CreateObject("System.Collections.ArrayList")
ar(0)(3)(0).Add "正常的arraylist新增"
Debug.Print ar(0)(3)(0)(0)
ar(0)(3)(0)(0) = "正常的arraylist修改後"
Debug.Print ar(0)(3)(0)(0)
End Sub

這就是arraylist 這個坑很糟糕的原因

但在某些資料量很大又要區分的情況下又不得不用他

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2022-2-12 03:16 | 只看該作者

本帖最後由 singo1232001 於 2022-2-12 03:23 編輯

Sub Array_Arraylist3()
Dim ar(1)
Dim br(2, 2)
Set ar(0) = CreateObject("System.Collections.ArrayList")
ar(0).Add br
ar(0).Add ""
ar(0).Add Array(1, 2, 3, 4)
ar(0)(0)(0, 0) = 555
ar(0)(0)(0, 1) = 666
ar(0)(0)(0, 2) = 777

Debug.Print ar(0)(0)(0, 0) & "空白"
Debug.Print ar(0)(0)(0, 1) & "空白"
Debug.Print ar(0)(0)(0, 2) & "空白"
Debug.Print ar(0)(2)(0)
Debug.Print ar(0)(2)(1)
Debug.Print ar(0)(2)(2)
Debug.Print ar(0)(2)(3)
End Sub

上述我使用了兩種不同的arraylist包vba陣列匯入方式
一種是空白vba陣列br(2,2)
一種是原本就有資料的vba陣列  array(1,2,3,4)
最後有資料的是第二種
雖然第一種也能執行但資料進不去

注意此案例與上一篇回復的不同
上一篇是使用正規的arraylist嵌套方法
所以ar(0)(0)(0) = 331 有匯入成功
而本篇的
ar(0)(0)(0, 0) = 555 匯入失敗

請高手詳解一下  感謝相關資料實在找不太到

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2022-2-12 02:58 | 只看該作者

本帖最後由 singo1232001 於 2022-2-12 03:10 編輯

回復 4# jackyq

有找到一些蛛絲馬跡

1.使用arraylist時監看式容易異常不能太過相信因為是引用外部(.Net framework)的DLL 非VBA自帶 (上面我有傳影片)
2.只要再arraylist陣列之後或者被arrayList包住  底下就沒有vba陣列  底下的vba陣列會被自動改成arraylist陣列
3.如上述  而在arraylist陣列之前的VBA陣列不受影響也就是 VBA陣列能包住arraylist陣列  但arraylist陣列不能包vba陣列實際操作時被arraylist包住的vba陣列會被強制改成arraylist陣列
4.監看查詢arraylist時可以用ar.item(0) 或者ar(0)的方式查詢也可以輸入但前提是有add一個位置
5.空白的arraylist無法像dctionary(字典)直接連續嵌套arraylist 若要嵌套必須在嵌套前新增 ar.add "" 一個佔位用的位置才可以利用這個位置來重新 Set ar(0) = CreateObject("System.Collections.ArrayList")
6.如上述很麻煩怎麼辦,這時候可以利用第2點的規則  先創一個你想要的vba的N維陣列
比如
Dim br(3, 3, 3) 或者 redim br(3, 3, 3)
Set ar= CreateObject("System.Collections.ArrayList")
ar.Add ""
ar.Add br
就可以直接創造你想要的嵌套陣列
與字典不同的情況是字典印象中不會把vba陣列變成arraylist陣列
(但這種方式不管怎麼嘗試最後好像失敗了雖然陣列架構也有出現. 而且也能正確執行匯入資料,但完全沒顯示任何資料匯入資料會直接進入虛空之中就算debug.print出來也是"空氣" )

Sub Array_Arraylist2()
Dim ar(1)
Dim br(2, 2)
Set ar(0) = CreateObject("System.Collections.ArrayList")
ar(0).Add br
ar(0).Add ""

ar(0)(0)(0, 0) = 555
ar(0)(0)(0, 1) = 666
ar(0)(0)(0, 2) = 777

Debug.Print ar(0)(0)(0, 0)
Debug.Print ar(0)(0)(0, 1)
Debug.Print ar(0)(0)(0, 2)

End Sub

7.展示一個 vba陣列包 arraylist陣列並賦值取值的方法 (為了逐步展示所以不用6的方法)

Sub Array_Arraylist()
Dim ar(1)
Set ar(0) = CreateObject("System.Collections.ArrayList")
ar(0).Add ""
ar(0).Add ""
ar(0).Add Array(11, 12, 13, 14)
Set ar(0)(0) = CreateObject("System.Collections.ArrayList")
ar(0)(0).Add ""
ar(0)(0).Add ""
ar(0)(0).Add ""
ar(0)(0).Add ""
ar(0)(0)(0) = 331
ar(0)(0)(1) = 332
ar(0)(0)(2) = 333
ar(0)(0)(3) = 334
Debug.Print ar(0)(0)(0)
Debug.Print ar(0)(0)(1)
Debug.Print ar(0)(0)(2)
Debug.Print ar(0)(0)(3)
End Sub

研究到最後

若只用arraylist 就可以直接匯入修改
但如果用arraylist 包vba陣列
只有兩個方法能處理修改
首先避免用arraylist包vba陣列的形式  但vba陣列可以包arraylist

但就想直接arraylist包陣列怎麼辦  包括後面用 .Add Array(1,2,3,4) 這種1維陣列也算
第一  使用add+removeat 或remove的方式修改
第二  匯入vba陣列時資料就要先輸入好了輸入好之後就不能再改

TOP

jackyq