MS Excel

Neviem, či je možné rovno v Exporte Excelu urobiť rozdielny počet stĺpcov, no tu sú dva príklady:
Sub ExportCSV()
Dim F As Object, Prvy As Integer, Ostatne As Integer, Riadkov As Long, i As Long, x As Integer, rngUsed As Range, D(), S As String
Const DEL = ";"

With ActiveSheet
Prvy = .Cells(1, .Columns.Count).End(xlToLeft).Column
Set rngUsed = .UsedRange
Ostatne = Intersect(rngUsed, rngUsed.Offset(1, 0)).Columns.Count
With rngUsed
Riadkov = .Rows.Count
ReDim D(1 To Riadkov, 1 To .Columns.Count)
D = .Value
End With
End With

Set F = CreateObject("Scripting.FileSystemObject").CreateTextFile("D:\CSVExport.csv", True, True)
For i = 1 To Riadkov
S = vbNullString
For x = 1 To IIf(i = 1, Prvy, Ostatne)
S = S & IIf(S = vbNullString, vbNullString, DEL) & D(i, x)
Next x
F.Writeline S
Next i

Set F = Nothing: Set rngUsed = Nothing
End Sub

Sub ExportCSV2()
Dim Prvy As Integer, Ostatne As Integer, Riadkov As Long, i As Long, x As Integer, rngUsed As Range, D(), S As String, Pole() As String
Const DEL = ";"

With ActiveSheet
Prvy = .Cells(1, .Columns.Count).End(xlToLeft).Column
Set rngUsed = .UsedRange
Ostatne = Intersect(rngUsed, rngUsed.Offset(1, 0)).Columns.Count
With rngUsed
Riadkov = .Rows.Count
ReDim D(1 To Riadkov, 1 To .Columns.Count)
D = .Value
End With
End With

ReDim Pole(Riadkov - 1)
For i = 1 To Riadkov
S = vbNullString
For x = 1 To IIf(i = 1, Prvy, Ostatne)
S = S & IIf(S = vbNullString, vbNullString, DEL) & D(i, x)
Next x
Pole(i - 1) = S
Next i

With CreateObject("ADODB.Stream")
.Open
.Charset = "UTF-8"
.WriteText Join(Pole, vbCrLf)
.SaveToFile "D:\CSVExport.csv", 2
.Close
End With

Set rngUsed = Nothing
End Sub

Má to ale jedno podstatné ALE. Už X-krát omieľané kódovanie UTF-8 v CSV a BOM. Prvý kód neurobí UTF-8 ale nejaké "UCS-2 LE BOM". Druhý kód urobí "UTF-8 BOM". To BOM sú 3 bajty v súbore, ktoré robia šarapatu pri importoch do rôznych systémov. Vyskúšajte, alebo sa inšpirujte pri hľadaní iného riešenia.

Možno klasickým exportom urobiť CSV, to v makre otvoriť ako text, zmazať v prvom riadku všetky ";" sprava po najbližší znak a súbor znovu uložiť. Ale zase to ALE, lebo ak by sa Vám aj podaril Export do UTF-8 bez BOM, tak takéto uloženie to opäť degraduje.

Možno má niekto niečo použiteľnejšie.citovat

To je predsa logické, že Vám tam dá znovu oddeľovače. Veď predsa použijete stále rovnaký polyfunkčný exportovací systém.

Použite tú druhú metódu, čo som postol, potom čo urobíte požadované úpravy v dátach (možno aj tie by sa dali zautomatizovať makrom). Žiaľ nevieme aké typy dát sú v stĺpcoch, koľko ich je, a aký požadovaný formát majú mať napr. dátumy či desatinné čísla. Toto si ošetríte pre požadované polia v tom cykle x napr cez Select Case x.

Dostanete z toho požadované CSV UTF-8 BOM, bez nadbytočných oddeľovačov s prvom riadku.

Toho BOM sa ľahúčko zbavíte v NotePad++ asi za 4 sekundy (menu Kódovanie - Kódovať v UTF-8 bez BOM - Uložiť).

Ak to robíte často, makro si môžete dať ako doplnok do lišty v Exceli, len teda otvoríte CSV, urobíte úpravy (alebo ak budú automatizovateľné makrom, tak ručne nemusíte), stlačíte čudlík a vytvorí sa nový CSV, ktorý sa môže už rovno v NotePad++ otvoriť a len čaká na Vaše 3 kliky.

Kým sa nepríde na lepší systém priamo v Exceli, myslím, že by to bolo prijateľné.citovat

Upřímně
Provádět úpravy csv souboru pomocí excelu není moudré. A to proto, že excel si prostě provede ještě svoje úpravy, které nechcete.

To znamená - buď nějaký skript (podíval bych se, co všechno umí Shell nebo PowerShell), VBS nebo klidně makro, ale nemělo by dojít k otevření a uložení v excelu, ale pouze úpravám uvnitř (jedná se o textový soubor - na to není potřeba otevírat v excelu). Já si tímto způsobem z CSV odstraňuji první řádek.

Píšete jen - nějaké změny. Záleží co jsou to za změny.citovat

Pobavil jste mě, nic ve zlém... :-)

Jsem rád, ale docela by mně zajímalo čím. Nevím co máte za verzi excelu (nedávno tu řešil xlnc) - ale pokud je originál v UTF8 bez BOM - umíte ho stejně uložit v excelu? Toto je totiž pro mnoho programů zásadní problém - prostě pokud to má sloužit jako import, po úpravě v excelu se vám to velmi často nepovede. A to nemluvím o dalších problémech, jako chybný import číselných oddělovačů atp (když se vám z 1 koruny stane 40000 a ani si toho nevšimnete ;) ) . No - nedělám to ;)))

Ta rada je skrytá ve větě
jedná se o textový soubor - na to není potřeba otevírat v excelu
Způsobů je více => Hledejte například OpenTextFile pro FileSystemObject nebo Open FilePath For Mode As FileNumber

Já vím, že PowerShell je součástí - jinak bych vám ho tu nenavrhoval.citovat

No keď je to funkčné, tak čo tu stále riešiš? Potrebuješ sa pochváliť alebo čo?citovat