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
"Chip Pearson" wrote:
> 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)
>
>
>
>
> "Dustin H" <Dustin (E-Mail Removed)> wrote in message
> news:709254E0-8586-478C-A0A1-(E-Mail Removed)...
> >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
>
Similar Threads
