Office: Datenimport aus SQL - Filter in Zelle definieren

Hallo an alle,

ich importiere über einen Button Daten aus einer Datenbank ins Excel. Der Code dazu schaut so aus:

Code:

Sub Schaltfläche3_KlickenSieAuf()
With ActiveWorkbook.Connections("Abfrage von TEST").ODBCConnection
        .BackgroundQuery = False
        .CommandText = Array( _
        "SELECT t_FACT_Planning.FinanzstelleFID, t_FACT_Planning.BudgetartFID, t_FACT_Planning.DetailbudgetL2_FID, t_FACT_Pl" _
        , _
        "anning.BudgetelementFID, t_FACT_Planning.AusgangsjahrFID, t_FACT_Planning.UmbuchungsstatusFID, t_FACT_Planning.Wert" _
        , _
        ", t_FACT_Planning.Kommentar" & Chr(13) & "" & Chr(10) & "FROM PlanningDWH.dbo.t_FACT_Planning t_FACT_Planning" & Chr(13) & "" & Chr(10) & "WHERE (t_FACT_Planning.Umbuchung" _
        , _
        "sstatusFID<>0) AND (t_FACT_Planning.AusgangsjahrFID=2011)" & Chr(13) & "" & Chr(10) & "ORDER BY t_FACT_Planning.Kommentar" _
        )

Ich möchte das aber so haben, dass bei

Code:

(t_FACT_Planning.AusgangsjahrFID=2011)

das 2011 nicht hart codiert drinnen steht, sondern dass hier der Wert aus der Zelle K2 genommen wird - leider habe ich keine Ahnung, wie ich das syntaktisch reinkriege, kann mir da jemand helfen?

Danke und lg, Sonny

 

Hallo!

ungetestet:
(t_FACT_Planning.AusgangsjahrFID=Sheets("Tabelle1").Range("K2"))

 

Hm... Das Sheet heißt Abfrage_FACT, bei

Code:

 With ActiveWorkbook.Connections("Abfrage von TEST").ODBCConnection
        .BackgroundQuery = False
        .CommandText = Array( _
        "SELECT t_FACT_Planning.FinanzstelleFID, t_FACT_Planning.BudgetartFID, t_FACT_Planning.DetailbudgetL2_FID, t_FACT_Pl" _
        , _
        "anning.BudgetelementFID, t_FACT_Planning.AusgangsjahrFID, t_FACT_Planning.UmbuchungsstatusFID, t_FACT_Planning.Wert" _
        , _
        ", t_FACT_Planning.Kommentar" & Chr(13) & "" & Chr(10) & "FROM PlanningDWH.dbo.t_FACT_Planning t_FACT_Planning" & Chr(13) & "" & Chr(10) & "WHERE (t_FACT_Planning.Umbuchung" _
        , _
        "sstatusFID<>0) AND  (t_FACT_Planning.AusgangsjahrFID=Sheets("Abfrage_FACT").Range("K2"))ORDER BY t_FACT_Planning.Kommentar" _
        )

sagt er "Fehler beim Kompilieren: Erwartet: Listentrennzeichen oder )"...

Sagt dir das was?

 

Hallo!

Ich kenne mich mit SQL leider nicht wirklich aus, aber vielleicht hilft es, wenn du den Zellwert vorher in eine Variable einliest?

Sub Schaltfläche3_KlickenSieAuf()
Dim x
x = Sheets("Abfrage_FACT").Range("K2")
With ActiveWorkbook.Connections("Abfrage von TEST").ODBCConnection
.BackgroundQuery = False
.CommandText = Array( _
"SELECT t_FACT_Planning.FinanzstelleFID, t_FACT_Planning.BudgetartFID, t_FACT_Planning.DetailbudgetL2_FID, t_FACT_Pl" _
, _
"anning.BudgetelementFID, t_FACT_Planning.AusgangsjahrFID, t_FACT_Planning.UmbuchungsstatusFID, t_FACT_Planning.Wert" _
, _
", t_FACT_Planning.Kommentar" & Chr(13) & "" & Chr(10) & "FROM PlanningDWH.dbo.t_FACT_Planning t_FACT_Planning" & Chr(13) & "" & Chr(10) & "WHERE (t_FACT_Planning.Umbuchung" _
, _
"sstatusFID<>0) AND (t_FACT_Planning.AusgangsjahrFID=x)" & Chr(13) & "" & Chr(10) & "ORDER BY t_FACT_Planning.Kommentar" _
)

 

Hallo!

Falls ich mich da dazwischenmischen darf:
Es muss zu dem Zeitpunkt, zu dem SQL ausgeführt wird, so ausschauen:

Code:

(t_FACT_Planning.AusgangsjahrFID=2011)

Da das ganze aber in einem String verpackt ist, muss man selber dafür sorgen, dass der Ausdruck so ausschauend wird, denn mit einem Excel-Ausdruck "Sheets..." kann SQL nichts anfangen.

Daher:

Code:

".... (t_FACT_Planning.AusgangsjahrFID=" & Sheets("Abfrage_FACT").Range("K2") & ") ORDER ..."

Die "..." stellen natürlich Deinen restlichen SQL-Ausdruck dar.

 

Hallo!

Du darfst nicht nur, sondern du musst... :-D

 

Hallo

Versuchs mal so! Zelle K2 als Textfeld formatieren und dann den folgenden Code:

Code:

Sub Schaltfläche3_KlickenSieAuf() 
Dim strAusgangsjahr as String

With Sheets("Abfrage_FACT")
        strAusgangsjahr = .Range("K2").Text
End With

With ActiveWorkbook.Connections("Abfrage von TEST").ODBCConnection 
        .BackgroundQuery = False 
        .CommandText = Array( _ 
        "SELECT t_FACT_Planning.FinanzstelleFID, t_FACT_Planning.BudgetartFID, t_FACT_Planning.DetailbudgetL2_FID, t_FACT_Pl" _ 
        , _ 
        "anning.BudgetelementFID, t_FACT_Planning.AusgangsjahrFID, t_FACT_Planning.UmbuchungsstatusFID, t_FACT_Planning.Wert" _ 
        , _ 
        ", t_FACT_Planning.Kommentar" & Chr(13) & "" & Chr(10) & "FROM PlanningDWH.dbo.t_FACT_Planning t_FACT_Planning" & Chr(13) & "" & Chr(10) & "WHERE (t_FACT_Planning.Umbuchung" _ 
        , _ 
        "sstatusFID<>0) AND (t_FACT_Planning.AusgangsjahrFID='" & strAusgangsjahr & "')" & Chr(13) & "" & Chr(10) & "ORDER BY t_FACT_Planning.Kommentar" _ 
        )

MFG Andi

 

Passt!!

Ihr seid unglaublich, alle drei!!

Vielen Dank, beide Varianten funktionieren! :mrgreen:

lg Sonny