同一フォルダ内のテキストファイルインポート

解決

Ｙｕｋｏ 2006-02-27 06:24:01 No: 94370

同じフォルダ内にあるテキストファイルをインポートしたいのですけど、どの
ように記述すればいいのでしょうか。
但しテキストファイル名はそのときによって変わりますが、テキストファイル
は一つだけです。
マクロの自動記録で下記のようになりましたが、
"TEXT;〜xxxx.TXT"のところを同じフォルダ内としたいのですが、どのように
記述したらいいのでしょうか。
このファイルは私のパソコンだけではなく、他の人も使用するので、テキスト
ファイルのある場所を固定したくないのです。

    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Documents and Settings\****\デスクトップ\xxxx.TXT", D
estination:= _
        Range("A1"))
        .Name = "xxxx"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 1, 2, 2, 2, 2, 2)
        .TextFileFixedColumnWidths = Array(4, 25, 25, 12, 8, 30)
        .Refresh BackgroundQuery:=False
    End With

マルチポスト報告人 2006-02-27 07:07:08 No: 94371

http://park7.wakwak.com/cgi-bin/sbox/~efc21/wwwlng.cgi?print+200602/06020391.txt

マルチポスト報告人 2006-02-27 07:13:21 No: 94372

http://www2.moug.net/bbs/exvba/20060225000012.htm

Ｙｕｋｏ 2006-02-28 06:08:33 No: 94373

皆さん、ありがとうございました。
助かりました。