Autor Thema: [Script] Export View nach Excel (neue Version)  (Gelesen 40113 mal)

Offline Axel

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: [Script] Export View nach Excel (neue Version)
« Antwort #40 am: 18.04.07 - 08:28:01 »
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
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline ManniF

  • Frischling
  • *
  • Beiträge: 15
  • Geschlecht: Männlich
Re: [Script] Export View nach Excel (neue Version)
« Antwort #41 am: 18.04.07 - 15:20:27 »
Danke Axel,
funktioniert wunderbar!
Gruß Manni

Driri

  • Gast
Re: [Script] Export View nach Excel (neue Version)
« Antwort #42 am: 18.04.07 - 16:26:50 »
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
...
« Letzte Änderung: 18.04.07 - 16:28:29 von Driri »

Offline Kadlec

  • Senior Mitglied
  • ****
  • Beiträge: 489
  • Geschlecht: Männlich
  • Ich liebe dieses Forum!
Re: [Script] Export View nach Excel (neue Version)
« Antwort #43 am: 05.05.08 - 10:26:42 »
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

Offline woki

  • Frischling
  • *
  • Beiträge: 20
  • Geschlecht: Weiblich
Re: [Script] Export View nach Excel (neue Version)
« Antwort #44 am: 23.07.09 - 11:12:53 »
Hat sich erledigt..  ;)
« Letzte Änderung: 23.07.09 - 11:23:41 von woki »

klaussal

  • Gast
Re: [Script] Export View nach Excel (neue Version)
« Antwort #45 am: 23.07.09 - 11:23:01 »
Siehe Thread #11.

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz