Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA: Datenimport aus Access mit Variabeln

VBA: Datenimport aus Access mit Variabeln
31.01.2018 23:22:32
Manne
Hallo zusammen,
ich habe gerade abstrakt gedacht und mich gefragt, wie ich es hin bekomme, eine Abfrage per Klick auf einen VBA-Knopf zu erhalten. Ich möchte in zwei Zellen in Excel verschiedene Datumsangaben festlegen und per VBA soll mir aus Access dann die verfügbaren Daten zwischen den Zeitpunkten liefern.
Könnt ihr mir da abstrakt weiterhelfen?
Grüße
Manne Hennes
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Datenimport aus Access mit Variabeln
01.02.2018 00:04:06
Sepp
Hallo Hennes,
da könnte dir diese Funktion helfen.

Private Function ADO_Access(ByVal dbFile As String, ByVal TableName As String, Optional Fields  _
As String = "*", Optional WhereString As String = "") As Object
Dim objCon As Object
Dim SQL As String, Con As String
On Error GoTo ErrorHandler
If ((GetAttr(dbFile) And vbDirectory)  vbDirectory) Then
Con = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & dbFile & ";" & _
"Jet OLEDB:Engine Type=5;" & "Persist Security Info=False;"
Set objCon = CreateObject("ADODB.Connection")
objCon.Open Con
SQL = "select " & Fields & " from [" & TableName & "]" & WhereString & ";"
Set ADO_Access = CreateObject("ADODB.Recordset")
ADO_Access.Open SQL, objCon, 3, 4, 1
End If
Exit Function
ErrorHandler:
Set ADO_Access = Nothing
End Function
Gruß Sepp

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige