Hallo folgendes Problem:
Der Code:
Public Sub Klein()
Set wkb = Worksheets("Klein")
Dim fileName As String
Dim MaxCols As Integer
fileName = Application.GetSaveAsFilename("\\("PC NAME")\Etiketten\Drucken\Klein\Etiketten", "CSV File (*.csv), *.csv")
If fileName = "False" Then
End
End If
On Error GoTo eh
Const adTypeText = 2
Const adSaveCreateOverWrite = 2
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Charset = "UTF-8"
BinaryStream.Type = adTypeText
BinaryStream.Open
For r = 1 To 10
s = ""
c = 1
While Not IsEmpty(wkb.Cells(r, c).Value)
s = s & wkb.Cells(r, c).Value & ";"
c = c + 1
Wend
BinaryStream.WriteText s, 1
Next r
BinaryStream.SaveToFile fileName, adSaveCreateOverWrite
BinaryStream.Close
MsgBox "CSV erstellt"
eh:
End Sub
Das CSV File soll unter dem angegebenen Speicherort gespeichert werden im UTF-8 Format ohne dieses Windows Fenster mit der Speichern unter abfrage. Wie bekomm ich diese raus???
Vielen Dank im voraus