Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Phone Dialer in XP
I'm having trouble using VBA to dial a number from an Excel Cell in XP
Prior to XP I user John Lacher's code: (updated to new folder location in XP -C:\Program Files\Windows NT) Sub AutoDialer() Dim strDial As String Dim intReturn As Integer strDial = ActiveCell.EntireRow.Columns("B").Value intReturn = Shell("C:\Program Files\Windows NT\Dialer.exe", 1) '\ verify correct path Application.SendKeys ("{F5}" & strDial & "~") End Sub Any Ideas on what's missing? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Phone Dialer in XP
strDial = ActiveCell.EntireRow.Columns("B").Value
try strDial = ActiveCell or strDial = ActiveCell.value OR this maybe from a number in a cell Sub CellToDialer() 'John Walkenbach ' Transfers active cell contents to Dialer ' And then dials the phone ' Get the phone number CellContents = ActiveCell.Value If CellContents = "" Then MsgBox "Select a cell that contains a phone number." Exit Sub End If ' Activate (or start) Dialer Appname = "Dialer" AppFile = "Dialer.exe" On Error Resume Next AppActivate (Appname) If Err < 0 Then Err = 0 TaskID = Shell(AppFile, 1) If Err < 0 Then MsgBox "Can't start " & AppFile End If ' Transfer cell contents to Dialer Application.SendKeys "%n" & CellContents, True ' Click Dial button Application.SendKeys "%d" ' Application.SendKeys "{TAB}~", True End Sub -- Don Guillett SalesAid Software "Vacation's Over" wrote in message ... I'm having trouble using VBA to dial a number from an Excel Cell in XP Prior to XP I user John Lacher's code: (updated to new folder location in XP -C:\Program Files\Windows NT) Sub AutoDialer() Dim strDial As String Dim intReturn As Integer strDial = ActiveCell.EntireRow.Columns("B").Value intReturn = Shell("C:\Program Files\Windows NT\Dialer.exe", 1) '\ verify correct path Application.SendKeys ("{F5}" & strDial & "~") End Sub Any Ideas on what's missing? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to set up an phone dialer with Excel? | Excel Programming | |||
How can I cross reference phone numbers with existing phone numbe. | Excel Discussion (Misc queries) | |||
Phone Dialer | Excel Discussion (Misc queries) | |||
Dialer wont start | Excel Programming | |||
Cell to dialer script with win xp | Excel Programming |