Probleme mit DAO und Typen
20.02.2003 16:28:22
Alex F
vielleicht kann mir jemand hierbei helfen:
Ich wollte ein Excel Workbook als Datenbank benutzen-
also darin lesen und schreiben , ohne es zu öffnen.
Mit der u.g. Sub kann ich eine Tabelle einlesen :-) bis auf folgendes Problem:
Wenn in einer Spalte Werte verschiedenen Typs also zB.
in A1 und A3 ein Text, in A2 aber eine Zahl steht dann wird
die Zahl nicht mit übergeben.
Wenn in B1 und B3 eine Zahl, in B2 aber ein Text steht dann wird
der Text nicht mit übergeben.
Wie kann ich ein Recordset erstellen, mit dem ich auch
unterschiedliche Typen in einem Field einlesen kann?
Vielen Dank für Eure Hilfe
Sub DAOCopySheet()
'Excel 97 mit Verweis auf Microsoft DAO 3.5 Object Library
Dim db As Database
Dim rs As Recordset
Dim r As Long, c As Long
Set db = OpenDatabase("c:\test.xls", False, False, "Excel 8.0;HDR=No;")
Set rs = db.OpenRecordset("Tabelle1$", dbOpenTable)
ActiveSheet.Cells.Clear
For c = 0 To rs.Fields.Count - 1
rs.MoveFirst
For r = 1 To rs.RecordCount
ActiveSheet.Cells(r, c + 1) = rs.Fields(c)
rs.MoveNext
Next r
Next c
rs.Close
End Sub