Thema Datum  Von Nutzer Rating
Antwort
31.05.2016 17:22:00 Clemens Hortmann
NotSolved
Blau CSV Dateien importieren mit Zeitstempeln
 31.05.2016 17:40:05 Clemens
NotSolved
31.05.2016 17:47:39 Gast52933
NotSolved

Ansicht des Beitrags:
Von:
Clemens		 Datum:
31.05.2016 17:40:05		 Views:
673		 Rating:
     
Antwort:
  Ja
Thema:
CSV Dateien importieren mit Zeitstempeln
Leider kann man das da oben nicht richtig lesen. Hoffe, dass es dieses mal besser klappt. Sub ImportiereCSVDateien() Dim ordner Dim dat Set dat = Application.FileDialog(msoFileDialogFolderPicker) With dat .Title = "Netzwerk...." .InitialFileName = "I:\" 'oder was auch immer If .Show = -1 Then ordner = .SelectedItems(1) 'Zur weiteren verwendung MsgBox ordner End With CSVPFAD = ordner Dim wbTarget As Workbook, wbSource As Workbook, ws As Worksheet Set fso = CreateObject("Scripting.Filesystemobject") Set wbTarget = ActiveWorkbook Application.DisplayAlerts = False If wbTarget.Worksheets.Count > 1 Then For i = 1 To wbTarget.Worksheets.Count - 1 wbTarget.Worksheets(i).Delete Next End If For Each f In fso.GetFolder(CSVPFAD).Files If LCase(Right(f.Name, 3)) = "csv" Then Workbooks.OpenText Filename:=f.Path Set wbSource = ActiveWorkbook On Error Resume Next Set ws = wbTarget.Worksheets(f.Name) If Err <> 0 Then Set ws = wbTarget.Worksheets.Add ws.Name = f.Name ws.Range("A:ZZ").Clear End If wbSource.Worksheets(1).Range("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Semicolon:=True, TrailingMinusNumbers:=True wbSource.Worksheets(1).Range("A:ZZ").Copy Destination:=ws.Range("A1") wbSource.Close False End If Next Application.DisplayAlerts = True Set fso = Nothing Sheets("Formeln").Select Range("A1").Select MsgBox "fertig" End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
31.05.2016 17:22:00 Clemens Hortmann
NotSolved
Blau CSV Dateien importieren mit Zeitstempeln
 31.05.2016 17:40:05 Clemens
NotSolved
31.05.2016 17:47:39 Gast52933
NotSolved