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
24.07.2018 13:23:52 Boris
NotSolved
24.07.2018 13:25:46 Gast84568
NotSolved
Rot könnten wir das bitte strukturiert halten?! - Danke
 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:
Gast68054		 Datum:
24.07.2018 13:56:30		 Views:
372		 Rating:
     
Antwort:
  Ja
Thema:
könnten wir das bitte strukturiert halten?! - Danke		 
Option Explicit

  Sub Demo()
  
  Dim strPath As String
  Dim strFile As String
  
  strPath = "\\afspv1hom001.eu1.1corp.org\g126725$\Documents\Tool abc\csv1\"
  
  strFile = Dir$(strPath & "*.csv")
  
  Do While strFile <> ""
    
'    Debug.Print strPath & strFile
    
    Call convert_UnicodeToUTF8(strPath & strFile)
    
'    Call csvToxlsx(?)
    
    strFile = Dir$()
  Loop
  
'  Call csvToxlsx(?)
  
  End Sub

Private Sub convert_UnicodeToUTF8(ByVal Filepath As String, Optional ByVal SaveAs As String)
  
  If Trim$(SaveAs) = "" Then SaveAs = Filepath
  
  Const adSaveCreateOverWrite = 2
  Const adTypeText = 2
  
  Dim streamSrc As Object ' Source
  Dim streamDst As Object ' 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 Filepath
    .CopyTo streamDst
    .Close
  End With
  
  streamDst.SaveToFile SaveAs, adSaveCreateOverWrite
  streamDst.Close
  
  Set streamSrc = Nothing
  Set streamDst = Nothing
  
End Sub

Übrigens: Ob das mit der Konvertierung wirklich so funktioniert, habe ich nicht geprüft. Ich verlasse mich einfach mal darauf. ;)

 

Grüße

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
24.07.2018 13:23:52 Boris
NotSolved
24.07.2018 13:25:46 Gast84568
NotSolved
Rot könnten wir das bitte strukturiert halten?! - Danke
 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