Entwicklung einer Kontaktdatenverwaltung

Diali · 19. März 2009

ne brauchst Du nicht, ich würde das Auslesen der Spalten so eintragen.
Bei leere Zellen wird in die Felder ein leerer String geschrieben.

Code

...
letzte_Zeile = 1
For Zeile = 1 To letzte_Zeile
   Set doc = New NotesDocument(db) ' Dokument erstellen'
   doc.Form = "Person" ' Maske festlegen'
   doc.FeldA = xlApp.Cells(Zeile, 1).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
   doc.FeldB = xlApp.Cells(Zeile, 2).Value ' Zelle in Spalte B auslesen und in Feld FeldB schreiben'
   doc.Save True, true, true  ' Dokument speichern '
Next
...

Für FeldA und FeldB musst Du noch die Feldnamen eintragen, die gefüllt werden sollen.
Beispiel:
Feldname: FirtsName
Inhalt: Vorname

Gruß
Dirk

chrischan83 · 19. März 2009

ich habe in der tabelle so ca 60 spalten.

mal so fürs verständniss.
---
doc.FeldA = xlApp.Cells(Zeile, 1).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.FeldB = xlApp.Cells(Zeile, 2).Value ' Zelle in Spalte B auslesen und in Feld FeldB schreiben'
---
warum hab ich hier zwei zeilen quellcode?
warum hier einmal (zeile,1) und dann nochmal (zeile,2)

mach ich das nur um denen einen namen zu geben?

die erste zeile der exceltabelle wäre ja die kopfzeile in der die namen für die einzelnen spalten aufgelisten wären.
also spalte1=firmenname spalte2=firmenadresse spalte3=telefonnummer usw...
kann man sich da nicht die bezeichnung rausziehen?

und in den zeilenweise gesehen sind es ja dann die kompletten daten zu einem kontakt.

Diali · 19. März 2009

es wird Zeile und Spalte übergeben. D.h. es wird erst Zeile 1 und Spalte 1 ausgelesen und als nächstes Zeile 1 und Spalte 2 - also zellenweise.

Alle Zellen einer Zeile werden in ein Dokument geschrieben. Wird die Zeile gewechselt, wird ein neues Dokument erzeugt und wieder die einzelnen Zellen ...

Den Inhalt der einzelnen Zellen musst Du natürlich in verschiedene Felder im Dokument eintragen. Von alleine passiert dies nicht, Du musst es schon in Deinem Code angeben, was geschehen soll.

Die Bezeichnung kannst Du schon raus ziehen, aber im Notes haben die Felder andere Namen.

Gruß
Dirk

chrischan83 · 19. März 2009

das heißt für mich jetzt das ich für jede spalte eine zeile quellcode in der for-schleife benötige und dort dann auch die namen vergebe für die einzelnen spalten.

mit dem namen kann ich die nachher auch sicher ansprechen.
also dokumentname und name des attrikuts wie zb name.

vielen dank das hat mich schon mal ein stück weiter gebracht.

Diali · 19. März 2009

Schau Dir mal die Maske an. In der Maske gibt es Felder. Du schreibst mit doc.Feldname dann den Wert in das Feld.

Beispiel:
das Feld, in das der Vorname rein geschrieben werden muss, ist Firstname. Die Code-Zeile ist dann:
doc.Firstname = xlApp.Cells(Zeile, 1).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
Falls der Vorname in Spalte 1 steht.

Gruß
Dirk

chrischan83 · 19. März 2009

ist das mit den spalten nun korrekt?

---
doc.FeldA = xlApp.Cells(Zeile, 1).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.FeldB = xlApp.Cells(Zeile, 2).Value ' Zelle in Spalte B auslesen und in Feld FeldB schreiben'
doc.FeldB = xlApp.Cells(Zeile, 3).Value ' Zelle in Spalte C auslesen und in Feld FeldC schreiben'
doc.FeldB = xlApp.Cells(Zeile, 4).Value ' Zelle in Spalte D auslesen und in Feld FeldD schreiben'
doc.FeldB = xlApp.Cells(Zeile, 5).Value ' Zelle in Spalte E auslesen und in Feld FeldE schreiben'
doc.FeldB = xlApp.Cells(Zeile, 6).Value ' Zelle in Spalte F auslesen und in Feld FeldF schreiben'
.
.
.
doc.FeldFA = xlApp.Cells(Zeile, 60).Value ' Zelle in Spalte FA auslesen und in Feld FeldFA schreiben'
---

Diali · 19. März 2009

naja wenn Du das Feld noch ändert, in welches Du die Werte schreibst ...

Code

