Thema Datum  Von Nutzer Rating
Antwort
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
Rot UTF-8 Codierung/ Need alle files in der Ordner.
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:
24.07.2018 13:23:52		 Views:
546		 Rating:
     
Antwort:
  Ja
Thema:
UTF-8 Codierung/ Need alle files in der Ordner. 
Public Sub convert_UnicodeToUTF8()

   Dim parF1, parF2 As String
   Dim Pfad As String
   Dim DateiName As String
   
   Pfad = ThisWorkbook.Path & "\"
   
   DateiName = Dir(ThisWorkbook.Path & "\" & "*.csv")
   parF1 = Dir(Pfad & "*.csv")
   
      Do While DateiName <> ""
      
   Debug.Print Pfad & parF1, parF2
   
   

   parF1 = Pfad & parF1
   
   'parF1 = Pfad & "\" & "FR0010967323_20171231_SII-TPT-V3-CSV_monthly.csv"

   parF2 = parF1
   


  
   
    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
    
    
    

    
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
    
   DateiName = Dir$()
   
    Loop
 
   ' 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
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
Rot UTF-8 Codierung/ Need alle files in der Ordner.
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