28. März 2024, 18:44
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0401
  E03: Daten aus geschlossenen Arbeitsmappen einlesen (ADO)
 Von edie
 Am 05. November 2007 um 08:21:24
 Frage Hallo Zusammen,

nachfolgende VBA-Code ließt Daten aus einer Access-Datei in eine UseForm ListBox in Excel ein.

Nun möchte ich gerne das gleiche nur aus einer Excel-Datei. Wie verändere ich den Code?
In der Excel-Datei habe ich die gleiche Spaltenanzahl und Namen.


Dim ADOCnn As New ADODB.Connection, Tabelle As New ADODB.Recordset

Private Sub btn_Abbrechen_Click()
ADOCnn.Close
Set ADOCnn = Nothing
Unload UserForm1
End Sub

Private Sub btn_Ändern_Click()
If Me.lst_Namen.Value Then
Tabelle.MoveFirst
Tabelle.Find "Nr=" & Me.lst_Namen.Column(0)
Tabelle!Name = Me.txt_Nachname
Tabelle!Vorname = Me.txt_Vorname
Tabelle.Update
ListeFüllen
End If
End Sub

Private Sub btn_Einfügen_Click()
Dim Zähler As Long
Tabelle.MoveFirst
While Tabelle.EOF = False
Zähler = Zähler + 1
Cells(Zähler, 1) = Tabelle!Vorname
Cells(Zähler, 2) = Tabelle!Name
Tabelle.MoveNext
Wend
End Sub

Private Sub btn_Hinzufügen_Click()
If Me.txt_Nachname <> "" And Me.txt_Vorname <> "" Then
Tabelle.AddNew
Tabelle!Name = Me.txt_Nachname
Tabelle!Vorname = Me.txt_Vorname
Tabelle.Update
ListeFüllen
End If
End Sub

Private Sub btn_Löschen_Click()
If Me.lst_Namen.Value Then
Tabelle.MoveFirst
Tabelle.Find "Nr=" & Me.lst_Namen.Column(0)
Tabelle.Delete
ListeFüllen
End If
End Sub

Private Sub lst_Namen_Change()
Me.txt_Nachname = Me.lst_Namen.Column(1)
Me.txt_Vorname = Me.lst_Namen.Column(2)
End Sub

Private Sub UserForm_Activate()
Dim Namen() As String, Zähler As Long
ADOCnn.Provider = "Microsoft.Jet.OLEDB.4.0"
ADOCnn.Open ("c:\Dokumente\gehalt.mdb")
Tabelle.Open "Mitarbeiter", ADOCnn, adOpenStatic, adLockOptimistic
ListeFüllen
End Sub

Private Sub ListeFüllen()
Dim Namen() As String, Zähler As Long
ReDim Namen(0 To Tabelle.RecordCount - 1, 0 To 2)
Tabelle.MoveFirst
For Zähler = 0 To Tabelle.RecordCount - 1
Namen(Zähler, 0) = Tabelle!Nr
Namen(Zähler, 1) = Tabelle!Name
Namen(Zähler, 2) = Tabelle!Vorname
Tabelle.MoveNext
Next
Me.lst_Namen.List() = Namen
End Sub

Hat jemand eine Idee oder Beispiel wie man Daten einließt
in eine UserForm ListBox aus einer XLS?

Vielen Dank im Voraus.

Grüße
[ VB-/VBA-Forum | Archiv 0401 | Archiv-Übersicht ]
 Antworten
E03: Daten aus geschlossenen Arbeitsmappen einlesen (ADO) - edie 05. November 2007 um 08:21:24
Re: Daten aus geschlossenen Arbeitsmappen einlesen (ADO) - Detlev Schubert 05. November 2007 um 12:45:02

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum