Hallo zusammen,
ich möchte gerne eine Variable CSV Datei importieren die einmal Rohdaten1, Rohdaten2, Rohdaten3...... etc heißen kann. Diese würden in den Ordner C:\Rohdaten liegen.
Bei einer einzelnen Datei kann ich den Makrorekorder benutzen, meine Datei heißt aber immer wieder anders.
Hätte da jemand ne Idee, wie kann ich das variable konfigurieren?
Sub Makro4()
'
' Makro4 Makro
'
'
ActiveWorkbook.Queries.Add Name:="Rohdaten", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Quelle = Csv.Document(File.Contents(""C:\Rohdaten\Rohdaten.csv""),[Delimiter="";"", Columns=10, Encoding=1252, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & " #""Höher gestufte Header"" = Table.PromoteHeaders(Quelle, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & " #""Geänderter Typ"" = Table.TransformColumnTypes(#""Höher gestufte Header"",{{""Datum"", type text}, {""Uhrzeit#(tab)Stückz" & _
"ahl IO"", type time}, {""#(tab)Stückzahl"", Int64.Type}, {"" Riss"", Int64.Type}, {""#(tab)Stückzahl_1"", Int64.Type}, {"" Außendurchmesser"", Int64.Type}, {""#(tab)Stückzahl Innendurchmesser"", type number}, {""#(tab)Außendurchmesser"", type number}, {""#(tab)Innendurchmesser"", type text}, {"""", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Geänderter Typ"""
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Rohdaten;Extended Properties=""""" _
, Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdSql
.CommandText = Array("SELECT * FROM [Rohdaten]")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Rohdaten"
.Refresh BackgroundQuery:=False
End With
Application.CommandBars("Queries and Connections").Visible = False
End Sub
|