VBA import s proměnným názvem

[Pavel001]

Dobrý den,
mám problém s nastavením cesty pro import pomocí VBA.
Potřebuji importovat csv soubor který každý den změní název dle aktuálního data.
V tomto formátu: htv_20151016.csv
Pokoušel jsem se o to tímto kódem:
Sub LoadFromFile()
Dim fileName As String, folder As String

folder = Format(Now, "F:htv_yyyymmdd.csv")
fileName = ActiveCell.Value

ActiveCell.Offset(1, 0).Range("A1").Select

With ActiveSheet.QueryTables _
.Add(Connection:="TEXT;" & folder & fileName, Destination:=ActiveCell)
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Je nějaká funkční možnost jak tuto situaci vyřešit?
Předem děkuji za nápady a omlouvám se za začátečnické chyby.

Dodatečně přidáno po 28 minutách 21 vteřinách:
Tak už jsem to vyřešil:
folder = "F:htv_" & Format(Date, "yyyymmdd") & ".csv"