Office: (Office 2003) Listview auslesen

lalo · 15. April 2009

Hallo,

ich möchte einen Listview komplett auslesen und in eine Exceldatei schreiben.
Der listview hat 12 Spalten.

Mit dem folgenden Code kann ich alle Zeilen auslesen aber nicht die erste Spalte.

Code:

Dim Row As Integer
Dim Col As Integer

Set objListview = Me.LvwVorgang.Object
For Row = 1 To objListview.ListItems.Count
For Col = 1 To objListview.ListItems(1).ListSubItems.Count
Debug.Print objListview.ListItems(Row).ListSubItems(col)
Next
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn ich aber
For Col = 0 To objListview.ListItems(1).ListSubItems.Count
angebe kommt Error 35600 Index out of bounds.
Wie komme ich an die erste Spalte ran ?

:)

Anne Berg · 17. April 2009

Die Indizes sollten wohl von 0 bis *.Count -1 laufen.

lalo · 17. April 2009

Ja Anne, da ist genau das Problem,

mein erster Code war wie von Dir angebegen, also von 0 bis .count - 1
Der Spaltendindex endet in meinem Beispiel bei 11, indiz dass er mit 0.
Aber dies bringt eben den Fehler bei den Spalten.
Bei den Zeilen ist Index 1 die erste Zeile. Hier beginnt der Index offenbar mit 1.

Anne Berg · 17. April 2009

Und was hat das hier zu bedeuten? Code:

objListview.ListItems(1)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hast du mal festgestellt, an welcher Stelle (bei welchem Indexstand) der Fehler auftritt?

lalo · 17. April 2009

Der Fehler tritt beim Index "Col" auf bei Indexstand 0 oder > 11.

Wenn ich den Index hier weglasse:

> alt: For Col = 1 To objListview.ListItems(1).ListSubItems.Count

For Col = 1 To objListview.ListItems.ListSubItems.Count

kommt Fehler beim compilieren, "Methode oder Datenobjekt nicht gefunden" bei .ListSubItems

Anne Berg · 17. April 2009

Natürlich musst du ListItems indizieren, aber warum konstant mit 1, das war meine Frage.

Und was heißt: Der Fehler tritt beim Indes "Col" auf !
Bei welchem Wert von Col tritt der Fehler auf?

PS: Wie wird denn das Listview überhaupt gefüllt? Läge hier kein geeigneter Ansatz an die Daten zu kommen?

lalo · 17. April 2009

Habe als Index die 1 genommen, da alle Zeilen die selbe Anzahl Spalten haben. Nach Änderung auf (Row) bleibt das Problem, dass ich die innere For-Schleife nicht mit Index 0 beginnen lassen kann.

lalo · 17. April 2009

Der Listview wird so gefüllt:

Code:

'---------------------------------------------------------------------------------------
' Procedure : Form_Load
' Author : Bernd
' Date : 06.09.2008
' Purpose : Listview füllen und Felder ggf. hervorheben red und bold
' in Openargs ist der SQL-String
'---------------------------------------------------------------------------------------
'
Private Sub Form_Load()

Dim objListitem As ListItem
Dim SqlString As String
Dim rst As New ADODB.Recordset
Dim Zaehler As Double
Dim zwiRCA_ID As String
Dim i As Integer
Zaehler = 0

TitelBild.Picture = DLookup("parameter", "parameter", "Parameter_Key = 'RCA_Picture_5'")
Me.HelpFile = Nz(DLookup("Parameter", "Parameter", "Parameter_Key = 'RCA_RFT_HELPFILE'"), "")
Me.InsideWidth = 12900
Me.InsideHeight = 6165

DoCmd.MoveSize 300, 300
SqlString = OpenArgs

rst.Open SqlString, CurrentProject.Connection, adOpenStatic, adLockReadOnly
If rst.EOF And rst.BOF Then
MsgBox "Für die Selektion sind keine Daten vorhanden", vbInformation
DoCmd.Close acForm, Me.Name
Exit Sub
Else
Do Until rst.EOF
If rst!RCA_ID 0 Then
zwiRCA_ID = rst!RCA_ID
Else
zwiRCA_ID = ""
End If
Set LvwVorgang.ColumnHeaderIcons = Me!mImlCol.Object
Set objListitem = LvwVorgang.ListItems.Add(, rst!RCA_ID & "/" & Zaehler, zwiRCA_ID)
With objListitem
.ListSubItems.Add , , rst!Charge
.ListSubItems.Add , , rst!ARTNR
.ListSubItems.Add , , rst![Batch Record Type]
.ListSubItems.Add , , rst![Reviewer]
.ListSubItems.Add , , rst![Datum_Ist]
.ListSubItems.Add , , rst!RFT
.ListSubItems.Add , , rst![ER Number]
.ListSubItems.Add , , rst![fehler]
.ListSubItems.Add , , rst!Merkmal
.ListSubItems.Add , , rst!Auspraegung
.ListSubItems.Add , , rst![Verusacht durch]
If rst!RCA_ID 0 Then
For i = 1 To 11
objListitem.ListSubItems(i).ForeColor = vbRed
Next
End If
End With
Zaehler = Zaehler + 1
rst.MoveNext
Loop
End If
rst.Close
Set rst = Nothing

If Forms("RCA_rft_rep_sel1").frmOptionen.Value = 1 Then
cmdXls.Visible = False
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anne Berg · 17. April 2009

Und warum exportierst du dann nicht einfach die Abfrage?

lalo · 17. April 2009

Ja dann kommt das nächste "Kapitel". Dieses Exportieren des Listviews "zu Fuss" ist eine Notlösung.

Die Query sieht so aus:

Code:

SELECT RCA.RCA_ID, RCA.CHARGE, RCA.ARTNR, RCA_EINHEIT.EINHEIT AS Reviewer, RCA.DATUM_IST, "N" AS RFT, "-" AS [ER Number], "ERROR" AS Fehler, RCA_MERKMAL_ST.MERKMAL, RCA_MERKMAL_AUSPR_ST.AUSPRAEGUNG, RCA_EINHEIT_1.EINHEIT AS [Verusacht durch], RCA_RFT_REVIEWER.TYP AS [Batch Record Type] FROM (((((RCA INNER JOIN RCA_MERKMAL_AUSPR ON RCA.RCA_ID = RCA_MERKMAL_AUSPR.RCA_ID) INNER JOIN RCA_MERKMAL_AUSPR_ST ON (RCA_MERKMAL_AUSPR.AUSPRAEGUNG_ID = RCA_MERKMAL_AUSPR_ST.AUSPRAEGUNG_ID) AND (RCA_MERKMAL_AUSPR.MERKMAL_ID = RCA_MERKMAL_AUSPR_ST.MERKMAL_ID)) INNER JOIN RCA_MERKMAL_ST ON RCA_MERKMAL_AUSPR_ST.MERKMAL_ID = RCA_MERKMAL_ST.MERKMAL_ID) INNER JOIN RCA_EINHEIT ON RCA.EINHEIT_ID = RCA_EINHEIT.EINHEIT_ID) INNER JOIN RCA_EINHEIT AS RCA_EINHEIT_1 ON RCA.EINHEIT_VERA_ID = RCA_EINHEIT_1.EINHEIT_ID) INNER JOIN RCA_RFT_REVIEWER ON mid(RCA.CHARGE,6,2) = RCA_RFT_REVIEWER.BATCHPART WHERE (((RCA.ER_NR)='RFT')) and RCA.Datum_ist between #4/17/2008# and #4/17/2009# UNION SELECT RCA.RCA_ID, RCA.CHARGE, RCA.ARTNR, RCA_EINHEIT.EIN
HEIT AS Reviewer, RCA.DATUM_IST, "N" AS RFT, RCA_ABW.ABWNR AS [ER Number], RCA_ABW.ABWBERTYP as Fehler , RCA_ABWTYP.ABWTYP as Merkmal, RCA_ABWURS.ABWURS as Auspraegung, RCA_EINHEIT_1.EINHEIT as [Verusacht durch], RCA_RFT_REVIEWER.TYP as [Batch Record Type] FROM (((((RCA INNER JOIN RCA_EINHEIT ON RCA.EINHEIT_ID = RCA_EINHEIT.EINHEIT_ID) INNER JOIN RCA_EINHEIT AS RCA_EINHEIT_1 ON RCA.EINHEIT_VERA_ID = RCA_EINHEIT_1.EINHEIT_ID) INNER JOIN RCA_ABW ON RCA.RCA_ID = RCA_ABW.RCA_ID) INNER JOIN RCA_ABWTYP ON RCA_ABW.ABWTYP_ID = RCA_ABWTYP.ID) INNER JOIN RCA_ABWURS ON RCA_ABW.ABWURS_ID = RCA_ABWURS.ID) INNER JOIN RCA_RFT_REVIEWER ON mid(RCA.CHARGE,6,2) = RCA_RFT_REVIEWER.BATCHPART WHERE (((RCA.ER_NR)="RFT")) and RCA.Datum_ist between #4/17/2008# and #4/17/2009# UNION SELECT 0 AS RCA_ID, RCA_RFT.CHARGE, RCA_RFT.ARTNR, RCA_RFT.REVIEWER, RCA_RFT.DATUM as Datum_Ist, "J" AS RFT, "-" AS [ER Number], "-" AS Fehler, "-" AS Merkmal, "-" AS AUSPRAEGUNG, "-" AS [Verusacht durch], RCA_RFT_REVIEWER.TYP as [Batch Record Type] FROM
RCA_RFT INNER JOIN RCA_RFT_REVIEWER ON mid(RCA_RFT.CHARGE,6,2) = RCA_RFT_REVIEWER.BATCHPART WHERE (((RCA_RFT.RCA_RFT_ID) Is Not Null)) and RCA_RFT.Datum between #4/17/2008# and #4/17/2009# order by 2
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Diesen Code verwendete ich auch bei Excel zum "Copyfromrecordset"

Wenn ich sie in meinem Testsystem über eine AccBackend-Db laufenlasse ist alles ok. Wenn ich sie jedoch über das produktive Oracle-Backend laufen lasse kommt "Schwerwiegender Fehler".

Dann habe ich die QUery so umgestellt, dass ich keine UNION mehr habe sondern der Listview mit 3 einzelnen Queries fülle. Und schließlich will ich dann die Exceldatei aus dem Listview "zu Fuß" erstellen.

Gruß Bernd

P.S. Anne, deine Engagement ist toll!!!

Anne Berg · 17. April 2009

Hallo Bernd, ich habe etwas interessantes gefunden:

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

for i = 1 to lvw.listitems.count
if lvw.ListItems(i).ListSubItems(1).Tag="balbla" then
'mein Code
end if
next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So, und genau an der if Abfrage, in der ich auf den Tag zugreife wird ein Error 35600 geworfen,
wenn ich wie gesagt SubItems(1) nicht belegt habe.

Antwort:
Um Fehler zu vermeiden, kannst Du entweder alle Spalten beim Befüllen
des ListView explizit belegen, direkt über ListSubItems.Add oder
SubItems(x) = "" oder schaltest eventuell auftretene Fehler beim
Zugriff auf die Tag Eigenschaft mit 'On Error Resume Next' aus.

Ich vermute, die Spalte 11 (evtl. auch andere) kann Null-Werte enthalten.

uwek · 17. April 2009

Hallo Bernd,

als Ansatz zum Auslesen des LVWs siehe mal hier:

ListView-Inhalt speichern und laden

lalo · 17. April 2009

Hallo,

dank Euer Hilfe bin ich der Sache auf die Spur gekommen.
Mit folgendem Code kann ich den Listview komplett auslesen, also auch die erste Spalte:

Code:

Set objListview = Me.LvwVorgang.Object
For Row = 1 To objListview.ListItems.Count
Debug.Print objListview.ListItems(Row).Text
For Col = 1 To objListview.ListItems(Row).ListSubItems.Count
Debug.Print objListview.ListItems(Row).ListSubItems(Col)
Next
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die erste Spalte wird also nicht über ListSubItems(>index=0

Office: (Office 2003) Listview auslesen

Listview auslesen

Listview auslesen

Listview auslesen

Listview auslesen

Listview auslesen

Listview auslesen - Similar Threads - Listview auslesen

ListView & mac

Listview zweite Reihe füllen

ListView Access 2016 64Bit

Listview Formular öffnen

Listview (ActiveX): Font setzen?

Listview und Listbox = Nicht genug Speicher

Wie suche ich in Listview?