Habe ich eingebaut ;)
(siehe oben)
Es war folgender Code notwendig:
'---> Remove square wordwrap-chars ([])
While Instr ( vColValues, Chr(13) ) > 0
vColValues = Left$(vColValues, Instr ( vColValues,Chr(13) ) - 1) & "" & Right$(vColValues, Len(vColValues) - Instr ( vColValues, Chr(13) ))
Wend
'<---
Von der Performance her habe ich noch überhaupt keinen Unterschied gemerkt bei 1000 Dokumenten.
Viel Spaß damit :D
Einschränkungen sind mir jetzt nicht wirklich bekannt.
Line 117, das wäre wohl die Zeile
vColValues=viewentry.ColumnValues(iCols-1)
Kannst Du mal den Debugger einschalten und ein paar mehr Infos geben?
Also ob es wirklich diese Zeile ist, was die Variablen (z.B. iCols) so für Werte enthalten, wenn die Fehlermeldung kommt, etc.
Dann vielleicht noch ein paar Infos zu Deiner View (irgendwelche Besonderheiten?).
Generell klingt für mich die Fehlermeldung nach einem Array-Fehler.
Hallo Werner,
danke für die hilfreichen Angaben. Der Fehler ist dadurch gefunden.
Wenn eine Spalte "" enthält als Formel, dann wird via
ein kleineres Array zurückgegeben (weniger Elemente).
Ich hatte schon die Lösung:
If Isarray(viewentry.ColumnValues) Then
vColumAllValuesArray = viewentry.ColumnValues
Redim Preserve vColumAllValuesArray (0 To iColQuantity - 1)
Else
Redim vColumAllValuesArray (0 To iColQuantity - 1)
End If
Läuft wunderbar in ND6. In R5 kommt allerdings in der Zeile
vColumAllValuesArray = viewentry.ColumnValues
ein Error 9 (Type Mismatch).
Recherchen in KnowledgeBase ergaben keine Einträge, aber im LDD-Forum. Dort wurden aber nur Workarounds genannt, die mir nicht gefielen.
Erstes Fazit für mich: Ist wohl ein R5-Bug !
Nachdem es in ND6 wunderbar läuft, bin ich dieser Thematik jetzt nicht mehr nachgegangen.
Ich werde jetzt auch keine Lösung mehr für R5 machen, ist ja doch schon obsolete.
Tipp für R5 Leute: Für den Excel-Export eine eigene View erstellen, die ausschließlich für den Export dient. Dabei Spaltenformeln wie "" vermeiden. Dann funktioniert es auch.
Aus Zeitgründen werde ich aber dem nicht weiter nachgehen, bitte um Verständnis.
Für mich selbst habe ich eine Excel-Export-Klasse geschrieben, die weit mehr bietet als diese Sub hier. Allerdings kann ich diese nicht veröffentlichen - da steckt einfach zuviel Arbeit drin um diese einfach for free zu veröffentlichen.
Wenn sich jemand aber mit dem hier veröffentlichten Code weiter auseinandersetzen will: Gerne. Der Code ist ja frei.