ich habe immer noch folgendes Problem, dessen lösung
mir sehr wichtig ist :
ich wollte ein Workbook als Datenbank benutzen-
also darin lesen und schreiben , ohne es zu öffnen.
Mit dieser Sub kann ich eine Tabelle einlesen:
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
wenn ich aber eine Liste von raumnummern in spalte A
101
102
102a
103
auslesen will übergibt mir das recordset die nummer 102a nicht
wie mir michael scheffler schon mitteilte kann ein field nur
einen datentyp beinhalten.
mir würde es auch ausreichen, wenn ich alle daten als string
übernehme - aber auch wenn ich in der Tabelle alles als text
formatiere klappt es nicht.
es muss doch möglich sein eine spalte mit texten wie
123a
123
via DAO einzulesen !!!
mit bitte um HILFÄÄÄ
Alex F