Dim d As String, e As Stringd = Range("a1"

Writer: admin Type: booksonline Date: 2019-03-05 00:00
Dim d As String, e As Stringd = Range("a1")e = Range("a2")Sheets("Sheet2").SelectWith ActiveSheet.QueryTables.Add(Connection:= "TEXT;W:\Reservation\OldReports\e\d",Destination:=Range("$A$1")).Name = "d".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 = xlDelimited.TextFileTextQualifier = xlTextQualifierDoubleQuote.TextFileConsecutiveDelimiter = False.TextFileTabDelimiter = True.TextFileSemicolonDelimiter = False.TextFileCommaDelimiter = False.TextFileSpaceDelimiter = False.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1).TextFileTrailingMinusNumbers = True.Refresh BackgroundQuery:=FalseEnd With上記、テキストファイルをインポートするマクロなんですがA1とA2のセル値で検索しようとするとうまくいきません。。。セルの値で検索するにはどうしたらいいでしょうか?共感した0###>Connection:= "TEXT;W:\Reservation\OldReports\e\d"eとdは文字列型の変数ですよね。このままでは「e」「d」の文字列になります。Connection:= "TEXT;W:\Reservation\OldReports\" & e & "\" & d>.Name = "d".Name = d変数はダブルクォーテーションでは囲みません。ナイス0
###解決いたしました。ありがとうございました。

 

TAG