Excel-Datei mit spezieller Endung speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christoph,
das mit .ida habe ich jetzt schon mehrmals gelesen, also nehm ich mal an du hast die Frage mehrmals gestellt.
Dazu mal folgendes.
Unübersichtlicher Code schreckt sehr ab, mich auch, denn deshalb antworte ich erst jetzt.
Für die Fragestellung wäre doch


Sub test()
dim counter as integer
counter=37
ActiveWorkbook.SaveAs Filename:="blablabla" & ".ida" & Format(counter, "0000"), FileFormat:=xlTextPrinter
End Sub

ausreichend gewesen.
Benutze hier im Forum bitte vor Codefragmenten den pre-Tag, also einfach <pre> vor die Codezeilen und </pre> danach hinschreiben, dann werden Einrückungen die man bei If For usw machen sollte auch dargestellt.
Oder schreibe komplette Makros, also mit


Sub x() ... End Sub

, dann macht dass dieses Forum automatisch.
Damit wird der Code um Klassen schneller und besser lesbar.

So, jetzt zu deinem Problem, durch den Parameter xlTextPrinter setzt Excel automatisch die Endung .prn hintendran.
Einfache Lösung, wenn das Workbook geschlossen ist, manuell den namen ändern.
Lösung2, nimm das folgende Makro dass ich grad frisch von Karl-Otto hier im Forum gemopst habe. Dort wo "," also Komma als Trennzeichen steht, kannst du es dir ggfs auf ";" o.ä. anpassen.
Bei Rückfragen melde dich hier.
Sollte alles zufriedenstellend klappen, so beende bitte alle deine anderen Threads zu dieser Frage, indem du mit dem Betreff "geschlossen o.T" darauf antwortest. Danke.
Gruß
Reinhard


Sub Christoph()
Dim TB As Worksheet
Dim TMP$, ExePath
Dim z%, s%
Dim Dateiname as String
Dateiname="blablabla" & ".ida" & Format(counter, "0000")
ExePath = Application.Path
Set TB = ActiveSheet
Open ExePath & "\" & Dateiname For Output As #1
For z = 1 To TB.UsedRange.Rows.Count
For s = 1 To TB.UsedRange.Columns.Count
TMP = TMP & CStr(TB.Cells(z, s).Text) & "," ' Komma als Trennzeichen
Next s
Print #1, left(TMP,len(TMP)-1)
TMP = ""
Next z
Close 1
'Workbooks.Open ExePath & "\" & Dateiname
End Sub

Hallo Cristoph,
wie werden die Daten erwartet?
Wie geht "brauche z.B. in der ersten zeile 8 zeichen für Beschreibung dann 6 für....." denn weiter für eine ganze Zeile?
Wenn diese 'Breiten' für alle Zeilen gelten, jeweils nur in Spalten unterschiedlich sind, ist es recht einfach dies in dem SpeicherMakro miteinzubauen.


TMP=TMP & left(CStr(TB.Cells(z, s).Text)& "              ",10) 'o.ä.

Ich habe jetzt mehrmals .prn abgespeichert also mit xlTextPrinter als Parameter.
Im Editor sieht man, dass, im Gegensatz zum Text unten der aus der ExcelHilfe stammt, keine Kommas drin stehen. Jede Spalte wird mit 10 Zeichen abgespeichert (in der Standardeinstellung für die Zellenbreite). Text steht dann linksbündig in diesen 10 Zeichen, Zahlen rechstbündig in diesen 10 Zeichen. Aufgefüllt wird mit Leerzeichen. Längeres als 10 wird abgeschnitten. Datum wird wie Zahlen rechtsbündig in der Form dd/mm/yy gespeichert. Zeilenende ist wie üblich 0D0A.
Gruß
Reinhard

Formatierter Text (durch Leerzeichen getrennt)-Format
Das Format formatierter Text (Leerzeichen getrennt) (*.prn) speichert nur den Text und die Werte, wie diese in den Zellen im aktiven Tabellenblatt angezeigt werden.

Alle Zeilen werden gespeichert. Wenn eine Zeile mit Zellen mehr als 240 Zeichen enthält, werden die Zeichen nach dem 240. Zeichen in eine neue Zeile am Ende der konvertierten Datei umbrochen. Wenn beispielsweise die Zeilen 1 bis 10 jeweils mehr als 240 Zeichen enthalten, wird der restliche Text aus Zeile 1 in Zeile 11 eingefügt, der restliche Text aus Zeile 2 in Zeile 12 eingefügt usw.

Datenspalten werden durch Kommata getrennt; alle Datenzeilen werden durch eine Zeilenschaltung abgeschlossen. Wenn Zellen Formeln an Stelle von Formelwerten anzeigen, werden die Formeln als Text konvertiert. Alle Formatierungen, Grafiken, Objekte und andere Tabelleninhalte gehen verloren.

Vor dem Speichern eines Tabellenblatts in diesem Format sollten Sie sicherstellen, dass alle zu konvertierenden Daten angezeigt werden und dass sich zwischen den Spalten ein ausreichender Abstand befindet. Ist dies nicht der Fall, können möglicherweise Daten verloren gehen oder in der konvertierten Datei nicht korrekt getrennt werden. Unter Umständen müssen Sie die Spaltenbreiten im Tabellenblatt anpassen.

Beliebteste Forumthreads (12 Monate)

Excel-Datei mit spezieller Endung speichern

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel-Datei mit spezieller Endung speichern

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

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread