Supportnet / Forum / Tabellenkalkulation
Excel als Text abspeichern
Frage
Guten Morgen,
hab mal wieder ein kleines Excel Problem.
Also folgendes Problem liegt vor:
Ich speicher meine Excel Mappe "Mappe1" mit -->Datei Speichern unter, Dateitype Text (Tabstopp-getrennt) ab, wobei ich 2Meldungen mit "Ja" bestätige. Anschliesend schliese ich die Textdatei wo ich wieder 3 Meldungen mit "Ja" bestätige.
Soweit sogut. Wenn ich das ganze jetz aber über einen aufgezeichneten MAkro laufen lasse ergeben sich zwei unterschiedliche Dateien. Warum? Hat das mit den Meldungen die ich bestätige zu tun? Hoff es kann mir da jemand weiterhelfen.
Antwort 1 von Flupo
Du solltest uns noch wissen, was das für Meldungen sind, die du bestätigst und worin der Unterschied der beiden Dateien besteht.
Gruß Flupo
Gruß Flupo
Antwort 2 von Sandra1003
Hallo nochmal
Also die erste Meldung ist:
Der ausgewählte Dateitype unterstützt keine Arbeitsmappen, die mehrere Blätter enthalten.
Klicken sie auf „OK“, wenn nur das aktuelle Blatt gespeichert werden soll.
Die ZWeite meldung ist:
Mappe1.txt kann Merkmale enthalten, die mit Text(Tabstopp-getrennt) Nicht kompatibel sind. Möchten Sie die Arbeitsmappe in diesem Format speichern?
Zum Speichern klicken Sie „JA“.
Der unterschied Zwischen den Beiden Tateien ist der das die maluell erstellte Datei Komma mitnimmt und die über Makro erstellte datei anstatt des Kommas einen Punkt setzt.
Hoff ich hab es einigermasen verständlich beschieben.
Also die erste Meldung ist:
Der ausgewählte Dateitype unterstützt keine Arbeitsmappen, die mehrere Blätter enthalten.
Klicken sie auf „OK“, wenn nur das aktuelle Blatt gespeichert werden soll.
Die ZWeite meldung ist:
Mappe1.txt kann Merkmale enthalten, die mit Text(Tabstopp-getrennt) Nicht kompatibel sind. Möchten Sie die Arbeitsmappe in diesem Format speichern?
Zum Speichern klicken Sie „JA“.
Der unterschied Zwischen den Beiden Tateien ist der das die maluell erstellte Datei Komma mitnimmt und die über Makro erstellte datei anstatt des Kommas einen Punkt setzt.
Hoff ich hab es einigermasen verständlich beschieben.
Antwort 3 von Flupo
Eine schöne Nuss, die da zu knacken war. ;-)
Aber ich hab eine Lösung.
Das Problem besteht in unterschiedlichen Sprachen von Excel und VBA.
Füge den Parametern der SaveAs-Anweisung noch einen weiteren hinzu (durch Komma getrennt):
local:=True
Was macht dieser Parameter?
Gruß Flupo
Aber ich hab eine Lösung.
Das Problem besteht in unterschiedlichen Sprachen von Excel und VBA.
Füge den Parametern der SaveAs-Anweisung noch einen weiteren hinzu (durch Komma getrennt):
local:=True
Was macht dieser Parameter?
Zitat:
Local
Mit true werden Dateien mit der Sprache von Excel gespeichert (einschließlich der Einstellungen der Systemsteuerung). Mit false (Standard) werden Dateien mit der Sprache von Visual Basic für Applikationen (VBA) gespeichert.
Local
Mit true werden Dateien mit der Sprache von Excel gespeichert (einschließlich der Einstellungen der Systemsteuerung). Mit false (Standard) werden Dateien mit der Sprache von Visual Basic für Applikationen (VBA) gespeichert.
Gruß Flupo
Antwort 4 von Sandra1003
Hallo
Hab ich das richtg gemacht so?
Sub TST_Speichern1()
'
' TST_Speichern1 Makro
' Makro am 19.11.2008 von Labor BM1 aufgezeichnet
'
'
Sheets("TST-KIc").Select
ActiveWindow.SmallScroll Down:=-14
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\usr9p473\Desktop\Mappe9.txt", FileFormat:= _
xlText, CreateBackup:=False, local:=True
ActiveWorkbook.Save
ActiveWindow.Close
ActiveWindow.SmallScroll Down:=-7
Range("A1").Select
Sheets("Probengeometrie ").Select
End Sub
Hab ich das richtg gemacht so?
Sub TST_Speichern1()
'
' TST_Speichern1 Makro
' Makro am 19.11.2008 von Labor BM1 aufgezeichnet
'
'
Sheets("TST-KIc").Select
ActiveWindow.SmallScroll Down:=-14
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\usr9p473\Desktop\Mappe9.txt", FileFormat:= _
xlText, CreateBackup:=False, local:=True
ActiveWorkbook.Save
ActiveWindow.Close
ActiveWindow.SmallScroll Down:=-7
Range("A1").Select
Sheets("Probengeometrie ").Select
End Sub
Antwort 5 von Flupo
Ja, glaub schon.
Die Zeile "ActiveWorkbook.Save" ist an dieser Stelle überflüssig da sie nur die vorher bereits gespeicherte Datei nochmal speichert. Willst du damit jedoch die Quelldatei speichern, so sollte sie als letzte Zeile vor dem "End Sub" stehen.
Gruß Flupo
Die Zeile "ActiveWorkbook.Save" ist an dieser Stelle überflüssig da sie nur die vorher bereits gespeicherte Datei nochmal speichert. Willst du damit jedoch die Quelldatei speichern, so sollte sie als letzte Zeile vor dem "End Sub" stehen.
Gruß Flupo