Was für Beverly? PowerPivot Data Source
21.04.2014 22:04:22
Silent_Warrior5
ich habe ein Makro womit ich eine SQL Abfrage hinbekomme und den Pfad aus dem Workbook hole.
Läuft auch gut. Nun mein Problem.
Wie kann ich diese Connection an PowerPivot übergeben`? Das ich die Daten in einem Power View nutzen kann.
Die Daten kommen aus einer anderen Excel Datei.
Sub SQLDatenabfrageArchivTest()
Dim path As String
path = Tabelle1.Range("H64").Value
path2 = Tabelle1.Range("H65").Value
ActiveWorkbook.Connections("Test").Delete
Workbooks("FC Automatic Test&FUD Analyse&Statistik.xlsm").Connections.Add _
"Test", "", Array(Array( _
"ODBC;DSN=Excel Files;DBQ=" & path & ";DefaultDir= " & path2 & ";DriverId=1046;MaxBufferSize= _
2048;PageTimeout=5;" _
)), Array( _
"SELECT `DatenTest$`.Asin, `DatenTest$`.Quantity, `DatenTest$`.Disposition, `DatenTest$`. _
Location, `DatenTest$`.`Outermost Location`, `DatenTest$`.`Location Type`, `DatenTest$`.`Audit _
Date`, `Da" _
, _
"tenTest$`.`Age (in days)`, `DatenTest$`.title, `DatenTest$`.Datum, `DatenTest$`.Realdate, ` _
DatenTest$`.Realtitel, `DatenTest$`.alert, `DatenTest$`.Location2, `DatenTest$`.Owner, ` _
DatenTest$`." _
, _
"Team, `DatenTest$`.Test_Days, `DatenTest$`.`Owner#`, `DatenTest$`.`Team#`, `DatenTest$`.`alert# _
_
`, `DatenTest$`.`Dropzonen#`, `DatenTest$`.alszahl, `DatenTest$`.TestDaysZahl, `DatenTest$`.`we" _
_
, _
"lche konsole`, `DatenTest$`.fuerStatistik, `DatenTest$`.Wochentag, `DatenTest$`.Schicht, ` _
DatenTest$`.KW, `DatenTest$`.Monat, `DatenTest$`.Jahr" & Chr(13) & "" & Chr(10) & "FROM ` _
DatenTest$` `DatenTest$`" _
), 2
End Sub
sry fdp
Danke & Gruß
XD