[[20140728145356]]　『記録マクロからの応用』（コヨーテひな）　ページの最後に飛ぶ

『記録マクロからの応用』（コヨーテひな）

外部データ取り込みで、マクロの記録で以下のマクロができますが、日付部分を変数として扱いたいのですが、なかなかできません。REPLACEを使用するのだとだと思うのですが、過去ログを探しても上手くいきません。日付部分を変更可能にするにはどのようにしたらいいのでしょうか。よろしくお願いいたします。

With ActiveSheet.QueryTables.Add(Connection:= _

    "TEXT;C:\Users\Desktop\処理\2014.6.2.TXT", Destination:=Range("$A$1"))
    .Name = "2014.6.2"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 932
    .TextFileStartRow = 1
    .TextFileParseType = xlFixedWidth
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 1, 1, 1)
    .TextFileFixedColumnWidths = Array(17, 7, 12)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 >   "TEXT;C:\Users\Desktop\処理\2014.6.2.TXT", Destination:=Range("$A$1"))
 の行のお話でしょうか。

 dt = "2014.07.28"
 "TEXT;C:\Users\Desktop\処理\" & dt & ".TXT", Destination:=Range("$A$1"))

 というようなことでしょうか。
（Mook） 2014/07/28(月) 16:03

Mook様

どうもありがとうございました。
出来上がりました。

今後もよろしくお願いいたします。

（コヨーテひな） 2014/07/28(月) 16:24

コメント返信：

[ 一覧(最新更新順) ]

[[20140728145356]] 『記録マクロからの応用』（コヨーテひな） ページの最後に飛ぶ

[[20140728145356]]　『記録マクロからの応用』（コヨーテひな）　ページの最後に飛ぶ