MS Excel

Téma: Export do CSV

Zaslal/a fortes 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

Příloha: zip

23114_export.zip (8kB, staženo 29x)

Zaslat odpověď >

Milan-D(19.1.2015 14:38)#023198

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

kp57(19.1.2015 21:45)#023207

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

Téma: Export do CSV

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje