sendkeyin 명령에서 변수를 얻으려고 할 때 형식이 일치하지 않습니다.

Question

마이크로 스테이션에서 VBA를 사용하여 간단하게 찾을 수있는 & 프로그램을 찾으려고합니다. 내 & Text_Find와 & Text Replace가 계속 입력 불일치가 발생합니다. 어떤 도움이라도 대단히 감사하겠습니다.

Sub Main() 


Dim Find_text() As String 
Dim Replace_text() As String 

Find_text = Split("20.50 35.43", " ") 
Replace_text = Split("12.5 43.55", " ") 

' Start a command 

    CadInputQueue.SendKeyin "MDL KEYIN FINDREPLACETEXT,CHNGTXT CHANGE DIALOGTEXT" 

For i = 0 To UBound(Find_text) 
    For j = 0 To UBound(Replace_text) 

    MsgBox Find_text 
    MsgBox Replace_text 

    CadInputQueue.SendKeyin "FIND DIALOG SEARCHSTRING" & Find_text 

    CadInputQueue.SendKeyin "FIND DIALOG REPLACESTRING" & Replace_text 

    CadInputQueue.SendKeyin "CHANGE TEXT ALLFILTERED" 


    Next 
Next 

End Sub 

Answer 1

는 FIND_TEXT 및 REPLACE_TEXT 당신은
은 아마