Hallo ihr Lieben,
ich muss in Informatik ein Programm schreiben und wir müssen es uns selber erlernen. Nur habe ich gar keine Ahnung...
Es soll darum gehen, dass in einem ExelDokument eine Liste von Namen und Geburtstagen stehen. Diese Liste soll jeden Tag durchsucht werden, ob jemand an dem heutigen Tag Geburtstag hat.Wenn ja,soll sich ein WordDokument öffnen und Gedruckt werden...
Ich weiß,man soll solche Aufgaben nicht unbedingt in ein Forum schreiben, aber ich bin über jede Hilfe dankbar...
Sandra
'Start ExelDokument
'Schleife:Personaldatei durchsuchen
'wenn aktuelles Datum = Geburtsdatum gefunden
'Alter berechnen
'Name angeben
'Geschlecht angeben
'Ausgabedialog zeigen und WordDokument automatisch starten
'aktuelles Datum einfügen
'WordDokument drucken
'WordDokument schließen
'Ende wenn Geburtsdatum = aktuelles Datum
'Ende Schleife
'Exel schließen
Option Explicit
'Deklarationen
Dim ExelDokument As Object
Dim aktuelles Datum As String
Dim Geburtsdatum As String
Dim Alter As String
Dim Name As String
Dim Geschlecht As String
Dim Doc As String
Dim MsgBox As String
MsgBox "Deklarationen erfolgreich"
Set ExelDokument = WScript.CreateObject("G:\3 Semester\Informatik\Übung 1") ' Excel-Objekt initialisieren
ExelDokument.Visible = True ' Fenster sichtbar
Set Doc = WScript.CreateObject("G:\3 Semester\Informatik\Übung 1") ' Word-Objekt initialisieren
Doc.Visible = True ' Fenster sichtbar
MsgBox "Initialisierung erfolgreich"
Sub ()
MsgBox "Start ExelDokument"
MsgBox "Personaldatei durchsuchen"
If aktuelles Datum = Geburtsdatum
Then MsgBox "Alter berechnen"
MsgBox "Name angeben"
MsgBox "Geschlecht angeben"
MsgBox "Ausgabedialog zeigen"
MsgBox "WordDokument starten"
MsgBox "Datum einfügen"
MsgBox "WordDokument drucken"
MsgBox "WordDokument schließen"
MsgBox "Ende wenn Geburtstag = aktuelles Datum"
end If
MsgBox "Exel schließen"
End Sub
|