Thema Datum  Von Nutzer Rating
Antwort
Rot UTF-8 Codierung/ Need alle files in der Ordner.
23.07.2018 12:33:43 Boris
*
Solved
23.07.2018 13:54:37 Gast258
NotSolved
23.07.2018 13:55:00 Gast48165
NotSolved
24.07.2018 13:01:06 Gast68054
NotSolved
24.07.2018 13:23:52 Boris
NotSolved
24.07.2018 13:25:46 Gast84568
NotSolved
24.07.2018 13:56:30 Gast68054
***
NotSolved
24.07.2018 14:31:04 Boris
NotSolved
24.07.2018 20:06:07 Gast26548
NotSolved
26.07.2018 10:28:10 Ulrich
***
NotSolved
26.07.2018 11:05:08 Boris
NotSolved
26.07.2018 15:27:05 Gast65710
NotSolved
27.07.2018 01:40:58 Gast43564
NotSolved

Ansicht des Beitrags:
Von:
Boris		 Datum:
23.07.2018 12:33:43		 Views:
1048		 Rating:
     
Antwort:
 Nein
Thema:
UTF-8 Codierung/ Need alle files in der Ordner. 
Hallo zusammen . 

Ich habe mein Tool echt hard codiert . Also ich brauche alle .csv dateien to .csv mit UTF-8 code konvertieren bzw umwadneln .

Nicht einzeln, so wie ich jetzt habe, sodern alle files, die in "csv1" ornder sind, müssen konvertiert und gespreichert werden.

  Wie kann ich es am bestens machen ?

Mein VBA code : 



Public Sub convert_UnicodeToUTF8()

   Dim parF1, parF2 As String

   parF1 = "\\afspv1hom001.eu1.1corp.org\g126725$\Documents\Tool abc\csv1\FR0010967323_20171231_SII-TPT-V3-CSV_monthly.csv"

   parF2 = "\\afspv1hom001.eu1.1corp.org\g126725$\Documents\Tool abc\csv1\FR0010967323_20171231_SII-TPT-V3-CSV_monthly.csv"

    Const adSaveCreateOverWrite = 2
    Const adTypeText = 2

    Dim StreamSrc, streamDst ' Source / Destination
    Set StreamSrc = CreateObject("ADODB.Stream")
    Set streamDst = CreateObject("ADODB.Stream")
    streamDst.Type = adTypeText
    streamDst.Charset = "UTF-8"
    streamDst.Open

    With StreamSrc
        .Type = adTypeText
        .Charset = "UTF-8"
        .Open
        .LoadFromFile parF1
        .CopyTo streamDst
        .Close
    End With
    streamDst.SaveToFile parF2, adSaveCreateOverWrite
    streamDst.Close
    Set StreamSrc = Nothing
    Set streamDst = Nothing
    
Call csvToxlsx

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot UTF-8 Codierung/ Need alle files in der Ordner.
23.07.2018 12:33:43 Boris
*
Solved
23.07.2018 13:54:37 Gast258
NotSolved
23.07.2018 13:55:00 Gast48165
NotSolved
24.07.2018 13:01:06 Gast68054
NotSolved
24.07.2018 13:23:52 Boris
NotSolved
24.07.2018 13:25:46 Gast84568
NotSolved
24.07.2018 13:56:30 Gast68054
***
NotSolved
24.07.2018 14:31:04 Boris
NotSolved
24.07.2018 20:06:07 Gast26548
NotSolved
26.07.2018 10:28:10 Ulrich
***
NotSolved
26.07.2018 11:05:08 Boris
NotSolved
26.07.2018 15:27:05 Gast65710
NotSolved
27.07.2018 01:40:58 Gast43564
NotSolved