Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Batchdatei mit OEM-Zeichensatz erstellen (Umlaute)

Batchdatei mit OEM-Zeichensatz erstellen (Umlaute)
14.04.2008 08:03:00
Matthias
Hallo guten Morgen,
ich möchte mit VBA eine Batch-Datei erstellen. Das klappt auch so:

Sub test()
Dim ff As Integer
ff = FreeFile
Open ThisWorkbook.Path & "\test.bat" For Output As ff
Print #ff, "test.exe ""äöüß"""
Close #ff
End Sub


Allerdings ist der Zeichensatz, der im DOS-Modus verwendet wird, ein anderer, so dass statt der Umlaute dies herhauskommt:
Userbild
Wie kann ich in Excel den DOS-konformen Zeichensatz verwenden?
Gruß Matthias

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Batchdatei mit OEM-Zeichensatz erstellen (Umla
14.04.2008 08:35:56
bst
Morgen Matthias,
HTH, Bernd
--
Option Explicit

Private Declare Function CharToOemA Lib "user32.dll" ( _
    ByVal lpszSrc As String, _
    ByVal lpszDst As String _
    ) As Long

Public Function ANSItoASCII(ByVal Text As String) As String
    Call CharToOemA(Text, Text)
    ANSItoASCII = Text
End Function

Sub test()
    Dim ff As Integer
    ff = FreeFile
    Open "e:\test\test.bat" For Output As ff
    Print #ff, "test.exe " & Chr(34) & ANSItoASCII("äöüß") & Chr(34)
    Close #ff
End Sub


Anzeige
AW: Batchdatei mit OEM-Zeichensatz erstellen (Umla
14.04.2008 08:51:00
Matthias
Hallo Bernd,
Vielen Dank, das funktioniert!
Gruß Matthias

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige