CSV Dateien auswählen und importieren

Sub csv_auslesen() ' csv_auslesen Makro ' csv Datei auslesen und einfügen ' Tastenkombination: Strg+a With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Users\Hans Amarell\Desktop\Feinstaub Messungen und Infos\Feinstaub sensoren _ 1561, 1562 und 954 Auswertungen\201704 Feinstaubsensor 1561 auslesen\2017-08- _ 27_sds011_sensor_1561.csv" _ , Destination:=Range("$E$1")) .Name = "2017-08-27_sds011_sensor_1561" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 850 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = True .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(9, 9, 9, 9, 9, 1, 1, 9, 9, 1, 9, 9) .TextFileDecimalSeparator = "." .TextFileThousandsSeparator = "," .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Users\Hans Amarell\Desktop\Feinstaub Messungen und Infos\Feinstaub sensoren _ 1561, 1562 und 954 Auswertungen\201704 Feinstaubsensor 1561 auslesen\2017-08- _ 27_sds011_sensor_1561.csv" _ , Destination:=Range("$E$1")) .Name = "2017-08-27_sds011_sensor_1561

Option Explicit ' Module wide Variables Private worksheet_ As Worksheet Private DefaultPath As String Private csv_ As String ' Accessable from outside ' Executes below Code Public Sub Import() DefaultPath = Environ("Userprofile") & "\Documents\" Set worksheet_ = ThisWorkbook.Sheets(1) worksheet_.UsedRange.Clear '//Select File csv_ = CsvFilePath If csv_ = "" Then Exit Sub '//Import the Data AddCSV End Sub ' File Selection Private Function CsvFilePath() As String Dim FileDialog_ As FileDialog Dim selection_ As Variant Set FileDialog_ = Application.FileDialog(msoFileDialogFilePicker) With FileDialog_ .Filters.Add "CSV", "*.csv", 1 .AllowMultiSelect = False .InitialFileName = DefaultPath If .Show = -1 Then For Each selection_ In .SelectedItems CsvFilePath = selection_ Next selection_ End If End With Set FileDialog_ = Nothing End Function ' Import the csv File ' This code comes from the ' macro recorder Private Sub AddCSV() With worksheet_.QueryTables.Add(Connection:="TEXT;" & csv_, _ Destination:=Range("A1")) .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = False .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = False .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = xlMSDOS .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = True .TextFileColumnDataTypes = Array(1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub

'======================================================== ' Delete Connection(s) that where added by Sub: AddCsv Private Sub ClearConnections() Dim varConnection As Variant For Each varConnection In ThisWorkbook.Connections varConnection.Delete Next varConnection End Sub

Hi Peter,
wie immer: das problem sitzt vor dem PC, denk ich.
Mit den Codes komme ich nicht zurecht.
Folgendes habe ich in makro geschrieben:
Option Explicit
'========================================================
' Module wide Variables
'========================================================
Private worksheet_ As Worksheet
Private DefaultPath As String
Private csv_ As String
'========================================================
' Accessable from outside
' Executes below Code
'========================================================

Public Sub Import()
DefaultPath = Environ("Userprofile") & "\Documents\"
Set worksheet_ = ThisWorkbook.Sheets(1)
worksheet_.UsedRange.Clear
'//Select File
csv_ = CsvFilePath
If csv_ = "" Then Exit Sub
'//Import the Data
AddCSV
End Sub

'========================================================
' File Selection
'========================================================

Private Function CsvFilePath() As String
Dim FileDialog_ As FileDialog
Dim selection_ As Variant
Set FileDialog_ = Application.FileDialog(msoFileDialogFilePicker)
With FileDialog_
.Filters.Add "CSV", "*.csv", 1
.AllowMultiSelect = False
.InitialFileName = DefaultPath
If .Show = -1 Then
For Each selection_ In .SelectedItems
CsvFilePath = selection_
Next selection_
End If
End With
Set FileDialog_ = Nothing
End Function

'========================================================
' Import the csv File
' This code comes from the
' macro recorder
'========================================================

Private Sub AddCSV()
With worksheet_.QueryTables.Add(Connection:="TEXT;" & csv_, _
Destination:=Range("A1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 9, 9, 9, 9, 1, 1, 9, 9, 1, 9, 9)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = ","
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Columns("C:F").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Beim start des makros werden alle "Kästchen" blau und dann tut sich nichts mehr.
Dieses forumprogramm ist "saublöd". Dauernd muß ich passwort und emailadresse eingeben und dann meckert es noch dass ich nur textfiles hochladen kann.
Das nervt. Hier bin ich im Archiv und kann nichts eingeben . Man muss woaders sich eiloggen und wieder passwort und emailadresse eingeben. Ich denke ich wechsele in eine anderes forum. Hast du einen vorschlag?
Hans

Hallo Peter,
bei mir funzt es auch. Ich habe das makro immer mit den tasten "crtl+a" gestartet.
Wenn man an einem makro auch nur irgend etwas ändert, dann löscht Excel das "a". Man kann dann also nicht mehr mit den Tasten das Makro starten. Das muss man erstmal wissen! Auf diese hinterlist bin ich reingefallen. Tut mir leid.
Also in meiner Datei funktionierts.
Wenn ich aber Deine datei hier starte, dann kommt folgende meldung:
Laufzeitfehler
Der Zielbereich befindet sich nicht auf dem Arbeitsblatt, auf dem die Abfragetabelle sich befindet.
Ich lade hierzu eine docx hoch. Achtung: man kan nur eine doc hochladen, keine docx. Deshalb habe ich die endung in doc geändert. Bitte wieder in docx umbenennen.
https://www.herber.de/bbs/user/116561.doc
Diese Excel internaprobleme werde ich auch noch herausfinden.
Bei mir klappt das jetzt. In einer mappe lade ich hoch und kopiere es dann "mit der maus" in die mappe wo ich es brauche.
Wenn ich herausfinde welche mappe in sich funzt, schick ich Dir die datei.
ein bit reserve
Hans

Beliebteste Forumthreads (12 Monate)

CSV Dateien auswählen und importieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

112 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CSV Dateien auswählen und importieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

112 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread