| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run time error
Hello,
Error is : Run-Time Error-'2147221020(800401e4)' Automation error Invalid syntax code is: Sub mfit1() Dim RIBMApp As Object Set RIBMApp = GetObject("RIBM") RIBMApp.TransmitTerminalKey rcIBMF3Key RIBMApp.Wait 3 RIBMApp.TransmitTerminalKey rcIBMF3Key RIBMApp.Wait 3 RIBMApp.TransmitTerminalKey rcIBMF3Key RIBMApp.WaitForEvent rcKbdEnabled, "30", "0", 1, 1 RIBMApp.WaitForEvent rcEnterPos, "30", "0", 4, 41 RIBMApp.WaitForDisplayString "code:", "30", 4, 34 RIBMApp.TransmitANSI "mjim" RIBMApp.TransmitTerminalKey rcIBMEnterKey RIBMApp.WaitForEvent rcKbdEnabled, "30", "0", 1, 1 RIBMApp.WaitForEvent rcEnterPos, "30", "0", 7, 35 End Sub Error is in : Set RIBMApp = GetObject("RIBM") Pls suggest ASAP |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Run time error
It happens that shai formulated :
Hello, Error is : Run-Time Error-'2147221020(800401e4)' Automation error Invalid syntax code is: Sub mfit1() Dim RIBMApp As Object Set RIBMApp = GetObject("RIBM") RIBMApp.TransmitTerminalKey rcIBMF3Key RIBMApp.Wait 3 RIBMApp.TransmitTerminalKey rcIBMF3Key RIBMApp.Wait 3 RIBMApp.TransmitTerminalKey rcIBMF3Key RIBMApp.WaitForEvent rcKbdEnabled, "30", "0", 1, 1 RIBMApp.WaitForEvent rcEnterPos, "30", "0", 4, 41 RIBMApp.WaitForDisplayString "code:", "30", 4, 34 RIBMApp.TransmitANSI "mjim" RIBMApp.TransmitTerminalKey rcIBMEnterKey RIBMApp.WaitForEvent rcKbdEnabled, "30", "0", 1, 1 RIBMApp.WaitForEvent rcEnterPos, "30", "0", 7, 35 End Sub Error is in : Set RIBMApp = GetObject("RIBM") Pls suggest ASAP GetObject will return a valid ref IF the object exists. You should check for this and if it doesn't exist then use CreateObject() to start an instance of it. -- Garry Free usenet access at http://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Run time error
GS wrote on 04/18/2012 11:57 ET :
It happens that shai formulated : Hello, Error is : Run-Time Error-'2147221020(800401e4)' Automation error Invalid syntax code is: Sub mfit1() Dim RIBMApp As Object Set RIBMApp = GetObject("RIBM") RIBMApp.TransmitTerminalKey rcIBMF3Key RIBMApp.Wait 3 RIBMApp.TransmitTerminalKey rcIBMF3Key RIBMApp.Wait 3 RIBMApp.TransmitTerminalKey rcIBMF3Key RIBMApp.WaitForEvent rcKbdEnabled, "30", "0", 1, 1 RIBMApp.WaitForEvent rcEnterPos, "30", "0", 4, 41 RIBMApp.WaitForDisplayString "code:", "30", 4, 34 RIBMApp.TransmitANSI "mjim" RIBMApp.TransmitTerminalKey rcIBMEnterKey RIBMApp.WaitForEvent rcKbdEnabled, "30", "0", 1, 1 RIBMApp.WaitForEvent rcEnterPos, "30", "0", 7, 35 End Sub Error is in : Set RIBMApp = GetObject("RIBM") Pls suggest ASAP GetObject will return a valid ref IF the object exists. You should check for this and if it doesn't exist then use CreateObject() to start an instance of it. Garry Free usenet access at http://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion Hi, Thanks for your suggestion, but I tried to create Object its giving following error: Run-Time error 429: ActiveX component can't create object I tried the below code to create Object, pls suggest whether it is correct or not.. Set RIBMApp = CreateObject("RIBM") |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Run time error
shai pretended :
GS wrote on 04/18/2012 11:57 ET : It happens that shai formulated : Hello, Error is : Run-Time Error-'2147221020(800401e4)' Automation error Invalid syntax code is: Sub mfit1() Dim RIBMApp As Object Set RIBMApp = GetObject("RIBM") RIBMApp.TransmitTerminalKey rcIBMF3Key RIBMApp.Wait 3 RIBMApp.TransmitTerminalKey rcIBMF3Key RIBMApp.Wait 3 RIBMApp.TransmitTerminalKey rcIBMF3Key RIBMApp.WaitForEvent rcKbdEnabled, "30", "0", 1, 1 RIBMApp.WaitForEvent rcEnterPos, "30", "0", 4, 41 RIBMApp.WaitForDisplayString "code:", "30", 4, 34 RIBMApp.TransmitANSI "mjim" RIBMApp.TransmitTerminalKey rcIBMEnterKey RIBMApp.WaitForEvent rcKbdEnabled, "30", "0", 1, 1 RIBMApp.WaitForEvent rcEnterPos, "30", "0", 7, 35 End Sub Error is in : Set RIBMApp = GetObject("RIBM") Pls suggest ASAP GetObject will return a valid ref IF the object exists. You should check for this and if it doesn't exist then use CreateObject() to start an instance of it. Garry Free usenet access at http://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion Hi, Thanks for your suggestion, but I tried to create Object its giving following error: Run-Time error 429: ActiveX component can't create object I tried the below code to create Object, pls suggest whether it is correct or not.. Set RIBMApp = CreateObject("RIBM") Try... Set RIBMApp = CreateObject("RIBM.Application") ...where RIBM.exe is a properly installed/registered app on your machine. Otherwise, if it's a COM component then you need to set a reference to it in the VBE via ToolsReferences! -- Garry Free usenet access at http://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| run time error 1004 general odbc error excel 2003 vba | Excel Programming | |||
| Error handling error # 1004 Run-time error | Excel Programming | |||
| Run Time Error 1004: Application or Object Defined Error | Excel Programming | |||
| run-time error '1004': Application-defined or object-deifined error | Excel Programming | |||
| Befuddled with For Next Loop ------ Run - Time Error '13' Type Mismatch Error | Excel Programming | |||
Hybrid Mode
