Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: mrx am 20.08.03 - 10:36:04

Titel: Werte per Lotus Script aus Excel Sheet entnehmen
Beitrag von: mrx am 20.08.03 - 10:36:04

Hi,

ich habe ein kleines Problem, ich exportiere Daten in ein Excel Sheet. Dabei kommt es vor das ich teilweise mehrere Werte in eine Zelle schreiben muß und dies aber vorher nicht weis. Die Werte sollen dann untereinander in der Zelle stehen so was ich wenn ich mehr als einen Wert habe ein "Enter" einfügen muß. Das ist ja auch kein Problem nur gibt es eine möglichkeit festzustellen ob eine Zelle in einer Excel Tabelle leer ist oder nicht?!

Der inhalt ist noch nichtmal so interessant, mir gehts nur darum von Notes aus festzustellen ob meine Zelle leer ist oder nicht.

Gruß
Malte.

Titel: Re:Werte per Lotus Script aus Excel Sheet entnehmen
Beitrag von: robertpp am 20.08.03 - 10:45:04

Das müsste so funktionieren:

   Dim xlApp As Variant
   Dim xlsheet As Variant
   
   
   Set xlApp = CreateObject("Excel.Application")
   'xlApp.Visible = False
   xlApp.Workbooks.Add
   Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
   if xlsheet.Cells(1,1).Value="" then
      Msgbox "Leer"
   end if
Du holst dir eine Excel-Session und dann kannst du eh so wie bei VBA im Excel abfragen
robertpp