Supr, Díky
Potřeboval bych upravit zápis tak, aby se importovaná data zapsali pod data, která již v souboru jsou. Tedy nic nemazat ale vkopírovat od prvního volného řádku.
With wsData.Range("A2").Resize(R, S)
.NumberFormat = "General"
.Formula = "=REPT(" & Vzorec & "A2,1)"
.NumberFormat = "@"
.Value2 = .Value2
End With
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.