doc.FeldA = xlApp.Cells(Zeile, 1).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
doc.FeldB = xlApp.Cells(Zeile, 2).Value ' Zelle in Spalte B auslesen und in Feld FeldB schreiben'
doc.FeldC = xlApp.Cells(Zeile, 3).Value ' Zelle in Spalte C auslesen und in Feld FeldC schreiben'
doc.FeldD = xlApp.Cells(Zeile, 4).Value ' Zelle in Spalte D auslesen und in Feld FeldD schreiben'
doc.FeldE = xlApp.Cells(Zeile, 5).Value ' Zelle in Spalte E auslesen und in Feld FeldE schreiben'
doc.FeldF = xlApp.Cells(Zeile, 6).Value ' Zelle in Spalte F auslesen und in Feld FeldF schreiben'
.
.
.
doc.FeldFA = xlApp.Cells(Zeile, 60).Value ' Zelle in Spalte FA auslesen und in Feld FeldFA schreiben'

Gruß
Dirk

chrischan83 · 19. März 2009

Nachdem ich nun alles mühsam eingegeben habe alles gespeichert habe und den agent dann starten wollte kam die meldung.

"illegal use of property"

was kann das bedeuten?

taurec · 19. März 2009

Das ein Fehler in deinem Code ist.

chrischan83 · 19. März 2009

liegt es vielleicht daran das ich den feldern lange namen gegeben habe?

zb:

doc.Abteilung1_Mitarbeiter_Name = xlApp.Cells(Zeile, 1).Value ' Zelle in Spalte A auslesen und in Feld "Abteilung1_Mitarbeiter_Name" schreiben'

oder muss ich auf groß und kleinschreibung achten?

DAU-in · 19. März 2009

gross und kleinschreibung beachten ist nie verkehrt

wenn du hier keine Raterunde veranstalten willst (und dafür ordentliche Preise aussetzt), solltest du deinen Code posten und verraten, an welcher Stelle der Debugger rausspringt ....

chrischan83 · 19. März 2009

Code

Sub Initialize
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Set db = s.CurrentDatabase
	Set xlApp = CreateObject ( "Excel.Application") ' Excel starten'
	xlApp.Visible = True ' Excel im UI anzeigen'
	xlApp.Workbooks.Open "c:\test123.xls" ' Datei in Excel öffenen'
	xlApp.Sheets("KHV").Select ' passenden Reiter/Tabelle auswählen'
	For Zeile = 1 To 2170
		Set doc = New NotesDocument(db) ' Dokument erstellen'
		doc.Form = "Person" ' Maske festlegen'




		doc.Letzte_Aenderung = xlApp.Cells(Zeile, 1).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Fokushaeuser = xlApp.Cells(Zeile, 2).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Verband = xlApp.Cells(Zeile, 3).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.SAP_KdNr = xlApp.Cells(Zeile, 4).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Gebietsnr = xlApp.Cells(Zeile, 5).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Land = xlApp.Cells(Zeile, 6).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Kreis = xlApp.Cells(Zeile, 7).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Gemeinde = xlApp.Cells(Zeile, 8).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Name1 = xlApp.Cells(Zeile, 9).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Name2 = xlApp.Cells(Zeile, 10).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Straße_Hausnr = xlApp.Cells(Zeile, 11).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Plz = xlApp.Cells(Zeile, 12).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Ort = xlApp.Cells(Zeile, 13).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Telefon = xlApp.Cells(Zeile, 14).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Telefax = xlApp.Cells(Zeile, 15).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Email = xlApp.Cells(Zeile, 16).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Internetadresse = xlApp.Cells(Zeile, 17).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Traeger = xlApp.Cells(Zeile, 18).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.T_Name1 = xlApp.Cells(Zeile, 19).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.T_Name2 = xlApp.Cells(Zeile, 20).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Betten_Ins = xlApp.Cells(Zeile, 21).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.TN_SUM = xlApp.Cells(Zeile, 22).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Leitg_Medizintechnik_anrede = xlApp.Cells(Zeile, 23).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Leitg_Medizintechnik_vorname = xlApp.Cells(Zeile, 24).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Leitg_Medizintechnik_name = xlApp.Cells(Zeile, 25).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Tel_MedTechnik = xlApp.Cells(Zeile, 26).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Fax_MedTechnik = xlApp.Cells(Zeile, 27).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Email_MedTechnik = xlApp.Cells(Zeile, 28).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Leitg_Einkauf_anrede = xlApp.Cells(Zeile, 29).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Leitg_Einkauf_vorname = xlApp.Cells(Zeile, 30).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Leitg_Einkauf_name = xlApp.Cells(Zeile, 31).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Tel_Einkauf = xlApp.Cells(Zeile, 32).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Fax_Einkauf = xlApp.Cells(Zeile, 33).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Email_Einkauf = xlApp.Cells(Zeile, 34).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Verwaltungsleiter_anrede = xlApp.Cells(Zeile, 35).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Verwaltungsleiter_vorname = xlApp.Cells(Zeile, 36).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Verwaltungsleiter_name = xlApp.Cells(Zeile, 37).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Tel_Verw = xlApp.Cells(Zeile, 38).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Fax_Verw = xlApp.Cells(Zeile, 39).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Email_Verw = xlApp.Cells(Zeile, 40).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.aerztlicher_Entscheider = xlApp.Cells(Zeile, 41).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Tel_aerztlicher_Entscheider = xlApp.Cells(Zeile, 42).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Fax_aerztlicher_Entscheider = xlApp.Cells(Zeile, 43).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Pflegedienst_anrede = xlApp.Cells(Zeile, 44).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Pflegedienst_vorname = xlApp.Cells(Zeile, 45).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Pflegedienst_name = xlApp.Cells(Zeile, 46).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Tel_Pflegedienst = xlApp.Cells(Zeile, 47).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Fax_Pflegedienst = xlApp.Cells(Zeile, 48).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Email_Pflegedienst = xlApp.Cells(Zeile, 49).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Hygieniker_anrede = xlApp.Cells(Zeile, 50).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Hygieniker_vorname = xlApp.Cells(Zeile, 51).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Hygieniker_name = xlApp.Cells(Zeile, 52).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Tel_Hygieniker = xlApp.Cells(Zeile, 53).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Fax_Hygieniker = xlApp.Cells(Zeile, 54).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Email_Hygieniker = xlApp.Cells(Zeile, 55).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Stroke_Units_Abt = xlApp.Cells(Zeile, 56).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Stroke_Units_anrede = xlApp.Cells(Zeile, 57).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Stroke_Units_vorname = xlApp.Cells(Zeile, 58).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Stroke_Units_name = xlApp.Cells(Zeile, 59).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Tel_Stroke_Units = xlApp.Cells(Zeile, 60).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Fax_Stroke_Units = xlApp.Cells(Zeile, 61).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Email_Stroke_Units = xlApp.Cells(Zeile, 62).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.IT_Leiter_anrede = xlApp.Cells(Zeile, 63).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.IT_Leiter_vorname = xlApp.Cells(Zeile, 64).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.IT_Leiter_name = xlApp.Cells(Zeile, 65).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Tel_IT_Leiter = xlApp.Cells(Zeile, 66).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Fax_IT_Leiter = xlApp.Cells(Zeile, 67).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Email_IT_Leiter = xlApp.Cells(Zeile, 68).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.ORBIS = xlApp.Cells(Zeile, 69).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Anaesthesie_anrede = xlApp.Cells(Zeile, 70).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Anaesthesie_vorname = xlApp.Cells(Zeile, 71).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Anaesthesie_name = xlApp.Cells(Zeile, 72).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Tel_Anaesthesie = xlApp.Cells(Zeile, 73).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Fax_Anaesthesie = xlApp.Cells(Zeile, 74).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Email_Anaesthesie = xlApp.Cells(Zeile, 75).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Kardiologie_anrede = xlApp.Cells(Zeile, 76).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Kardiologie_vorname = xlApp.Cells(Zeile, 77).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Kardiologie_name = xlApp.Cells(Zeile, 78).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Tel_Kardiologie = xlApp.Cells(Zeile, 79).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Fax_Kardiologie = xlApp.Cells(Zeile, 80).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Email_Kardiologie = xlApp.Cells(Zeile, 81).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Innere_anrede = xlApp.Cells(Zeile, 82).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Innere_vorname = xlApp.Cells(Zeile, 83).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Innere_name = xlApp.Cells(Zeile, 84).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Tel_Innere = xlApp.Cells(Zeile, 85).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Fax_Innere = xlApp.Cells(Zeile, 86).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Email_Innere = xlApp.Cells(Zeile, 87).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Monitore_in_IMC  = xlApp.Cells(Zeile, 88).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Monitore_in_ZNA = xlApp.Cells(Zeile, 89).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Monitore_in_Stroke_unit = xlApp.Cells(Zeile, 90).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Telemetrie_Monitore = xlApp.Cells(Zeile, 91).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Transportmonitore = xlApp.Cells(Zeile, 92).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.VSM_300_Wettbewerb = xlApp.Cells(Zeile, 93).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.SPOT_Wettbewerb = xlApp.Cells(Zeile, 94).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Lighting = xlApp.Cells(Zeile, 95).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Defibs = xlApp.Cells(Zeile, 96).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Cardio_in_Funktionsdiagnostik = xlApp.Cells(Zeile, 97).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.EKG_Cardio_auf_Station_EKG = xlApp.Cells(Zeile, 98).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Holter_Hersteller = xlApp.Cells(Zeile, 99).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.ABPM_Hersteller = xlApp.Cells(Zeile, 100).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Thermo-Hersteller = xlApp.Cells(Zeile, 101).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.BP-Hersteller = xlApp.Cells(Zeile, 102).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Thermometrie_Produkt = xlApp.Cells(Zeile, 103).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Manschette = xlApp.Cells(Zeile, 104).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Fachhandel = xlApp.Cells(Zeile, 105).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.UMS_SAP_2007 = xlApp.Cells(Zeile, 106).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.WA_UMS_2006 = xlApp.Cells(Zeile, 107).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Thermo_UMS_WA_2006 = xlApp.Cells(Zeile, 108).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.FH_fuer_BP = xlApp.Cells(Zeile, 109).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.Acuity_Installationen_auf_Stationen = xlApp.Cells(Zeile, 110).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'
		doc.CP100_200_in_Stueck = xlApp.Cells(Zeile, 111).Value ' Zelle in Spalte A auslesen und in Feld FeldA schreiben'



		doc.Save True, True, True  ' Dokument speichern ' 
	Next
