Lotus Notes / Domino Sonstiges > Tipps und Tricks

[Script] Export View nach Excel (neue Version)

<< < (9/10) > >>

Axel:

--- Zitat von: ManniF am 18.04.07 - 07:06:56 ---Hallo,
könnte jemand so nett sein, mir irgendwie die "ProgressBarLib" aus der angehängten Datenbank zukommen zu lassen.
--- Ende Zitat ---

Gibt mal eine Mail-Adresse, dann kann ich dir das schicken.



--- Zitat von: ManniF am 18.04.07 - 07:06:56 ---Ich kann leider keine zip-Dateien und somit auch nicht die DB downloaden.

--- Ende Zitat ---

 ??? ???


Axel

ManniF:
Danke Axel,
funktioniert wunderbar!
Gruß Manni

Driri:
Vielen Dank erstmal für das super Script.

Ich konnte das gerade auch gut gebrauchen, bin dabei allerdings über einen kleinen "Bug" gestolpert. Ich habe das LSS importiert, einen Button mit dem Funktionsaufruf eingebaut und bekam immer eine Fehlermeldung :

Error 91 .....

Im Debugger ist mir dann aufgefallen, daß mitten im Code die Anweisung "Error 91" stand. Keine Ahnung, was die da zu suchen hat, aber das wirkt natürlich wie ein Exit  ;)


--- Zitat ---...
If lngDocQuantity = 0 Then
   Msgbox "The view does not contain any documents.", 64, "Excel Export canceled"
   Goto ExitScript
End If
Error 91
Set vExcelApp = CreateObject("Excel.Application")  'Start Excel with OLE
...

--- Ende Zitat ---

Kadlec:
Hallo Matthias,

habe letzte Woche Deine neueste Version runtergeladen.
Habe dann noch einen kleinen Schönheitsfehler endeckt.
Wenn in einer Spalte mehrere Werte stehen gibts einen Fehler (Type mismatch).
In der "Revisionstabelle" steht zwar ein Eintrag vom 08.07.04 der dies bereinigt hätte...aber.

Die entsprechende Zeile im Script:(in der roten Zeile krachts)
'----> needed if one view column contains the formula "" (two double quotes), because this would reduce the array size !
      '      It also could be that no array is returned if it only contains columns with the formula "" !
      
      If Isarray(viewentry.ColumnValues) Then
         vColumAllValuesArray = viewentry.ColumnValues
         Redim Preserve vColumAllValuesArray (0 To iColQuantity - 1)
      Else
         Redim vColumAllValuesArray (0 To iColQuantity - 1)
      End If

Notes Version ist die 6.5.4.
Der Trenner in der Spalte ist "Neue Zeile"

Gruss
Boris

woki:
Hat sich erledigt..  ;)

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete