Microsoft Excel

Herbers Excel/VBA-Archiv

Auswahlbox des zu importierenden *.txt files

    Betrifft: Auswahlbox des zu importierenden *.txt files von: ZECI
    Geschrieben am: 02.10.2003 16:43:19

    Hey Leute,

    habe immer wieder verschiedene txt files zu importieren, habe ein Makro erstellt welches tadellos funkt aber ich möchte anstatt immer dem gleichen File
    eine Abfragebox bei Beginn des Makros erhalten mit der ich dann die jeweilige txt Datei suchen kann und diese dann mit immer den gleichen Parametern importieren.

    Hat da jemand ne Lösung für mich ?

    Grüße ZECI

    Hier ein Auszug vom Makro:


    Sub neu()

    With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;C:\01\evac_34950866_103569110_EUR_43_4430_Paper_EFT.txt", Destination:= _
    Range("A100"))
    .Name = "evac_34950866_103569110_EUR_43_4430_Paper_EFT"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlOverwriteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = xlWindows
    .TextFileStartRow = 3
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierNone
    .TextFileConsecutiveDelimiter = True
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(9, 9, 9, 1, 1, 2, 9, 9, 9, 5, 9, 9, 1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9)
    .Refresh BackgroundQuery:=False
    End With

      


    Betrifft: AW: Auswahlbox des zu importierenden *.txt files von: ChrisL
    Geschrieben am: 02.10.2003 16:48:43

    Hi ZECI

    Dim fFile As Variant
    fFile = Application.GetOpenFilename("Text-Dateien (*.txt), *.txt")
    If fFile = False Then Exit Sub


    Gruss
    Chris


      


    Betrifft: kannst Du mir nochmal helfen ? von: ZECI
    Geschrieben am: 03.10.2003 11:24:13

    habs soweit geschafft aber jetzt habe ich das folgende Problem:
    bei ".Refresh BackgroundQuery:=False" komme ich nicht mehr weiter.

    Sub Import()


    Dim fFile As Variant
    fFile = Application.GetOpenFilename("Text-Dateien (*.txt), *.txt")
    If fFile = False Then Exit Sub

    With ActiveSheet.QueryTables.Add(Connection:="TEXT;fFile", _
    Destination:=Range("A100"))
    .Name = fFile
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlOverwriteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = xlWindows
    .TextFileStartRow = 3
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierNone
    .TextFileConsecutiveDelimiter = True
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(9, 9, 9, 1, 1, 2, 9, 1, 1, 5, 9, 9, 1, 9, 1, 9, 9, 9, 9, 9, 9, _
    9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9)
    .Refresh BackgroundQuery:=False
    End With


      


    Betrifft: weiss nicht von: ChrisL
    Geschrieben am: 03.10.2003 12:11:31

    Hi ZECI

    Kenne die Antwort leider nicht.

    Gruss
    Chris


      


    Betrifft: AW: Auswahlbox des zu importierenden *.txt files von: Michael Scheffler
    Geschrieben am: 02.10.2003 16:49:07

    Hi,

    nimm Application.GetOpenFileName

    Gruß

    Micha


      


    Betrifft: AW: Auswahlbox des zu importierenden *.txt files von: Reinhard
    Geschrieben am: 02.10.2003 16:56:16

    Hi Zeci,
    etwa so:
    ...
    TextDatei = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    With ActiveSheet.QueryTables.Add(_
    Connection:= "TEXT;" & Textdatei, _
    Destination:= Range("A100"))
    ...
    Gruß
    Reinhard


      


    Betrifft: AW: Auswahlbox des zu importierenden *.txt files von: zeci
    Geschrieben am: 02.10.2003 17:06:09

    Danke funkt tadellos

    ZECI


      


    Betrifft: erbitte nochmal Hilfe von: ZECI
    Geschrieben am: 03.10.2003 11:19:22

    habs soweit geschafft aber jetzt habe ich das folgende Problem:
    bei ".Refresh BackgroundQuery:=False" komme ich nicht mehr weiter.

    Sub Import()


    Dim fFile As Variant
    fFile = Application.GetOpenFilename("Text-Dateien (*.txt), *.txt")
    If fFile = False Then Exit Sub

    With ActiveSheet.QueryTables.Add(Connection:="TEXT;fFile", _
    Destination:=Range("A100"))
    .Name = fFile
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlOverwriteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = xlWindows
    .TextFileStartRow = 3
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierNone
    .TextFileConsecutiveDelimiter = True
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(9, 9, 9, 1, 1, 2, 9, 1, 1, 5, 9, 9, 1, 9, 1, 9, 9, 9, 9, 9, 9, _
    9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9)
    .Refresh BackgroundQuery:=False
    End With


      


    Betrifft: erledigt von: t
    Geschrieben am: 03.10.2003 13:05:48

    http://xlforum.herber.de/messages/318644.html