How to Dim Hummingbird HostExplorer

  • Thread starter Thread starter Dustin H
  • Start date Start date
D

Dustin H

I am using a older version of Hostexplorer and am trying to control it from
excel so that automate some of my tasks. I basicly need to open a vt session
send some commands to get the report pulled then copy the screen and past it
into excel. I have tried. The generic example below and i get a Run-time
error '429':
ActiveX component can't create object. ANy help would be greatly appreciated.

Sub main()
Dim HostExplorer as Object
Set HostExplorer = CreateObject("HostExplorer")
End Sub
 
I would first try to see if you can find the prog id in the Registry. From
the Windows Start menu, choose Run and enter RegEdit. In RegEdit, open the
HKEY_CLASSES_ROOT section and find the ProgID, something along the lines of
"HostExplorer.Application". If you find the right key in the registry, use
that key in your CreateObject statement.


--
Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)
 
I finally got it to work. It is a bit touchy on what it was doing at first
but here is the source code for the module. It open the report by navigating
through the menu items and input the required data to pull the report then
scrapes the screen to put into excel.

Public Sub DialerDataMiner()

'Delcaring Variables

Dim HE
Dim CS
Dim WRow As Integer
Dim STime As String
Dim ETime As String
Dim Campaign As String
Dim Wait As Integer
Dim Book As String

'Setting HostExplorer

Book = ActiveWindow.Caption
Set HE = CreateObject("HostExplorer")
Set CS = HE.CurrentHost

'Filling Variables

Windows(Book).Activate
Sheet1.Activate
WRow = Cells(3, 8).Value
STime = Cells(WRow, 5).Value
ETime = Cells(WRow, 6).Value
Campaign = Cells(WRow, 1).Value
Wait = 300

'Opening Report

CS.Keys ("4^M")
CS.WaitIdle (Wait)
CS.Keys ("l^M")
CS.WaitIdle (Wait)
CS.Keys Campaign
CS.Keys ("^M")
CS.WaitIdle (Wait)
CS.Keys STime
CS.Keys ("^M")
CS.WaitIdle (Wait)
CS.Keys ETime
CS.Keys ("^M")
CS.WaitIdle (Wait)
CS.Keys ("n^M")
CS.WaitIdle (Wait)

'Scraping the screen

CS.Keys ("^M")
CS.Keys ("^M")
CS.WaitIdle (Wait)
CS.Keys ("^M")
CS.Keys ("^M")
CS.WaitIdle (Wait)
CS.Keys ("^M")
CS.Keys ("^M")
CS.WaitIdle (Wait)
CS.Keys ("^M")
CS.Keys ("^M")
CS.WaitIdle (Wait)
CS.Keys ("^M")
CS.WaitIdle (Wait)
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Right")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Select-Extend-Up")
CS.RunCmd ("Edit-Copy")


'Pasting screen scrape

CS.Keys ("q^M")
CS.Keys ("q^M")
Sheet2.Activate
Range("A1").Select
ActiveSheet.paste

'Moving data to summury sheet

Range("K6:P6").Select
Selection.Copy
Sheet1.Activate
Range(Cells(WRow, 7), Cells(WRow, 12)).Activate
Selection.PasteSpecial paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Cleanup

Sheet2.Activate
Columns("A:J").Select
Selection.ClearContents
Sheet1.Activate
CS.WaitIdle (Wait)
CS.Keys ("^M")

End Sub
 
Back
Top