Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Geburtstage aus Excel auslesen und in Word Glückwunschschreiben erstellen

Mitglied: Ironheart

Ironheart (Level 1) - Jetzt verbinden

07.01.2007, aktualisiert 15.01.2007, 7174 Aufrufe, 4 Kommentare

Hallo, ich stehe vor folgender Aufgabe: Ich soll mit Hilfe von VBScript aus einer Excel Tabelle in der es die Felder Name, Vorname,Geburtsdatum und Geschlecht gibt, überprüfen, ob eine Person aus dieser Liste am aktuellen Tag Geburtstag hat und wenn ja, sollen die Daten in ein grob vorgefertigtes Glückwunschschreiben in Word eingefügt werden, so in dem Sinne: Sehr geehrte Frau XY, hiermit gratuliere ich Ihnen zu Ihrem X. Geburtstag recht herzlich - wobei die Rohform im Prinzip so aussieht, weil der rest ja Geschlecht- bzw Personenabhängig ist: Sehr, hiermit gratuliere ich Ihnen zu Ihrem . Geburtstag recht herzlich.

Wäre für Hilfe dankbar.

Christian
Mitglied: Biber
07.01.2007 um 02:47 Uhr
Moin IronHeart,

gratuliere zu der Aufgabe.

Rückfrage:

Wieso VBScript? Oder meinst Du VBA?
Und was davon hast Du schon fertig bzw. wo genau klemmt es?

Sollen wir Dir jetzt bei der Aufwandsschätzung helfen oder etwa die ganze Anforderung komplett umsetzen?
Was hast Du schon getan, um Dich der Thematik anzunähern?

Und WTF hat das mit "Betriebssystemen" zu tun?

Bitte etwas konkretisieren...

Gruß
Biber
Bitte warten ..
Mitglied: Ironheart
07.01.2007 um 11:47 Uhr
Moin,
ich studiere nebenher noch Vermessung und im Fach Informatik sollen wir diese Aufgabe mit VbScript lösen. Mit VBA habe ich schon gearbeitet, damit komme ich klar, nur mir fehlt der zugang zu VBScript, habe mir ein Buch über VbScript geholt, aber irgendwie fehlt mir der zugang. Ich habe schon den Ehrgeiz die Aufgabe selbst zu lösen, nur fehlen mir einfach die Ansätze.

Ich wusste nicht so recht wohin mit dem Thema und da VbScript zur Steuerung des Betriebsystems verwendet wird, habe ich das ganze in dem Bereich erstellt.

Gruß
Christian
Bitte warten ..
Mitglied: Ironheart
07.01.2007 um 16:47 Uhr
Mittlerweile habe ich doch was zustande gebracht:

Set xlObj = createObject("Excel.application")
xlObj.Visible = false
xlObj.Workbooks.open "c:\test.xls"
xlObj.Range("C2").select

For each Zelle in xlObj.Range("C2:C6")
If Month(Zelle.Value) = Month(Date()) then
If Day(Zelle.Value) =Day(Date()) then
Vorname = Zelle.Offset(0,-2).Value
Nachname = Zelle.Offset(0,-1).Value
Alter = Zelle.Offset(0,1).Value
If Zelle.Offset(0,2).Value = "männlich" then _
Anrede = "Lieber" else _
Anrede = "Liebe"
End if
Set docObj = createObject("Word.application")
docObj.Visible = True
docObj.Documents.Open "c:\test.doc"

End if
Next
xlObj.Workbooks.Close
xlObj.Quit

Ich würde den Zugriff auf die Excel Datei gerne anders gestalten und zwar soll die Datei nur gelesen werden ohne dass sie geöffnet wird. In dem Buch dass ich habe ist das ganze für Access Datenbanken beschrieben, ich schaffe es aber nicht das für Excel umzusetzen.

Die Excel Tabelle sieht so aus:
Vorname Name Geburtsdatum Alter Geschlecht
Hans Schmitz 07.01.2007 0 männlich
Frida Müller 04.03.1980 27 weiblich
Peter Meier 05.05.1966 41 männlich
Josef Lieber 19.10.1952 55 männlich
Petra Schmidt 23.11.1999 8 weiblich

Das Word Dokument so:


Zu Deinem . Geburtstag gratuliere ich Dir recht herzlich und wünsche Dir Alles Gute, Glück und Gesundheit auch im Namen aller Mitarbeiter.

Freundliche Grüße
Peter Muster



Christian
Bitte warten ..
Mitglied: Desperado
15.01.2007 um 19:11 Uhr
du kannst per adodb auf excel zugreifen wie auf andere datenbanktypen. ansonsten kommst du nicht drumherum das excel aufzumachen. was ist aber so schlimm daran? mach es visible = false und vor allen dingen schliesse das objekt wieder zum schluss, sonst bleibt der prozess hängen...
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel Worksheet in Word
gelöst Frage von 118080Microsoft Office

Abend Zusammen :-) Wir haben ein Word Dokument und darin ein Excel Sheet verknüpft. Ich habe die Verknüpfung in ...

Perl

Perl hat heute Geburtstag: 30 Jahre Perl: Lange Gesichter zum Geburtstag

Information von Penny.CilinPerl8 Kommentare

Hallo, auch wenn es wenige wissen und noch weniger Leute es nutzen. Perl hat heute Geburtstag. 30 Jahre Perl ...

Microsoft Office

Word Serienbrief aus Excel starten

gelöst Frage von schubste24Microsoft Office4 Kommentare

Hallo zusammen, Ich habe da ein Problem, bei dem ich alleine leider nicht weiterkomme und um Eure Hilfe bitte. ...

Microsoft Office

Excel speichert als word ab

gelöst Frage von Bernie40Microsoft Office4 Kommentare

Ich habe Office365 verlängert. Seit dem suche ich verzweifelt nach einer Lösung. Meine Excel Dateien speichern zwar als .xls ...

Neue Wissensbeiträge
iOS
WatchChat für Whatsapp
Tipp von Criemo vor 1 TagiOS

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

iOS
IOS hat nen Cursor !!!
Tipp von Criemo vor 1 TagiOS5 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Off Topic
Avengers 4: Endgame - Erster Trailer
Information von Frank vor 3 TagenOff Topic2 Kommentare

Ich weiß es ist Off Topic, aber ich freue mich auf diesen Film und vielleicht geht es anderen hier ...

Webbrowser
Microsoft bestätigt Edge mit Chromium-Kern
Information von Frank vor 3 TagenWebbrowser5 Kommentare

Microsoft hat nun in seinem Blog bestätigt, dass die nächste Edge Version kein EdgeHTML mehr für die Darstellung benutzen ...

Heiß diskutierte Inhalte
Exchange Server
Exchange Server 2010: Keine Eingehenden E-MAils
gelöst Frage von gabeBUExchange Server17 Kommentare

Hallo Zusammen Ich habe das kurzen auf dem Exchange 2010 Server das Problem, dass ich keine externen E-Mails mehr ...

Windows Netzwerk
Kerio. Kann keine Mails empfangen aber senden. Wer ist schuld. Kerio oder Windows domäne?
gelöst Frage von frosch2Windows Netzwerk17 Kommentare

Hallo, es existiert ein Problem bei uns mit dem mailen. Alle bestehenden Nutzer können mailen. Raus wie rein. Neuen ...

LAN, WAN, Wireless
LAN Kabel plötzlich nur noch 100-10 mbps statt 1000
Frage von ScravysLAN, WAN, Wireless13 Kommentare

Guten Tag, ich habe ein Problem mit meinem Netzwerk und zwar habe ich mir ein 20m starres verlegekabel cat.7 ...

Server
Server in zwei verschiedene Netzwerke einbinden
gelöst Frage von BennyFServer13 Kommentare

Hallo zusammen, bei uns im Haus sind im Erdgeschoss die Geschäftsräume und ab dem 1. Stock sind unsere privaten ...