Hi!
Ich muss ein Excel-Sheet in den Betrieben updaten, doch muss ich dazu auch per Code einen Verweis auf Microsoft DAO hinzufügen - doch wie komm ich an die Verweise per VBA???
Gruß und Dankääää
Bernd
weis zwar nicht ob es das richtige ist was du suchst, aber hier mal ein Ansatz
Die Feldnamen einer Tabelle auslesen:
Sub ermittleFeldnamen(eineDB As String, eineTab As String)
On Error Resume Next
Dim db As DAO.Database
Dim t As DAO.TableDef
Dim tabs As DAO.TableDefs
Dim f As DAO.Field
Set db = OpenDatabase(eineDB)
If db Is Nothing Then Exit Sub
Set tabs = db.TableDefs()
For Each t In tabs
If UCase(t.Name) = UCase(eineTab) Then
For Each f In t.Fields
Debug.Print "Feldname: " & f.Name & vbTab & _
"Typ: " & f.Type
Next
Exit Sub
End If
Next
Set tabs = Nothing
Set db = Nothing
End Sub
leider völlig das Falsche…
aber trotzdem Dankää für die Mühe und inzwischen hab ich meine Lösung ;o)
Gruß
Bernd