• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: VBA makro - csv soubor - data v uvozovkách

Zaslal/a Marw 29.12.2018 21:21

Dobrý den,
jsem začátečník v programování, potřebuji vytvořit makro v excelu, které bude generovat seriové čísla (zadá se sériové číslo a počet čísel které se má generovat). Sériové číslo potřebuji vygenerovat ve formátu:
00000,0xxxx,500 ,kde xxxx je vygenerované číslo.
Tak nějak pomocí internetu jsem zhotovil makro, které po zadaní počátečního čísla a celkového počtu, vytvoří požadovaný počet čísel na listu 2, ty odtud překopíruje do souboru data.csv a csv soubor se uloží. toto funguje. Problém je, že pokud csv otevřu přes notepad, tak jsou vygenerovaná data v uvozovkách, ale já potřebuju tyto data kvůli dalšímu zpracování bez uvozovek.
Pokud csv otevřu přes Excel tak uvozovky zde nejsou.
Na internetu jsem našel nějaké informace k této problematice, ale moc jsem z toho nebyl chytrý.
Prosím o radu, jak vytvořit csv soubor, kde data budou bez uvozovek. Děkuji.
Makro je:

Sub tlacitko()
Start = Range("B3").Value
pocet = Range("B4").Value
Dim i As Integer
i = 1
Sheets("List2").Select
Columns("A:D").ClearContents
For Start = Start To pocet + Start - 1
Cells(i, 1) = "00000," & "0" & Start & ",500"
i = i + 1
Next Start

Columns("A:A").Select
Selection.Copy

Workbooks.Open Filename:="D:\Data.csv", Local:=True
Windows("Data.csv").Activate
Sheets("Data").Select
ActiveSheet.Paste
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\Data.csv", FileFormat:=xlCSV, Local:=Tru
ActiveWorkbook.Close
End Sub

Děkuji.
Martin

Příloha: 42252_obr_csv.png (48kB, staženo 36x)

Zaslat odpověď >

---

Stalker(29.12.2018 23:06)#042254

Vyzkoušej, žádné uvozovky v notepadu mi to nedělá

Příloha: 42254_csv_generate.zip (13kB, staženo 47x)

citovat

elninoslov(30.12.2018 2:31)#042255

Alebo nahraďte toto
ThisWorkbook.Worksheets(1).Copy
ActiveWorkbook.SaveAs Filename:="D:\Data_" & Format(Now, "dd.mm.yyyy hh-mm-ss") & ".csv", FileFormat:=xlCSV, Local:=True
ActiveWorkbook.Close (False)
týmto
i = FreeFile
Open "D:\Data_" & Format(Now, "dd.mm.yyyy hh-mm-ss") & ".csv" For Output As #i
Print #i, Join(Pole, vbCrLf)
Close #i
a bude to rýchlejšie.citovat

Stalker(30.12.2018 8:51)#042258

Teď mě tak napadá pokud potřebuješ mít data v notepadu a využiješ změnu kódu od elninoslov
stačí koncovku ".csv" nahradit ".txt" a máš vystaráno citovat

Marw(30.12.2018 19:32)#042270

Stalekr a elninoslov, díky za vaše rady, zkusil jsem to co poslal Stalker a funguje přesně tak jak má. Ještě zkusm i změnu od elninoslov. A soubor potřebuji ve formátu csv.
Díky.
Mcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse