Do makra Private Sub CommandButton1_Click() za riadok:
.TextFileFixedColumnWidths = Array(8, 6, 12, 9, 9, 10, 10)
pridaj riadok:
.TextFileDecimalSeparator = "."
Odstráň z kódu (alebo zakomentuj):
'Columns("A:L").Select
'Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
'SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
'ReplaceFormat:=False
edit: Už to toľko nerieš, či je niekto nešťastný, alebo nie. Internet je slobodný priestor, máš právo si písať, čo chceš; výsledku sme sa zatiaľ dobrali, takže žiadny problém.citovat