Question

＆＃34;频道＆＃34;，＆＃34;脸书＆＃34;，＆＃34; Instagram＆＃34;和＆＃34; twitter＆＃34;是＆＃34;对象＆＃34;数据类型

＆＃34;我＆＃34;，＆＃34; j＆＃34;和＆＃34; k＆＃34;是＆＃34;整数＆＃34;数据类型

＆＃34; WS＆＃34;是＆＃34; Woksheet＆＃34;数据类型

Set channel = CreateObject("Scripting.Dictionary")

With channel

    .Add "facebook", facebook
    .Add "instagram", instagram
    .Add "twitter", twitter

End With

Set facebook = CreateObject("Scripting.Dictionary")

With facebook

    .Add "brand", 0
    .Add "post", 0
    .Add "likes", 0
    .Add "comments", 0
    .Add "boosted", 0
    .Add "shares", 0

End With

Set instagram = CreateObject("Scripting.Dictionary")

With instagram

    .Add "brand", 0
    .Add "post", 0
    .Add "likes", 0
    .Add "comments", 0

End With

Set twitter = CreateObject("Scripting.Dictionary")

With twitter

    .Add "brand", 0
    .Add "post", 0
    .Add "likes", 0
    .Add "retweets", 0
    .Add "is retweet", 0

End With

For Each ws In Sheets

    For i = 0 To channel.count - 1

        If channel.Keys()(i) = ws.name Then

            Sheets(ws.name).Activate
            emptyCol = WorksheetFunction.CountA(Range("1:1"))
            emptyRow = WorksheetFunction.CountA(Range("A:A"))

            For j = 1 To emptyCol

                For k = 0 To channel(channel.Keys()(i)).count - 1

                    If InStr(Cells(1, j), channel(channel.Keys()(i)).Keys()(k)) <> 0 Then

                        channel(channel.Keys()(i))(channel(channel.Keys()(i))) = j
                        MsgBox channel(channel.Keys()(i)) & "." & channel(channel.Keys()(i)) & "=" & j

                    End If

                Next k

            Next j

        End If

    Next i

Next ws

即将出现的错误是：

突出显示以下代码：For k = 0 To channel(channel.Keys()(i)).count - 1

Answer 1

您以错误的顺序组装Dictionary个对象。当这段代码运行时......

With channel
    .Add "facebook", facebook
    .Add "instagram", instagram
    .Add "twitter", twitter
End With

... facebook，instagram和twitter未设置为任何内容。我猜他们也没有宣布，所以你要存储空的Variant而不是对象。当您最终创建实际对象时，由于它们存储在Dictionary 中的值，所以它太晚了，因此基础变量只会更改为指向新对象。请参阅Why should I dimension my variables in VBA really?。

立即解决方法是重新排序代码的顶部部分，如...

Set facebook = CreateObject("Scripting.Dictionary")
With facebook
    .Add "brand", 0
    .Add "post", 0
    .Add "likes", 0
    .Add "comments", 0
    .Add "boosted", 0
    .Add "shares", 0
End With

Set instagram = CreateObject("Scripting.Dictionary")
With instagram
    .Add "brand", 0
    .Add "post", 0
    .Add "likes", 0
    .Add "comments", 0
End With

Set twitter = CreateObject("Scripting.Dictionary")
With twitter
    .Add "brand", 0
    .Add "post", 0
    .Add "likes", 0
    .Add "retweets", 0
    .Add "is retweet", 0
End With

Set channel = CreateObject("Scripting.Dictionary")
With channel
    .Add "facebook", facebook
    .Add "instagram", instagram
    .Add "twitter", twitter
End With

解决方案是添加Option Explicit，确保您的变量被正确声明。

对象未定义

1 个答案: