< návrat zpět

MS Excel


Téma: Export do CSV rss

Zaslal/a 12.1.2015 18:54

dobrý den,
potřebuji exportovat buňky do souboru .csv tak aby buňky v .csv byli v uvozovkách a oddělené čárkou. nepodařilo se mě to ani přes vzorce (problém dělá formát datumu). soubory přiloženy.
moc děkuji Martin 7

Příloha: zip23114_export.zip (8kB, staženo 28x)
Zaslat odpověď >

#023198
avatar
První úlohu řeší tento kód (vykoná se pro řádek, kde stojí kurzor):
Sub Macro27()

Dim iRow As Long, i As Long
Dim jCol As Integer, j As Integer
Dim strX As String

i = ActiveCell.Row

For j = 1 To 11

If Len(strX) = 0 Then
strX = Chr(34) & CStr(Cells(i, j).Text) & Chr(34)
Else
strX = strX & "," & Chr(34) & CStr(Cells(i, j).Text) & Chr(34)
End If

Next j

Cells(i, "L") = strX

End Sub


Nějaké případné nesrovnalosti s formátem datumu nebo podobně můžeme doladit.

Pokud potřebuješ export v csv, tak dáš ten excel uložit jako a zvolíš formát csv. Ovšem možná myslíš export do texťáku. I s tím si poradíme, pokud je to tento případcitovat
#023207
avatar
No pokud nevadí makro, tak třeba:'ULOZI AKTIVNI LIST JAKO CSV
Sub UlozitJakoCSV()
Dim PathCSV As String, NameCSV As String, SepCSV As String
Dim MyStr As String, xFile As Byte
Dim rdR As Long, rdFirst As Long, rdLast As Long
Dim slR As Integer, slFirst As Integer, slLast As Integer
With ActiveSheet.UsedRange
rdFirst = .Rows(1).Row
rdLast = rdFirst + .Rows.Count - 1
slFirst = .Columns(1).Column
slLast = slFirst + .Columns.Count - 1
End With
PathCSV = ThisWorkbook.Path & "\"
NameCSV = "POKUS_1.csv"
SepCSV = Chr(34) & Chr(44) & Chr(34)
xFile = FreeFile
Open PathCSV & NameCSV For Output As xFile
For rdR = rdFirst To rdLast
MyStr = vbNullString
For slR = slFirst To slLast
MyStr = MyStr & SepCSV & Cells(rdR, slR)
Next slR
MyStr = Mid(MyStr, 3) & Chr(34)
Print #xFile, MyStr
Next rdR
Close xFile
End Sub
citovat

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09