ADODB zweiter Wert Überschrift fehlt, warum?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
dies liegt an der Formatierung der Spalte.
Die Überschrift ist Text (Du liest ohne ein) der Rest ist Zahl da kommt die Abfrage durcheinander!

Sub xx()
Dim rec As Object
Dim cnt As Object
Dim sAdoConnectString As String, sPfad As String
Dim sQuery As String
Dim n
Set cnt = CreateObject("Adodb.connection")
Dim oZielStartRange As Range
sPfad = ThisWorkbook.Path & "\ado1.xls" 'HIER ALLENFALLS NOCH DEN PFAD ANPASSEN
Set oZielStartRange = ThisWorkbook.Worksheets("Tabelle1").Range("a1")
sAdoConnectString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};HDR=1; _
DBQ=" & sPfad
Set rec = CreateObject("ADODB.RECORDSET")
cnt.Open sAdoConnectString
'sQuery = "Select Max ([Wert]) from [Quelle$] where Artikel='Hammer'"
sQuery = "Select * From [Quelle$A2:D" & 65000 & "]"
With rec
.Source = sQuery
.ActiveConnection = cnt
.Open
'MsgBox .Fields(1).Value
End With
Call AusgabePerCopyFromRecordset(rec, oZielStartRange)
Aufraeumen:
On Error Resume Next ' Sehr Faul
rec.Close
cnt.Close
Set rec = Nothing
Set cnt = Nothing
Exit Sub
Fehler:
MsgBox "Fehler: " & Err.Description
Resume Aufraeumen
End Sub
Private Sub AusgabePerCopyFromRecordset(DasRecordSet As Object, _
StartAusgabe As Range)
Dim n&
StartAusgabe.CurrentRegion.Clear
For n = 0 To DasRecordSet.Fields.Count - 1
StartAusgabe.Offset(0, n) = DasRecordSet.Fields(n).Name
Next n
StartAusgabe.Offset(1, 0).CopyFromRecordset DasRecordSet
End Sub

Gruß Tino

Hallo,
es handelt sich ja um eine Datenbankabfrage und eine
Datenbank ist in der Regel eine Überschrift und jeweils eine Spalte in einem bestimmten Format.
(Text, Zahlen, Währung , Datum usw.)
Wenn Du jetzt die komplette Spalte verwendest,
zBsp. Quelle$A:D ist die erste Zeile die Überschrift und diese ist bei dir leer.
Danach kommt in Spalte C ein Texteintrag gefolgt von Zahlen und da kommt diese Abfrage durcheinander.
Jetzt können wir sagen unsere Datenbank beginnt in Zeile 2,
dann ist der Texteintrag die Überschrift und der Rest wieder im einheitlichen Format Zahlen.
Wir wissen ja das Excel vor der Version xl2007 nur 65536 Zeilen
zur Verfügung hat und danach 1048576 Zeilen.
Also können wir den Bereich so festlegen.

sQuery = "Select * From [Quelle$A2:D" & IIf(LCase(Right$(sPfad, 4)) = ".xls", 65536, 1048576) & "]"

Gruß Tino

Beliebteste Forumthreads (12 Monate)

ADODB zweiter Wert Überschrift fehlt, warum?

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