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
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige