vbs Fehler bei Excel Import

Mein vbs welches mir eine SQL-Abfrage in xls importiert. Läuft seit Monaten fehlerfrei.
Habe jetzt plötzlich einen Fehler obwohl sich nichts geändert hat:
Dies 2. Zeile des Codeausschittes wird moniert:
----------------------------------------------------------------
For i = 0 to RS.Fields.Count -1
objSheet.Cells(rowCount+1, i+1).Value = RS.Fields.Item(i).Value
Next
rowCount = rowCount + 1
RS.MoveNext
x = x + 1
Loop
----------------------------------------------------------------
Ich habe pro SQL solch ein Skript. Bei den anderen SQL-Abfragen funzt alles. Nloß bei dieser nicht. Habe die besagte SQL_Anweisung direkt gegen die DB geschickt und es kam ein Ergebnis zurück...
Jemand eine Idee? Er importiert mir nur einen Teil und dann bricht er an der gleichen Stelle ab...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Julia,
in Deiner vorrangegangenen Anfrage sah der Vba-code noch so aus:


Do While Not RS.EOF
'objExcel.StatusBar = x & " Datensätze aus JIRA importiert" 'Text für Statusbar 'macht nur Sinn  _
bei objExcel.Visible = True
'Die Spalenüberschriften einfügen Bezug aus dem SQL-Statement
If( headerSet = 0 ) Then
For i = 0 to RS.Fields.Count - 1
objSheet.Cells(rowCount, i+1).Value = RS.Fields.Item(i).Name
Next
headerSet = 1
End If
'Die dazugehörigen Werte einfügen
For i = 0 to RS.Fields.Count -1
objSheet.Cells(rowCount+1, i+1).Value = RS.Fields.Item(i).Value
Next
rowCount = rowCount + 1
RS.MoveNext
x = x + 1
Loop

Daraus würde ich folgenden Code machen:



'objExcel.StatusBar = x & " Datensätze aus JIRA importiert" 'Text für Statusbar 'macht nur Sinn bei objExcel.Visible = True

'Die Spaltenüberschriften einfügen Bezug aus dem SQL-Statement

For i = 0 to RS.Fields.Count - 1

objSheet.Cells(rowCount, i+1).Value = RS.Fields.Item(i).Name

Next

'Die dazugehörigen Werte einfügen

objSheet.Range("A2").CopyFromRecordset rs

'und jetzt weiter wie bisher

Gruß von Luschi
aus klein-Paris

'der Vba-Code vor der Do While-Schleife RS.Open 'damit zeigt der DB-Cursor auf den 1. DS im Recordset 'statt der gesamten Do-While-Schleife werden sofort die Spaltenüberschriften (Feldnamen des _ RecordSets) geschrieben For i = 0 to RS.Fields.Count - 1 objSheet.Cells(rowCount, i+1).Value = RS.Fields.Item(i).Name Next 'jetzt werden alle DS aus dem Recordset in die Excel-Tabelle geschrieben 'beginnend in der Zelle 'A2' objSheet.Range("A2").CopyFromRecordset RS 'das war's dann auch schon 'nun noch das RS und die Connection schließen sowie die Objekt-Variablen zerstören 'genauso, wie es nach dem LOOP-Befehl steht 'vergiß dabei die folgenden 3 Objekte nicht Set objExcel = Nothing Set objWb = Nothing Set objSheet = Nothing

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread