返回列表 上一主題 發帖

[發問] 有沒有甚麼方式可以複製物件?CreateObject("SCRIPTING.DICTIONARY")

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
1# 跳轉到 »
發表於 2016-8-10 10:14 | 顯示全部帖子
回復 5# GBKEE
版大的狀況可能如下：
Sub test()
    Dim D As Object, COPYD As Object, i As Integer
    Set D = CreateObject("SCRIPTING.DICTIONARY")
    Set COPYD = CreateObject("SCRIPTING.DICTIONARY")
    For i = 1 To 50
        D(i) = i * 2
    Next
    MsgBox "D原始數量：" & D.Count
   
    Set COPYD = D
    MsgBox "COPYD原始數量：" & COPYD.Count
   
    D.Remove (5) 'Remove掉D.Keys內一個 5 的值之後
    MsgBox "移除D.Keys內的一個值後....."
   
    MsgBox "D目前數量：" & D.Count
    MsgBox "沒有動到COPYD的狀況下目前數量也是：" & COPYD.Count
End Sub
建議版大是否能於操作前將字典檔D轉成二維陣列待用，當字典檔D操作並RemoveAll之後，再從二維陣列資料餵給字典檔D，只是這種方式不知是否能達成速度的要求。

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題