Platzhalter - Nachtrag | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

' wenn in C6 am Ende ein "\" steht With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _ & Sheets("csv-Info").Range("C6") & Sheets("csv-Info").Range("C3"), _ Destination:=Range("A2")) ' sonst With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _ & Sheets("csv-Info").Range("C6") & "\" & Sheets("csv-Info").Range("C3"), _ Destination:=Range("A2")) End With ' oder z. B. Dim wksCI As Worksheet Set wksCI = Worksheets("csv-Info") With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & wksCI.Range("C6") _ & "\" & wksCI.Range("C3"), Destination:=Range("A2"))

Hallo Erich,
gleich dein 1. Tipp war goldrichtig - BESTEN DANK !
Ich poste nun mal das komplette Makro (aufgezeichnet mit Makrorekorder) .
Obwohl ich nur einen Bruchteil davon verstehe, so habe ich doch noch eine Frage dazu:
Die Quellen-CSV war ursprünglich nur bis Spalte L befüllt - sofern man bei csv (eigentlich txt) überhaupt von Spalten reden kann...
Nun schwankt diese Spaltenzahl aber ständig u. so kommentierte ich die untere Zeile mit dem ...Array... einfach aus - u. siehe da: MIT oder OHNE diese Zeile funzt es einwandfrei - selbst wenn ich die Anzahl der Einsen wahllos ändere.
Meine Frage also: Was besagt diese Zeile u. kann es OHNE zu Problemen kommen ?
Steht jede Eins für eine Spalte ?

VB-Code:

Sub format_Tableau()    'benötigt für CB1 in "csv-Import"

    'groesstenteils aufgezeichnet mit Makrorekorder

    Range("A2").Select

    '****************ORIGINAL

    '    With ActiveSheet.QueryTables.Add(Connection:= _

    '        "TEXT;D:\1\1 Baustellen\csv-Import\Abc_123456789_080718_080817.csv", _

    '        Destination:=Range("A2"))

    '    .Name = "Abc_123456789_080718_080817.csv"

    '****************

    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _

        & Sheets("csv-Info").Range("C6") & Sheets("csv-Info").Range("C3"), _

        Destination:=Range("A2"))

    .Name = Sheets("csv-Info").[c3]

    .FieldNames = True

    .RowNumbers = False

    .FillAdjacentFormulas = False

    .PreserveFormatting = True

    .RefreshOnFileOpen = False

    .RefreshStyle = xlInsertDeleteCells

    .SavePassword = False

    .SaveData = True

    .AdjustColumnWidth = True

    .RefreshPeriod = 0

    .TextFilePromptOnRefresh = False

    .TextFilePlatform = 1252

    .TextFileStartRow = 2

    .TextFileParseType = xlDelimited

    .TextFileTextQualifier = xlTextQualifierDoubleQuote

    .TextFileConsecutiveDelimiter = False

    .TextFileTabDelimiter = False

    .TextFileSemicolonDelimiter = True

    .TextFileCommaDelimiter = False

    .TextFileSpaceDelimiter = False

    '        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)

    .TextFileTrailingMinusNumbers = True

    .Refresh BackgroundQuery:=False

    End With

    Range("A1").Select

End Sub

Ist zwar nicht "lebenswichtig", aber ich würde gern spätere Probleme ausschließen.

Es würde mich also freuen, wenn du da mal draufschauen u. mir das erklären könntest...

Im Voraus tausend Dank für deine Bemühungen !

MfG Dirk

Beliebteste Forumthreads (12 Monate)

Platzhalter - Nachtrag

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Platzhalter - Nachtrag

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread