programing

Dim As Dictionary.컴파일 오류:사용자 정의 유형이 정의되지 않았습니다.

muds 2023. 7. 20. 22:12
반응형

Dim As Dictionary.컴파일 오류:사용자 정의 유형이 정의되지 않았습니다.

이 문제를 도와주실 수 있나요?이 매크로를 실행할 때마다 다음 위치에서 중지됩니다.

Dim authResult As Dictionary

다음 오류 메시지와 함께: 컴파일 오류:사용자 정의 유형이 정의되지 않았습니다.

사전 유형을 사용한 적이 없으며 샘플 매크로에서 이 코드를 다시 사용하려고 합니다.

이 스크립트의 목적은 Excel을 사용하여 웹 사이트에 휴식 통화를 하여 기록 데이터를 다운로드할 수 있도록 하는 것입니다.저는 현재 로그인 섹션에 갇혀 있습니다.

Sub Login()

    Dim userName As String
    Dim password As String
    Dim apiKey As String

    userName = "username"
    password = "password"
    apiKey = "key123"

    'activityTextbox.Text = ""
    'clearData

    Dim authResult As Dictionary
    Set authResult = restClient.authenticateAccount(userName, password, apiKey)
    If Not authResult Is Nothing Then
        'appendActivity "Connected"
        ' Configure Excel to pull streaming updates as often as possible
        Application.RTD.ThrottleInterval = 0
        ' Uncomment for real-time prices - this is very CPU intensive
        ' Buffer interval defaults to 500ms
        'Application.WorksheetFunction.RTD "IG.api.excel.RTD.IGApiRTDServer", "", "bufferInterval", "0"
        ' Set manual refresh to true from very remote locations
        ' Application.WorksheetFunction.RTD "IG.api.excel.RTD.IGApiRTDServer", "", "manualRefresh", "true"
        ' This will require manually calling refresh to update lighstreamer subscriptions, i.e.
        ' Application.WorksheetFunction.RTD "IG.api.excel.RTD.IGApiRTDServer", "", "refresh"
        Dim maxPriceRequestsPerSecond As Double
        maxPriceRequestsPerSecond = 0  ' all available updates
        If restClient.streamingAuthentication(maxPriceRequestsPerSecond) Then
            m_loggedIn = True
            'populateWatchlists
            'populateAccounts
            'manualStreamingRefresh
        'Else
         '   appendActivity "Lightstreamer connection failure"
        End If
    Else
        MsgBox "Authentication failed"
    End If

End Sub

잘 부탁드립니다.건배, 조

@YowE3k가 말한 대로 Microsoft 스크립팅 런타임에 대한 참조를 추가합니다.

VBA 편집기에서:

도구 -> 참조

AddRef1

Microsoft 스크립팅 런타임 찾기

확인해보세요

확인 클릭

AddRef2

언급URL : https://stackoverflow.com/questions/46128010/dim-as-dictionary-compile-error-user-defined-type-not-defined

반응형