Ring op fra Excel

Tror ikke du kan få excel til at ringe op. Der skal du nok ud i noget applikationsprogrammering (C++, Java, VB osv). Der programmet så henter data fra Excel.

Det kan väre der findes nogle färdige applikationer som kan köbes, på nettet.

Muligheden foreligger ved brug af makro.
hvilket styresystem bruger du og hvilken excel-version ?

Att: Bak

Jeg bruger Windows XP m/ SP2 Og Ms Office 2003

Jeg har lavet det før, men kigger lige efter i aften.
Princippet bygger på at overføre numrene i en celle til det indbyggede opkaldsprogram i windows

Sæt nedenstående kode ind i et i regnearket og kør Sub RightClickMenu
Du får så et nyt menupunkt øverst på din højrekliksmenu når du højreklikker i en celle.
Hvis du klikker på "Ring nummeret op" åbnes excel filen Dialer.exe der er standardudstyr i windows og indsætter det telefonnummer der er i cellen og forsøger at kalde op.
Der kan vise sig nogen stiproblemer men dem tager vi hen ad vejen


Option Explicit

Sub CellToDialer()
'  Sender cellens indhold til Dialer.exe
'  og ringer op
Dim CellContents
Dim AppName                As String
Dim AppFile                As String
Dim TaskId

  '  hent telefonnummeret
  CellContents = ActiveCell.Value
  If Len(CellContents) < 8 Then
      MsgBox "Vælg en celle, der indeholder et telefonnummer."
      Exit Sub
  End If

  '  Activer (eller start) Dialer
  AppName = "Opkaldsstyring"
  AppFile = "C:\Programmer\Windows NT\dialer.exe"
  On Error Resume Next
  AppActivate (AppName)
  If Err <> 0 Then
      Err = 0
      TaskId = Shell(AppFile, 1)
      If Err <> 0 Then MsgBox "Kan ikke starte " & AppFile
      Application.Wait (Now + TimeValue("0:00:02"))
  End If

  Application.SendKeys "%TR {enter}"
  Application.Wait (Now + TimeValue("0:00:01"))
  Application.SendKeys CellContents, True
  Application.SendKeys "{enter}"

End Sub


Sub RightClickMenu()
Dim NewItem
Dim cbBar                  As CommandBar
Dim lIndex                As Long
  Set cbBar = CommandBars("Cell")
  lIndex = cbBar.Controls("Klip").Index
  Set NewItem = cbBar.Controls.Add(msoControlButton, , , lIndex)
  With NewItem
      .Caption = "Rin&g nummeret op"
      .OnAction = "CellToDialer"
  End With
  Set NewItem = Nothing
End Sub


Sub RightClickMenuReset()
  On Error Resume Next
  CommandBars("Cell").Controls("Ring nummeret op").Delete
End Sub

Må jeg nok sige, blev lidt imponeret der. Excel kan mere end man tror ;o)

Att Bak:

Skal jeg indsætte koden i celle A1. ?

Nej.
Du skal trykke Alt-F11 for at komme til makro-editoren
Her skal du klikke på Insert og vælge at indsætte et Modul
I dette modul indsætter du hele koden.
Tryk Alt-F11 for at vende tilbage til excel.
Under Funktioner / Makro / Makroer skal du så vælge at afspille makroen RightClickMenu
.

Hej.

excel ringer godt nok op til min mobil, men min mobil modtager ikke opkaldet fra Excel.

Åbnes opkaldsstyringen ?

Hej Bak.

Ja, opkaldsstyringen starter op.
Når jeg så klikker på samtale, arbejder den som om at samtalen er igang, men den ringer ikke til vores telefon

Hej Igen Bak.

Der står følgende meddelelse i højre side af opkaldsstyringen.

Den valgte server svarer ikke. Den er muligvis nede eller midlertidligt overbelastet. Klik på opdater for at prøve igen.

Har du et alm. modem koblet på ?

Jeg køre bredbånd med trådløst.

Så tror jeg ikke du kan bruge det.
Hvis du kører bredbånd, kan du ikke via bredbåndet ringe op til en normal telefon/mobiltelefon.
Du vil sansynligvis kunne benytte IP-telefoni, men det kender jeg ikke nok til.
Der må du spørge i en af de andre grupper.

OK

Den kode du har oplyst, findes der en hjemmeside hvor man kan se flere af disse koder. ?

Der findes et utal af koder på nettet. Bare søg på VBA Excel + søgeord.
Ovenstående kode findes nok ikke, da jeg selv har lavet den :-)

Generelt: ville det ikke være rart, hvis spørgere skriver deres versionsnummer i spørgefeltet, så folk, der endnu ikke har haft råd til win2000, xp eller 2003 ikke behøver ulejlige sig. Her kunne fx. have stået win03, excel, ring op fra.