Export in Excel

[umi]

Code

 
tmp1 = ws.Prompt (PROMPT_OKCANCELEDIT, _
  "Bitte Koordinator eingeben", _
  "Bitte nur Nachnamen eingeben")
.
.
Set viewentry = vc.GetFirstEntry()
   Do While Not (viewentry Is Nothing)
      Do While (viewentry.ColumnValues(0) = tmp1) Hier kommt der Type mismatch
      For iCols=1 To 17

Könnte man doch wie folgt umgehen

Code

do while not (viewentry is nothing)
v=join(evaluate({@if(@ismember("} & tmp1 & {";@explode("} & join(viewentry.columnvalues,";") & {";";"));"1";"0")}),"")
if (v="1") then

.....

Man könnte auch die View so umbauen, dass in der 1. Spalte keine Mehrfachwerte vorhanden sind......

[chock]

Hallo

danke für die ganzen Antworten. Konnte alle meine Probleme lösen.

Ich hole mir jetzt einfach nur die gesuchten Dokumente über:

Set vc = view.GetAllEntriesByKey(tmp1)

und lass mir dann die Werte aus den Ansichten in Excel importieren.

Do While Not (viewentry Is Nothing)
         For iCols=1 To 17
         vColValues=viewentry.ColumnValues(iCols)
         strColValue = AtImplode(vColValues, Chr(10))
         While InStr ( strColValue, Chr(13) ) > 0
         strColValue = Left$(strColValue, InStr ( strColValue,Chr(13) ) - 1) & "" & Right$(strColValue, Len(strColValue) - InStr ( strColValue, Chr(13) ))
         Wend
         vExcelSheet.Cells(iRows,iCols).Value = strColValue
      Next iCols
      iRows=iRows+1
      Set viewentry = vc.GetNextEntry(viewentry)


Ich werde den Vorschlag von umi nochmal testen.
Danke

[chock]

Hallo,

nun soll der Export so erweitert werden, das auch Dokumente aus 2 oder 3 Kategorien in Excel exportiert werden. In der View ist die erste Spalte nach dem Feld "Kategorie" sortiert. Wie bekomme ich es hin, das die Dokumnete der Kategorie z.B. A,B genommen werden?
Habe es schonmal mit FTSearch versucht, hat aber nicht funktioniert. Welche Möglichkeiten habe ich?

Danke

Gruß