Excel-Sheet als text-Datei speichern

Sub DB_Kündigung_erstellen() Sheets("Kündigung").Select Rows("1:2").Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.DisplayAlerts = False Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:= _ "J:\Datenquellen\db_Kündigung.txt", _ FileFormat:=xlText, CreateBackup:=False ActiveWindow.Close Sheets("Durchschreibe").Select Range("A3").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Florian,
dein Problem konnte ich bei einem Versuch nicht nachvollziehen.
Ich glaube nicht, dass das Problem durch die Speicherung in Excel verursacht wird.
Eher würde ich das Problem (und seine Lösung) in Word vermuten.
Warum verwendest du für den Word-Serienbrief überhaupt eine Textdatei und keine Exceltabelle?
Dass Word beim Öffnen einer Textdatei nach der Konvertierung fragt, ist IMHO ganz normales Verhalten,
auch wenn keine Umlaute enthalten sind.
Wie sieht denn die Textdatei aus, wenn du sie ganz normal mit dem Editor (Notizblock) öffnest?
Ich lass mal offen, vielleicht hat jemand eine Idee, die dich weiterbringen kann.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo,
ich hätte da ein Vorschlag,
öffne die Text- Datei aus Excel in Word und speichere diese als Worddokument.
Am ende kann die Textdatei gelöscht werden, ist noch inaktiv.
Modul Modul1

Option Explicit 
 
Sub Test() 
Dim objWord As Object 
Dim strPfad As String, strDatei As String 
Dim strNeuWord As String 
 
'Pfad zur Textdatei 
strPfad = IIf(Right$(ThisWorkbook.Path, 1) = "\", _
          ThisWorkbook.Path, ThisWorkbook.Path & "\") 
'Name Textdatei 
strDatei = "Test.txt" 
 
'Neue Worddatei Name 
strNeuWord = Replace(strDatei, ".txt", ".doc") 
 
Set objWord = CreateObject("Word.Application") 
objWord.Visible = False 
 
'Textdatei in Word öffnen 
 objWord.Documents.Open Filename:=strPfad & strDatei, ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
        Format:=0, XMLTransform:="", Encoding:=1200 
 
'Abfrage unterdrücken zum überschreiben 
Application.DisplayAlerts = False 
'als Word speichern 
 objWord.ActiveDocument.SaveAs Filename:=strPfad & strNeuWord, FileFormat:=0, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False 
Application.DisplayAlerts = True 
 
objWord.Quit 
Set objWord = Nothing 
 
''Textdatei löschen, zur Zeit inaktiv 
'Kill strPfad & strDatei 
 
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

Excel-Sheet als text-Datei speichern

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel-Sheet als text-Datei speichern

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread