Excel Ping Command..via web...

[HickoryShade]

I have a 25 page excel workbook that contains specific network equipmen
for 25 remote sites. I have saved it as a web page. Question: Is there
way to ping each network device from the web page. I have used:

Shell ("ping.exe -t " & ActiveCell.Value), vbNormalFocus

but I'm not to sure how to link an active cell (which there is n
active cell on a web page).

Any insight on this would be greatly appreciated....TIA.

 

[Tom Ogilvy]

Dim cell as Range
for each cell in ThisWorkbook.Worksheets("Sheet1").Range("A1:A25")
Shell ("ping.exe -t " & Cell.Value), vbNormalFocus
Next

but not sure what shelling a ping is going to do for your.

--
Regards,
Tom Ogilvy


"HickoryShade" <[email protected]>
wrote in message
news:[email protected]...

 

[HickoryShade]

Thanks for the post......sorry for the newbe question but how would I
incorp. this into the web base excel:

Dim cell as Range
for each cell in ThisWorkbook.Worksheets("Sheet1").Range("A1:A25")
Shell ("ping.exe -t " & Cell.Value), vbNormalFocus
Next

As a vbs and link the cell to it or ??

 

[Tom Ogilvy]

What is the "web base excel"? Are you talking about the Office Web
Components? If so, this is the wrong group. (although someone may have an
answer for you)

In excel itself, you could use the change event. The Web Components support
a much richer event list, but I don't know the particulars.

--
Regards,
Tom Ogilvy







"HickoryShade" <[email protected]>
wrote in message
news:[email protected]...

 

[HickoryShade]

I Save the excel workbook as "Web Page". On each of the 25 pages is
list of IP's. I'm wonding if I can create individual links that woul
ping that active cell and only that active cell. Meaning......File/Sav
as Web Page....Open excel web page/click on link(link is and read
192.168.1.1)/ping that link.....

 

[Tom Ogilvy]

If you click the add interactivity button, then you are using the office web
components I believe.


here is a place to start:

http://support.microsoft.com/default.aspx?scid=kb;en-us;319793
HOW TO: Find Office Web Components (OWC) Programming Documentation and
Samples

--
Regards,
Tom Ogilvy



"HickoryShade" <[email protected]>
wrote in message
news:[email protected]...

 

[HickoryShade]

Thanks for the Info!!.....I was able to google the question a little
more and found somewhat of a solution. I use:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.Range.Address = "$B$16" Then
Shell ("ping.exe -t " & ActiveCell.Value), vbNormalFocus
End If

This is actually within the sheet itself. For every link I add this
code and change "$B$16" to represent the actual cell.....As a workbook
it works great. But when I save it as a web page I lose all
functionality.....Any thoughts on how I might be able to resolve
this....

TIA....