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"
VBA import s proměnným názvem Vyřešeno
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 18
- 3567
-
od luko02420
Zobrazit poslední příspěvek
16 kvě 2023 11:27
-
- 9
- 2111
-
od MK_Vs
Zobrazit poslední příspěvek
02 lis 2023 09:26
-
- 0
- 1723
-
od FIDLIK
Zobrazit poslední příspěvek
20 říj 2023 21:16
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 1 host