Hallo ich bin grad am verzweifeln.
Ich habe zwei Excel Files eine raw.csv worin meine Rohdaten liegen und eine pivot.xlsm welches die .csv als Datenquelle nutzt.
Mein Code ist folgender:
Fehlermeldung:
Zunächst geht die Dialogbox "Geben Sie OLE
DB-Initialisierungsinformationen für das Microsoft Access
Datenbankmodell ein" nachdem ich diese weggeclickt habe wird mir im
Debug Modus die vorletzte Zeile des Codes gelb Makiert. Eine
aktualisierung der Pivot Tabelle findet nicht statt.
Laufzeitfehler 1004 Anwendungs oder objektdefinierter Fehler
Vorher war die Datenquelle eine .xls Datei da funktionierte alles Einwandfrei nach Umstellung auf csv nicht mehr.
Hat jemand eine Idee ??
Danke im voraus Oraley
Ich habe zwei Excel Files eine raw.csv worin meine Rohdaten liegen und eine pivot.xlsm welches die .csv als Datenquelle nutzt.
Mein Code ist folgender:
Quellcode
- Private Sub Workbook_Open()
- Dim PFAD, QUELLE, VERBINDUNG, ALTPFAD As String
- Dim START, ENDE As Integer
- PFAD = ActiveWorkbook.Path
- QUELLE = "Data Source=" + PFAD + "\raw.csv"
- VERBINDUNG = ActiveWorkbook.Connections("raw").OLEDBConnection.Connection
- START = InStr(VERBINDUNG, "Data Source")
- ENDE = InStr(START, VERBINDUNG, ";")
- ALTPFAD = Mid(VERBINDUNG, START, ENDE - START)
- VERBINDUNG = Replace(VERBINDUNG, ALTPFAD, QUELLE)
- ActiveWorkbook.Connections("raw").OLEDBConnection.Connection = VERBINDUNG
- ActiveWorkbook.Connections("raw").Refresh
- ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
- End Sub
Fehlermeldung:
Zunächst geht die Dialogbox "Geben Sie OLE
DB-Initialisierungsinformationen für das Microsoft Access
Datenbankmodell ein" nachdem ich diese weggeclickt habe wird mir im
Debug Modus die vorletzte Zeile des Codes gelb Makiert. Eine
aktualisierung der Pivot Tabelle findet nicht statt.
Laufzeitfehler 1004 Anwendungs oder objektdefinierter Fehler
Vorher war die Datenquelle eine .xls Datei da funktionierte alles Einwandfrei nach Umstellung auf csv nicht mehr.
Hat jemand eine Idee ??
Danke im voraus Oraley
