Thema Datum  Von Nutzer Rating
Antwort
18.10.2016 07:51:43 TobiasT.
NotSolved
Blau Textdatei zeilenweise in Excel importieren
 18.10.2016 12:00:50 BigBen
NotSolved
18.10.2016 13:44:36 TobiasT.
NotSolved
18.10.2016 20:02:18 BigBen
NotSolved
19.10.2016 08:32:40 TobiasT.
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
18.10.2016 12:00:50		 Views:
794		 Rating:
     
Antwort:
  Ja
Thema:
Textdatei zeilenweise in Excel importieren

Hallo,

viel Erfolg bei Deiner "VBA-Kariere" Meine VBA-Kariere begann schon vor etwa 30 Jahren, dennoch lerne ich auch heute noch immer hier und da neues hinzu. Immer dran denken: "Es ist noch kein Meister vom Himmel gefallen. Jeder hat mal klein angefangen."

Falls eine ernsthafte Programmier-Kariere angestrebt wird, sollte man nicht allzu früh alles auf eine Programmiersprache setzen, sondern viel mehr in mehrere "hinein schnuppern". VBA hat so seine Schwachpunkte. Besser ist es schon VB.net (mit Microsoft Visual Studio) anzuschauen. Hier lernt man gleich eine objektorientierte Programmierung kennen.

Hier eine Lösung (Der Befehl wurde zuvor über den Makro-Rekorder aufgezeichnet und anschließend angepasst):

?
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Sub ImportFile1()
    Dim strFile1 As String
    Dim qry As QueryTable
     
    strFile1 = "Z:\Temp\Datei 1.txt"
     
    Set qry = ActiveSheet.QueryTables.Add(Connection:= _
        "Text;" & strFile1, Destination:=Range( _
        "$A$1"))
    With qry
        .Name = "Datei 1"
        .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 = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    qry.Delete
End Sub
 
Sub ImportFile2()
    Dim qry As QueryTable
    Dim strFile2 As String
    strFile2 = "Z:\temp\Datei 2.txt"
    Set qry = ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & strFile2, Destination:=Range( _
        "$A$1"))
    With qry
        .Name = "Datei 2"
        .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 = 6
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    qry.Delete
End Sub

Falls die importierten Daten später bei Bedarf aktualisiert werden sollen, sollte der Abfrage am Ende durch den Befehl "qry.Delete" nicht gelöscht werden.

LG, BigBen

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
18.10.2016 07:51:43 TobiasT.
NotSolved
Blau Textdatei zeilenweise in Excel importieren
 18.10.2016 12:00:50 BigBen
NotSolved
18.10.2016 13:44:36 TobiasT.
NotSolved
18.10.2016 20:02:18 BigBen
NotSolved
19.10.2016 08:32:40 TobiasT.
NotSolved