Thema Datum  Von Nutzer Rating
Antwort
Rot CreateObject("ADODB.Stream") UTF-8
 02.05.2018 15:11:02 Niko
NotSolved

Ansicht des Beitrags:
Von:
Niko		 Datum:
02.05.2018 15:11:02		 Views:
793		 Rating:
     
Antwort:
  Ja
Thema:
CreateObject("ADODB.Stream") UTF-8
Hallo zusammen .  Ich muss mehrere csv datei in csv/xlsx format mit einem Charset UTF-8 kodierung  transformieren . 
 
Jetzt mache ich mir Gedanken, wie man für mehere datei in beliebiger Ordner  es macht .  z.B. mittels der Do While : 
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub CommandButton2_Click()
Dim CSVfolder As String, _
    XlsFolder As String, _
    fname As String, _
    wBook As Workbook
 
 CSVfolder = "D:\abc\csv1\"
 XlsFolder = "D:\abc\csv1\"
 
 fname = Dir(CSVfolder & "*.csv")
 
 Do While fname <> ""
    Set wBook = Workbooks.Open(CSVfolder & fname, Format:=6, Delimiter:=",")
    wBook.SaveAs XlsFolder & Replace(fname, ".csv", ""), xlOpenXMLWorkbook
    wBook.Close True
    fname = Dir
 Loop
End Sub

 

?
1
. Also bis jetzt funktioniert mit einem File , muss aber für alle bzw für merhere. Thx all
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Public Sub convert_UnicodeToUTF8()
 
   Dim parF1, parF2 As String
 
   parF1 = "D:\abc\csv1\MusterFile.csv"
 
   parF2 = "D:\abc\csv1\MusterFile.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 CreateObject("ADODB.Stream") UTF-8
 02.05.2018 15:11:02 Niko
NotSolved