End Sub

Alles anzeigen

-----------

hab halt alles so benannt wie es in der Exceltabelle war.
für die Eindeutigkeit.

der fehler kommt erst bei starten des agents

%edit
Code in Tags gesetzt /diali

DAU-in · 19. März 2009

und was sagt der Debugger?

Diali · 19. März 2009

schalte mal den Debugger ein (Menü Datei - Extras -...). Starte den Agenten neu, klicke im Debugger Fortfahren. Bei einem Fehler öffnet sich dann der Debugger und es wird die Zeile markiert, in der der Fehler aufgetreten ist.

Die kommentare kannst Du in Deinem Code weglassen, hatte ich nur am Anfang drin, damit Du eine Hilfe hast. Wenn Du dann noch den Code in Tags ([ code][/code] - Leerzeichen beim ersten Tag musst Du weg lassen) schreibst, dann lässt der sich noch richtig gut lesen. Habs mal in Deinem Beitrag noch gemacht.

Gruß
Dirk

chrischan83 · 20. März 2009

Code

doc.Thermo-Hersteller = xlApp.Cells(Zeile, 101).Value
 doc.BP-Hersteller = xlApp.Cells(Zeile, 102).Value

an den beiden Zeilen lag es.
und zwar hab ich den "-" in "_" umgeändert dann ging es.

Das Problem ist nun das es in meiner Ansicht immernoch nicht angezeigt wird.

deswegen füge ich noch ein paar scrennshots bei vielleicht ist da ja ne einstellung falsch.

Diali · 20. März 2009

na Du legst neue Felder in den Dokumenten an. Du solltest die Felder verwenden, die in der Maske drin sind.

Ansonsten musst Du die Maske und alle Ansichten umbauen.

Gruß
Dirk

chrischan83 · 20. März 2009

Hast du das auf dem Screenshot erkannt?

Was muss ich denn tun um die Felder zu verwendet die in der Maske drin sind?

Diali · 20. März 2009

ne auf dem Screenshot nicht aber in Deinem Code.

doc.Feldname ...

Feldname musst Du noch durch die entsprechenden Felder ersetzen. Die Felder findest Du, indem die die Maske im Designer öffnest und die Feldnamen in Deinen Code übernimmst.

Dann hast Du noch Felder, die es in der Adress-DB nicht gibt, die kannst Du wie gehabt anlegen. Danach musst Du noch die Maske um die benötigten Felder erweitern, damit Du die Felder später editieren kannst.

Die Felder, die noch in der Ansicht / den Ansichten sichtbar sein sollen, musst Du noch als Spalte in der Ansicht einbauen.

Gruß
Dirk

chrischan83 · 20. März 2009

Ich glaube um das Umändern komme ich nicht herum.
Die Ansicht "AnzeigeDB" hab ich mir gebastelt um zu gucken ob alles anständig importiert wurde.

Ich brauche ja viel mehr Felder als im Adressbuch vorhanden sind.
Ich hab beim anzeigen der Dokumente(Kontakte) gedacht nur ein paar Felder anzeigen zu lassen so wie es im orginalen Adressbuch ist und wenn ich dann einen neuen Kontakt erstelle oder einen vorhandenen bearbeite das ich dann viele tabs habe für den einen Kontakt.
Wie zb Allgemeines mit Namen Adresse und Telefonnummer des Krankenhauses.
Und dann halt für alle Unterabteilungen wie zb Chirurgie Innere usw mit jeweils ein paar Daten.

Diali · 20. März 2009

Da würde ich für jede Abteilung ein Dokument machen und als Kategorie und Firma das Krankenhaus angeben. Eventuell noch die Abteilung als Unterkategorie benutzen ...

Gruß
Dirk

Teilen