< návrat zpět

MS Excel


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

Zaslal/a 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: png42252_obr_csv.png (48kB, staženo 38x)
42252_obr_csv.png
Zaslat odpověď >

#042254
Stalker
Vyzkoušej, žádné uvozovky v notepadu mi to nedělá
Příloha: zip42254_csv_generate.zip (13kB, staženo 48x)
citovat
#042255
elninoslov
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
#042258
Stalker
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 1citovat
#042270
avatar
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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

microsoft 365 hlaska sharepoint

jano1 • 20.7. 16:59

Názvy z řádků do sloupců Power Query

Alfan • 19.7. 13:49

Názvy z řádků do sloupců Power Query

lubo • 19.7. 12:24

vyhledání obsahu buňky

vfort • 18.7. 11:22

Názvy z řádků do sloupců Power Query

Alfan • 18.7. 10:01

Tlac 2 roznych tabuliek

loksik.lubos • 17.7. 20:43

Týden v roce

Petr92 • 16.7. 15:34