Office: Variabler Dateipfad bei Einlesen von csv-Datei

Hallo zusammen,

ich habe einen Code mit dem Makro-Rekorder aufgenommen den ich gerne anpassen würde:

Sub AddData()
ActiveWorkbook.Queries.Add Name:="TWW", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Quelle = Csv.Document(File.Contents(""C:UsersAnnaDesktopAuswertungBuilding2TWW.txt""),[Delimiter="" "", Columns=3, Encoding=1252, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & " #""Geänderter Typ"" = Table.TransformColumnTypes(Quelle,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Geänderter Typ"""
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=TWW;Extended Properties=""""" _
, Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdSql
.CommandText = Array("SELECT * FROM [TWW]")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "TWW"
.Refresh BackgroundQuery:=False
End With
End Sub

Hintergrund ist, ich möchte verschiedene Daten aus unterschiedlichen csv Dateien einlesen.
Probleme macht mir dieser Abschnitt

ActiveWorkbook.Queries.Add Name:="TWW", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Quelle = Csv.Document(File.Contents(""C:UsersAnnaDesktopAuswertungBuilding2TWW.txt"")

als Quelle möchte ich gerne einen Teil davon variabel halten, nämlich die Nummer des Gebäudes (hier: Building2), da die Daten in jeweils eigenen Ordnern liegen. Die Excel-Datei die ich benutze heißt wie das jeweilige Gebäude. Das Problem ist, egal wie ich den Code ändere, z.B.

Quelle = Csv.Document(File.Contents(""C:UsersAnnaDesktopAuswertung" &ActiveWorkbook.name "TWW.txt"")

kommen Fehler.
Hat mir jemand einen Tipp?

Danke schon mal,
Anna

:)

 

Hi,

versuch mal folgendes:
Code:

Langer Post kurzer Sinn - unterbrich den String *Smilie

edit:
Mir fällt grad auf, dass dies nicht der original aufgezeichnete Code vom Makrorekorder ist.
Bitte mal diesen hochladen.

 

Das ist das Original:

Code:

Danke für den Tipp ich probiere es gleich aus *Smilie
Und sorry für die lange Nachricht *rolleyes.gif*

edit: leider kommt auch bei deinem Vorschlag der Fehler "Fehler beim Kompilieren. Erwartet: Anweisungsende" *frown.gif*

 

Nich doch - alles gut *Smilie
Die Summe beider Post war gemeint.


Bevor Du loslegst:
Wie bist Du beim aufzeichnen vorgegangen?
Excel -> Daten -> aus Anderen Quellen (?)

Zeichne folgende Vorgehensweise mal auf:
Excel -> Daten -> Aus Text -> CSV-Datei

und poste diesen Code -> wird, so schätze ich, übersichtlicher.

 

Füge die Daten so ein: Excel --> Daten --> aus Text/CSV
Code:

Dabei kommt der Code oben raus. Mir ist gerade aufgefallen, dass es beim kopieren im Dateipfad immer die Backslashs nicht mit kopiert hat - die sind natürlich drin in meinem Code in VBA

 

Code:

 

\@pipswarren falscher Thread?
@mase hast du noch eine Idee?
Das mit dem String unterbrechen hat nicht geklappt weil dann dieser Fehler kommt:
"Fehler beim Kompilieren. Erwartet: Anweisungsende"

 

Hi,

zeig doch mal den neuen Code:

 

Na klar,
hier ist er:

Code:

 

Das Gänsefüsschen hinter sBuilding muss schonmal weg

 

Aha, danke jetzt findet er zumindest die Datei!

Jetzt kommt allerdings der Laufzeitfehler '1004' Objektdefinierter Fehler und das Programm lädt die Daten nicht in die Tabelle

 

Vorschlag:
XLSX-Mappe und zwei Textdateien hochladen.
Gerne allesamt anonymisiert. Drei Zeilen je Textdatei genügen.

Somit könnte ich dasselbe testen wie Du auch.