UF8 Code mit Variablem Worksheet
14.09.2016 07:37:53
baschti007
ich habe hier den code gefunden um eine Datei in UF8 umzuwandeln und würd nun gerne den code mit einem Variablen Worksheet versehen aber es funktioniert nicht.
den code GetUTF8String habe ich hier nicht hoch geladen.
Starten will ich das Makro im meinem Hauptmakro mit SaveAsUTF8CSV(fname, ws)
Dim fname As String
Dim ws As Worksheet
Sub SaveAsUTF8CSV(fname As String, wSa As Worksheets)
Dim hfile As Integer ' Filehandle bzw. Dateinummer
Dim i As Long ' Zähler über alle Zeilen
Dim j As Integer ' Zähler über alle Spalten
Dim OneLine As String ' Eine Zeile als String
Dim maxcol As Integer ' max. Anzahl an Spalten
With wSa
hfile = FreeFile
maxcol = .Cells.SpecialCells(xlCellTypeLastCell).Column
Open fname For Output As #hfile
Print #hfile, Chr(&HEF); Chr(&HBB); Chr(&HBF);
For i = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row
OneLine = ""
For j = 3 To maxcol - 1
OneLine = OneLine & """" & Replace(.Cells(i, j).Text, Chr(34), Chr(34) & Chr(34)) & """ _
Next j
OneLine = OneLine & """" & Replace(.Cells(i, j).Text, Chr(34), Chr(34) & Chr(34)) & """" & _
vbCrLf
Print #hfile, GetUTF8String(OneLine);
Next i
Close #hfile
End With
End Sub
Gruß Basti
Was mache ich Falsch ?