Thema Datum  Von Nutzer Rating
Antwort
Rot Text Datei import
 15.04.2016 13:03:08 VBA neuling
NotSolved

Ansicht des Beitrags:
Von:
VBA neuling		 Datum:
15.04.2016 13:03:08		 Views:
1273		 Rating:
     
Antwort:
  Ja
Thema:
Text Datei import

Hallo Forum Leser,

Ich habe ein kleines problem mit dem import von Daten aus einer Text Datei.

Wenn ich den Pfad und den Dateiname direkt in code schreibe funktioniert die trennung der Informationen in die einzelnen Spalten.

Hinterlege ich eine Variable im code, import er die Informationen aber nur noch in Spalte "A"

Die trennung ist "\" in der text datei.

Mit Debugger habe ich schon getestet und gesehen das die werte in der Varible gleich sind als ob ich sie direkt rein schreibe.

Ich sag schon mal vielen Dank an alle die sich mit dem problem beschäftigen :)

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub Import()
 
Dim ImportDatei As String
Dim readfile As String
'file abfrage mit pfad
ImportDatei = Application.GetOpenFilename(FileFilter:="Text Files (*.txt), *.txt", Title:="Eine Datei auswählen")
'extrahierung des Filenamen
readfile = Right(ImportDatei, Len(ImportDatei) - InStrRev(ImportDatei, "\"))
' tabelle die beschrieben wird auswählen und alte daten löschen
    Sheets("XXXX").Select
    Cells.Select
    Selection.ClearContents
    Cells(1, 1).Select
'Daten import
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" + ImportDatei _       ' wenn ich hier denn pfad direkt hinterlege geht es
        , Destination:=Range("A1"))
        .Name = readfile          ' wenn ich hier denn pDateinamen direkt hinterlege geht es
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 65001
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = "\"
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
        , 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
' zweite zeile wird gelöscht weil sie leer ist
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Text Datei import
 15.04.2016 13:03:08 VBA neuling
NotSolved