Code-Problem bei TXT-Export
18.02.2008 10:18:00
Frederic
ich hab folgenden Code, für den Export in eine TXT-Datei:
strSep = InputBox("Pleae choose ';' as separator.")
If strSep = "" Then Exit Sub
Select Case strSep
Case "chr(9)", "tab", "Tab": strSep = Chr(9)
Case Else: strSep = Left(Trim(strSep), 1)
End Select
Ich möchte gerne die Eingabeaufforderung, das Trennzeichen zu deklarieren auslassen und das Trennzeichen ";" vorgeben.
Was muss ich in diesem Codeabschnitt verändern?
Gruß und danke.
Frederic