Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Frage Entwicklung VB for Applications

Mitglied: Ironheart

Ironheart (Level 1) - Jetzt verbinden

07.01.2007, aktualisiert 15.01.2007, 7135 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
gelöst Excel VBA Datein auslesen (8)

Frage von schwalbepilot zum Thema Microsoft Office ...

VB for Applications
gelöst VBA - Bereich von Excel nach Word kopieren (6)

Frage von schwazza89 zum Thema VB for Applications ...

VB for Applications
XML Datei auslesen mit Excel (10)

Frage von kaiuwe28 zum Thema VB for Applications ...

Neue Wissensbeiträge
Multimedia

Raspberry Pi als Digital-Signage-Computer

(1)

Information von BassFishFox zum Thema Multimedia ...

Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(15)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Freigabe aus anderem Netz nicht erreichbar (21)

Frage von McLion zum Thema Router & Routing ...

Windows Server
Kennwort vergessen bei Hyper vserver 2012r (20)

Frage von jensgebken zum Thema Windows Server ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (19)

Frage von Michael-ITler zum Thema Batch & Shell ...

Festplatten, SSD, Raid
gelöst Raidcontroller funktioniert nur, wenn unter Legacy-Boot gestartet wird (14)

Frage von DerWoWusste zum Thema Festplatten, SSD, Raid ...