Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pass cell contents to MSTSC.EXE (Remote Desktop)
I currenlty have 175 sites of network addresses (1 site per sheet). Each sheet has the IP address I need to connect to in cell B3.
I have a command button that opens Remote Desktop to connect to this address, but I have had to type the address manually into the VBA for each sheet. I am trying to pass the address value in cell B3 to the VBA for the command button. (w.x.y.z is the IP address of the target system) I have tried setting a variable to the contents of cell B3, but can not pass it to mstsc.exe command line Thnaks in advance for assistance with this ex: Private Sub CommandButton1_Click() Dim RetVal ' Run Remote Desktop. RetVal = Shell("c:\windows\system32\mstsc.exe /v:w.x.y.z", 1) End Sub EggHeadCafe.com - .NET Developer Portal of Choice http://www.eggheadcafe.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pass cell contents to MSTSC.EXE (Remote Desktop)
Hi Lawrence,
To concatenate string values, you use the ampersand (&) character. And to get the value of a cell, you can use the Value property of the Range object. Also, you don't need the full path to mstsc, as it is typically in the PATH environment variable (since it resides in a system folder). This code should work: Private Sub CommandButton1_Click() ' Run Remote Desktop. Shell "mstsc.exe /v:" & Range("B3").Value, 1 End Sub -- Regards, Jake Marx www.longhead.com [please keep replies in the newsgroup - email address unmonitored] Lawrence Miller wrote: I currenlty have 175 sites of network addresses (1 site per sheet). Each sheet has the IP address I need to connect to in cell B3. I have a command button that opens Remote Desktop to connect to this address, but I have had to type the address manually into the VBA for each sheet. I am trying to pass the address value in cell B3 to the VBA for the command button. (w.x.y.z is the IP address of the target system) I have tried setting a variable to the contents of cell B3, but can not pass it to mstsc.exe command line Thnaks in advance for assistance with this ex: Private Sub CommandButton1_Click() Dim RetVal ' Run Remote Desktop. RetVal = Shell("c:\windows\system32\mstsc.exe /v:w.x.y.z", 1) End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pass cell contents to MSTSC.EXE (Remote Desktop)
This works perfectly!!! I have added 42 more sheets and do not have to edit the VBA code.
(Actually due to the nature of the software load on the other users I share this spreadsheet with, they require the explicit full path in order to get mstsc to work. It works on my system without the full path) Many, many thanks! Now to tackle my next task with this...... EggHeadCafe.com - .NET Developer Portal of Choice http://www.eggheadcafe.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
EXCEL FILES SAVED TO DESKTOP WILL NOT OPEN FROM DESKTOP | Excel Discussion (Misc queries) | |||
Pass contents of a cell to a macro | Excel Programming | |||
Display cell contents permanently on desktop | Excel Discussion (Misc queries) | |||
Pass cell contents to external program as commandline option | Excel Discussion (Misc queries) | |||
Application.SendKeys won't work with Remote Desktop???? | Excel Programming |