Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige