[Script] Export View nach Excel (neue Version)

[Axel]

Hallo,
könnte jemand so nett sein, mir irgendwie die "ProgressBarLib" aus der angehängten Datenbank zukommen zu lassen.

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

Ich kann leider keine zip-Dateien und somit auch nicht die DB downloaden.

 


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 

...
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
...

[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.. 

[klaussal]

Siehe Thread #11.