- This topic has 5 Antworten, 3 Stimmen, and was last updated 20:47 um 10. Januar 2005 by DiMarco76.
- AutorBeitrag
- 31. Dezember 2004 um 16:40 #26466DiMarco76Participant
Hallo Leutz und nen guten Rutsch wünsch ich,
über die Codeseite von Helen Feddema http://www.helenfeddema.com/CodeSamples.htm bin ich zur Lösung gekommen, wie ich eine vorhandene Excel-Tabelle im Outlook Kontakt direkt über einen Button aufrufen kann. Dies funktioniert übrigens auch mit PDF und DOK/DOT-Dateien (siehe: http://www.tek-tips.com/viewthread.cfm?qid=918953&page=1 und http://www.tek-tips.com/viewthread.cfm?qid=875434&page=1 der Code ganz unten!).
Meine Frage: Ist es auch möglich, vorausgesetzt man benütze verschiedene Kontaktformulare, sich z.B. das Ergebnis einer Berechnung in einer Exceltabelle (z.B. der angelaufene Jahresumsatz mit einem Kunden, Summe offener Provisionsansprüche gegenüber eines Kunden, o.ä) im Kundenkontakt anzeigen zu lassen, und zwar über die Verknüpfung immer aktualisiert?
Grüße Dimi
[Editiert am 31/12/2004 von DiMarco76]
31. Dezember 2004 um 16:53 #89445lastwebpageModeratorHallo,
Ja das geht,mittels VBA sind die einzelnen Anwendungen und Dokumente von Office relativ enfach untereinander aufruf- und editierbar.Wie das jetzt im einzelnen ganz genau geht,nun ja,vielleicht findest du hier was:
unter programmierung.Peter
31. Dezember 2004 um 19:51 #89455UnbekanntParticipantHallo Peter,
danke für die schnelle Antwort.
Hmm, scheint wohl was für erfahrene Programmierer zu sein… Sue Mosher spricht zu ähnlichen Thematiken immer davon, erstmal die Kontrolle über Excel mit Outlook herzustellen, ich glaube, dafür braucht man gute Kenntnisse.
Bin ja eher Anwender, der immer mal wieder etwas ausprobiert, aber selbst nicht programmieren kann 🙁
Aber falls jmd. dieses Thema interessiert und er eine Lösung einfach beschrieben liefern kann, wäre ich natürlich auch weiterhin dankbar…Guten Rutsch ins neue Jahr
Dimi31. Dezember 2004 um 20:00 #89457lastwebpageModeratorHallo,
tja was soll ich sagen,also gehen tut das,ich habs selber in dieser Kombination aber noch nicht gemacht,aber nun ja von Access aus ein Word Formular zu füllen hört sich sehr ähnlich an….Nun ja ich muss dir recht geben,so \“ganz normale Standart User\“ dafür ist das nicht unbedingt gedacht,aber das gane ist eigentlich auch nicht sehr viel komplizierte als der VBScript einer HTML Seite…
Peter
10. Januar 2005 um 17:46 #90315DiMarco76ParticipantHier meine eigene Lösung des Problems:
Benutze hier die Exceldatei E:\\Test1.xls und zeige den Inhalt der Zelle B1 in Tabelle2.
Man muß ein Texfeld im Formular erzeugen und es cmdXLCell nennen.Function Item_Open()
Call cmdXLCell()
End FunctionSub cmdXLCell()
Set objExcelApp = Item.Application.CreateObject(\“Excel.Application\“)
Set objExcelBook = objExcelApp.Workbooks.Open(\“E:\\Test1.xls\“)
Set objExcelBook = objExcelApp.ActiveWorkbook
Set objExcelSheets = objExcelBook.Worksheets
Set objExcelSheet = objExcelBook.Sheets(2)
objExcelSheet.Activate
objExcelApp.Application.Visible = False
cellvalue = objExcelSheet.Range(\“A1\“).Value
Set objPage = Item.GetInspector.ModifiedFormPages(\“Allgemein\“)
Set objControl = objPage.Controls(\“cmdXLCell\“)
objControl.Value = cellvalue
End SubGrüße und viel Spaß damit.
DimiHab mich totgegooglet und nix vollständiges dazu gefunden. Das hier funktioniert nun dank der freundlichen Unterstützung von Fr. Mosher!
10. Januar 2005 um 20:47 #90357DiMarco76ParticipantHier nochmal in besserer Form und mit Zusatzfeature, daß Excel geschloßen wird und man somit wieder auf die Datei Zugriff erhält!
Excel Zellwert in Outlook Textfeld einlesen und anzeigen!
Voraussetzung: Ein Textfeld mamens cmdXLCell\’Startet Funktion cmdXLCell
Function Item_Open()
Call cmdXLCell()
End FunctionSub cmdXLCell()
Set objExcelApp = Item.Application.CreateObject(\“Excel.Application\“)
\’Datei zuweisen (hier E:\\Test1.xls) und öffnen
Set objExcelBook = objExcelApp.Workbooks.Open(\“E:\\Test1.xls\“)
Set objExcelBook = objExcelApp.ActiveWorkbook
Set objExcelSheets = objExcelBook.Worksheets
\’Öffnet Tabelle2 der Exceldatei
Set objExcelSheet = objExcelBook.Sheets(2)
objExcelSheet.Activate
objExcelApp.Application.Visible = False
\’Übernimmt Wert der Zelle \“A1\“
cellvalue = objExcelSheet.Range(\“A1\“).Value
\’Schließt Excel, damit auf Datei wieder zugegriffen werden kann
objExcelBook.Close
Set objExcelSheet = Nothing
Set objExcelBook = Nothing
objExcelApp.Quit
Set objExcelApp = Nothing
\’Wählt Seite \“Allgemein\“ des benutzerdef. Formulars
Set objPage = Item.GetInspector.ModifiedFormPages(\“Allgemein\“)
\’Übergibt Excelwert an Textfeld \“cmdXLCell\“
Set objControl = objPage.Controls(\“cmdXLCell\“)
objControl.Value = cellvalue
End Sub - AutorBeitrag
Das Thema ‘Excel XP Ergebnis in Outlook Kontakt darstellen!’ ist für neue Antworten geschlossen.
