반응형
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 편집기에서:
도구 -> 참조
Microsoft 스크립팅 런타임 찾기
확인해보세요
확인 클릭
언급URL : https://stackoverflow.com/questions/46128010/dim-as-dictionary-compile-error-user-defined-type-not-defined
반응형
'programing' 카테고리의 다른 글
꺼내기 요청에서 GitHub 클론? (0) | 2023.07.20 |
---|---|
sys.path /PYthonPATH에 디렉토리 추가 (0) | 2023.07.20 |
타임스탬프/날짜 시간을 UTC에서 EST Oracle SQL로 변환 (0) | 2023.07.20 |
ODP를 지우는 방법.연결 오류 시 NET 연결 풀? (0) | 2023.07.20 |
ORA-01465: BLOB를 사용하는 동안 오라클의 16진수가 잘못되었습니다. (0) | 2023.07.20 |