Excel Ping Command..via web...

[HickoryShade]

I have a 25 page excel workbook that contains specific network equipment for 25 remote sites. I have saved it as a web page. Question: Is there a 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 no 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" <HickoryShade.1zxjxz_1134396005.27@excelforum-nospam.com>
wrote in message
news:HickoryShade.1zxjxz_1134396005.27@excelforum-nospam.com...
>
> I have a 25 page excel workbook that contains specific network equipment
> for 25 remote sites. I have saved it as a web page. Question: Is there a
> 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 no
> active cell on a web page).
>
> Any insight on this would be greatly appreciated....TIA..
>
>
> --
> HickoryShade
> ------------------------------------------------------------------------
> HickoryShade's Profile:
http://www.excelforum.com/member.php...fo&userid=2667
> View this thread: http://www.excelforum.com/showthread...hreadid=492700
>

[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" <HickoryShade.1zxp1b_1134402602.9815@excelforum-nospam.com>
wrote in message
news:HickoryShade.1zxp1b_1134402602.9815@excelforum-nospam.com...
>
> 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 ??
>
>
> --
> HickoryShade
> ------------------------------------------------------------------------
> HickoryShade's Profile:
http://www.excelforum.com/member.php...fo&userid=2667
> View this thread: http://www.excelforum.com/showthread...hreadid=492700
>

[HickoryShade]

I Save the excel workbook as "Web Page". On each of the 25 pages is a list of IP's. I'm wonding if I can create individual links that would ping that active cell and only that active cell. Meaning......File/Save as Web Page....Open excel web page/click on link(link is and reads 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...b;en-us;319793
HOW TO: Find Office Web Components (OWC) Programming Documentation and
Samples

--
Regards,
Tom Ogilvy



"HickoryShade" <HickoryShade.1zxw7m_1134411902.5532@excelforum-nospam.com>
wrote in message
news:HickoryShade.1zxw7m_1134411902.5532@excelforum-nospam.com...
>
> I Save the excel workbook as "Web Page". On each of the 25 pages is a
> list of IP's. I'm wonding if I can create individual links that would
> ping that active cell and only that active cell. Meaning......File/Save
> as Web Page....Open excel web page/click on link(link is and reads
> 192.168.1.1)/ping that link......
>
>
> --
> HickoryShade
> ------------------------------------------------------------------------
> HickoryShade's Profile:
http://www.excelforum.com/member.php...fo&userid=2667
> View this thread: http://www.excelforum.com/showthread...hreadid=492700
>

[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....