Βοήθεια για excel (τηλεφωνο)

[sotos82]

Για χαρα ,

θελω μεσα απο αρχειο excel εαν ισχύει μια συνθήκη να παρει ενα τηλέφωνο ή να στελνει ενα μήνυμα σε κινητο!

Μπορει κανεισ να με βοηθήσει.

ΕΥΧΑΡΙΣΤΩ

[leukonas]

Koitakse ayto pou theleis to excel apo mono tou de nomizo na to kanei dld ime peripou sigouros.Ksero omos oti mporeis na breis(i na to ftiaxeis esi an ksereis) kapio component gia Visual Basic kai na to kaneis import sto excel(Ksero oti ginete stin access den ksero gia to excel sigoura).

[sotos82]

Μηπως μπορεις να μου δώσεις κάποιες οδηγίες να το ψάξω.

[leukonas]

sotos katarxin prepei na breis an to excel dexete components tis visual basic.ayto mporeis na to breis apo to google gia paradeigma,apo ti selida tis microsoft i apo kapio kalo vivlio gia excel.elexe prota ayto kai meta blepoume gia to component.

[leukonas]

xm sotos82 me mia proxeiri matia eida pos kati tetio sto excel den ginete.i access den se boleuei?

[alkisg]

Το excel έχει την VBA (Visual Basic for Applications) και μπορεί και τηλέφωνα να κάνει και άλλα προγράμματα να εκτελέσει. Δεν ξέρω όμως αν θα βρεις έτοιμο τον κώδικα γι' αυτό που θες, ίσως χρειαστεί να πληρώσεις έναν προγραμματιστή για να στο φτιάξει.

[leukonas]

Opote afou o filos alkisg einai sigouros pos ginete rikse mia matia edo mipos breis kanena etoimo component

 

http://www.mentalis.org/agnet/appdown.shtml

http://www.developerfusion.com/

http://www.codearchive.com/search.php?search=calculator&cat=0200&start=10&sdescr=on&scomm=on

http://www.vbexplorer.com/VBExplorer/Downloads/VB_Downloads.asp

http://www.magictree.com/vbcourse/

http://www.a1vbcode.com/code.asp?type=vb&intPage=2

[kounoupi]

Για μήνυμα σε κινητό δεν ξέρω και δεν νομίζω ότι υπάρχει τουλάχιστον χωρίς χρέωση. Όσο για το τηλέφωνο είναι πολύ πιο εύκολο από ότι φαντάζεσαι. Με Vba μόνο.

 

Υποθέτω ότι έχεις ένα Excel όπου στην στήλη Α έχεις ονόματα και στην στήλη Β έχεις τηλέφωνα.

Κάνεις μια καινούργια macro με τον εξής κώδικα:

 

Sub DialOut()

Dim strDial As String

Dim intReturn As Long

strDial = ActiveCell.EntireRow.Columns("B").Value

intReturn = Shell("C:\Program Files\Windows NT\Dialer.exe", 1)

Application.SendKeys (strDial & "%d")

End Sub

 

με το σωστό path για windows 95 παίζει , για win xp παίζει χωρίς την τελευταία γραμμή όπου απλά ανοίγει η εφαρμογή και πληκτρολογείς μόνος σου το νούμερο.

Επειδή όμως δεν νομίζω να έχεις windows 95 και επειδή θες το excel σου να παίζει και σε ελληνικά και σε αγγλικά windows (έχουν διαφορά στα shortcut που χρησιμοποιείς, πχ. η τελευταία σειρά είναι το Alt+D όπου βεβαίως σε ελληνικά windows xp δεν παίζει) τότε το πιο εύκολο που μπορείς να κάνεις είναι να βρεις ένα dialer που υποστηρίζει και παραμέτρους (της microsoft δεν υποστηρίζει από όσο ξέρω) και να χρησιμοποιήσεις αυτό

Σου προτείνω ftp://ftp.futurenet.co.uk/pub/pcplus/helpdesk/dial.exe

24Κ

 

και ο κωδικάς σου

(πάλι για Column B τα τηλέφωνα)

 

Sub Dial()

Dim strDial As String

Dim intReturn As Long

strDial = ActiveCell.EntireRow.Columns("B").Value

intReturn = Shell("c:\Dial.exe " & strDial, vbNormalFocus)

End Sub

 

στην τελευταία σειρά είναι σημαντικό μετά το dial.exe ένα space πριν το "

 

Extra tip: το επιλεγμένο κελί μπορεί να είναι οποιδήποτε στην σωστή σειρά πχ. αν το επιλεγμένο είναι το Κ2 τότε θα καλέσει το τηλέφωνο που είναι καταχωρημένο στο Α2

[sotos82]

αρχιζω το ψαξιμο και θα σας ανημερωσω.

ευχαριστω

[UserXP]

Στο Workbook που δουλεύεις, κάνε insert ένα module και κάνε paste τον παρακάτω κώδικα

 

>
Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long

Public Sub PhoneCall(sNumber As String, sName As String)
   Dim lRetVal As Long
   lRetVal = tapiRequestMakeCall(Trim$(sNumber), Application.Name, Trim$(sName), "")
   If lRetVal <> 0 Then
       'Κάποιο λάθος προέκυψε
   End If
End Sub

 

 

Τώρα σε όποια sub ή macro θέλεις να κάνεις την κλήση, χρησιμοποίησε την

PhoneCall "123456", "aName"

(θα τρέξει ο τηλεφωνητής των windows)