Sub convtble
'f4t1 ist der table auf den der sql executetable ausgeführt wird
For i = 0 To f4t1.ColCount -1
For n = 0 To f4t1.RowCount -1
f4t1.Cell(f4t1.ColName(i),n) = convert2utf8(f4t1.Cell(f4t1.ColName(i),n))
Next
Next
End Sub
Sub convert2utf8(str)
bytes() = byteconv.StringToUtf8(str)
str = byteconv.StringFromUtf8(bytes(),0)
Return str
End Sub