Thema Datum  Von Nutzer Rating
Antwort
26.06.2014 11:11:47 Tribal
NotSolved
26.06.2014 14:05:48 Gast8572
NotSolved
26.06.2014 21:27:27 Gast68490
NotSolved
26.06.2014 21:27:31 Gast61951
NotSolved
Rot Excel VBA - Daten aus CSV Dateien Importieren
 28.06.2014 07:14:06 Gast803
NotSolved
29.06.2014 23:39:56 Tribal
Solved

Ansicht des Beitrags:
Von:
Gast803		 Datum:
28.06.2014 07:14:06		 Views:
820		 Rating:
     
Antwort:
  Ja
Thema:
Excel VBA - Daten aus CSV Dateien Importieren

Hallo,

schmeiß' den MacroRecorder an und geh' mit Deinen Vorgaben manuell auf Daten >>> Externe Daten abrufen >>> Aus Text,
dann erhältst Du bspw. das hier:

Option Explicit

Public Sub test()

   Dim vntReturn As Variant
 
   vntReturn = Application.GetOpenFilename(FileFilter:="Text Files (*.csv),*.csv", _
       Title:="Please select text file...")
    If vntReturn = False Then Exit Sub
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & CStr(vntReturn), Destination:= _
        Range("$E$5")) 'Startzelle anpassen....
        .Name = "csvTest_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells  'Kein Überschreiben
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True  'Semikolon
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Die nicht benötigten Parameter entfernen oder anpassen...

Gruß,

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
26.06.2014 11:11:47 Tribal
NotSolved
26.06.2014 14:05:48 Gast8572
NotSolved
26.06.2014 21:27:27 Gast68490
NotSolved
26.06.2014 21:27:31 Gast61951
NotSolved
Rot Excel VBA - Daten aus CSV Dateien Importieren
 28.06.2014 07:14:06 Gast803
NotSolved
29.06.2014 23:39:56 Tribal
Solved