Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Barbara am 28.01.09 - 16:10:03
-
Hallo zusammen,
stehe mal wieder auf dem Schlauch und die Tipps, die ich hier gefunden habe bringen mich nicht wirklich weiter.
Ich öffne eine Excel-Tabelle und suche mir dort Ersatzwerte, die ich in ein Notesdokument eintrage. Das habe ich in mehreren Anwendungen in beide Richtungen schon praktiziert, lief immer problemlos. Um so mehr verblüfft mich die og. Fehlermeldung.
Hier ein Auszug aus dem Script:
filename="C:\temp\IQDE-Projekte.xls"
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True '=> damit ich zu Testzwecken sehe, was geöffnet ist
Call xlapp.Workbooks.Open (filename)
Set xlSheet = xlApp.Workbooks(1).Worksheets(1)
...
For i=1 To 36
If xlSheet(i,1)=Projektnummer Then => hier kommt die Fehlermeldung
Nummerneu=Strright(xlSheet(i,2),"S")
End If
Next
Es wird die richtige Datei geöffnet, sie ist nicht schreibgeschützt oder sonstwas.
Hat Jemand eine Idee, was hier quer liegt?
Schon mal Danke
Barbara
-
Was ist denn Projektnummer ?
-
ich verpasse den Dokumenten eine neue Projektnummer.
In der Excel-Tabelle sind unter Anderem alte und neue Projektnummer geführt. Weiter oben im script passe ich die Projektnummer des Notesdokumentes der Nomenklatur in der Excel-Tabelle an.
Barbara
-
Also ist Projektnummer eine String-Variable ?
Ist denn so der Vergleich überhaupt möglich ? Ich kenne mit mit der Excel-Anbindung nicht aus, aber ich würde da irgendwie noch so etwas wie ".value" oder so dahinter erwarten.
So in etwa :
...
If xlSheet(i,1).value=Projektnummer Then
...
-
Yepp, das war der Ansatz. Das kommt davon wenn man mit der heißen Nadel strickt, nach dem Motto -ich mach mal schnell, das haben wir gleich.....
also es heißt richtig: xl.sheet.cells(i,1).value
oh Mann, das ist jetzt echt peinlich.
Danke für die richtigen Fragen :D
Gruß
Barbara
-
Gerne :)