Office: Print #1, ... Zwischenablage Excel in txt-Datei

Hallo,

ich bin dabei eine txt-Datei von Excel aus zu erzeugen.

Ich habe den zu kopierenden Bereich schon mal in die Zwischenablage geholt.

Code:

Mit dem Paste kommt er nicht klar, ebenso geht auch PasteSpecial hier nicht.

Wie man schon erahnen kann sind es viele, ungefähr 140000 Zellen die in die txt Datei sollen. Daher fällt das Kopieren der Zwischenablage per String ja wohl auch aus, da dieser Datentyp bei weitem nicht genügend Speicherplatz besitzt.

Gibt es eine Möglichkeit, mein Copy von vorher in die txt-Datei ausgeben zu lassen?


Ich weiß das es eine andere Methode gibt, wo jeder einzelne Zellinhalt nach und nach kopiert wird, aber das würde ja wesentlich länger dauern, als die Zwischenablage in die txt-Datei zu kopieren. Ich meine den Code hier z.B., der steht auch ähnlich in den Büchern:

http://www.ms-office-forum.net/forum...ighlight=Print

Danke für Antworten.

:)

 

Hallo Freak,

mir ist nur das zeilenweise Schreiben in eine Textdatei bekannt á la

Print #1, sTxt

wobei ich in die Variable sTxt z.B. die Inhalte der einzelnen Zellen mit Semikolon getrennt vorher zusammengesetzt habe.

 

Hallo Freak!
probier folgenden Code:

Sub test()
Dim MyData As DataObject
Set MyData = New DataObject
Range("A6*biggrin.gif*R" & r).Select
Selection.Copy
MyData.GetFromClipboard

Open sPath & Filename & "_ges.txt" For Output As #1
Print #1, MyData.GetText(1)
Close #1
End Sub

Kutrze Rückmeldung wäre nett.

MfG Anton

 

Hallo Anton,

vielleicht ist mein Excel zu alt, bei

Dim MyData As DataObject

streikt mein Excel.

 

Hallo Woody!
Mein Excel heißt Excel2000 und der streikt nicht.
MfG Anton

 

O.K. danke, werde morgen mal den Versuch unternehmen.

 

Hallo Anton

Deine Lösung sieht gut aus. Was hast du alles unter Extras - Verweise angeklickt? DataObject ist bei mir im Geschäft mit Office XP small B. nicht bekannt, ist es evtl. das DataObject aus Access?

Man könnte ja auch alles mit einer normaler Schlaufe (For i …) auslesen, evtl noch ein Trennzeichen zwischen den Feldern machen und ausgeben, Zwischenablage würde man da nicht mehr benützen.

Gruss

 

\@Anton, Danke Deine Variante funktioniert und wie erwartet deutlich schneller als die zeilenweise.

Es muss allerdings das Microsoft Access 11.0 Object Libary ausgewählt sein, sonst wird nur eine leere Textdatei erzeugt.

 

Code:

So ein weiteres Problem hat sich nun leider ergeben. Soweit funktioniert ja alles, aber ich will jetzt in die txt-Datei etliche kopierte Abschnitte hintereinander einfügen.

Mit meinem Codeausschnitt oben, wird leider in der Datei alles überschrieben und nur das jeweils zuletzt kopierte ist dann noch in der Datei.

Wie könnte man dies lösen?

 

\@Anton,
@freak,

Danke, läuft sehr schön!

 

Code:

Anscheinbar muss für die Dateien ab 2 nicht For Output sondern For Apend gewählt werden.

Leider konnte ich keine genaue Definition finden, was Apend und die restlichen 4 Befehle bewirken.

Hat da jemand eine Info und kann die Verwendung von Apend bestätigen?
Laut meinen Erfahrungen von heute, ist Apend wohl für das Anhängen von Inhalten in bestehende Dateien geeignet, ohne deren Inhalt zu überschreiben, was bei Verwendung von Output wohl das Problem darstellt.

 

Hallo,
also mit Append sollte es funktionieren: Code:

Ich hätte allerdings bei dieser Version über die Zwischenablage "Bauchschmerzen". Es ist doch eine recht wilde Konstruktion.

 

"Ich hätte allerdings bei dieser Version über die Zwischenablage "Bauchschmerzen". Es ist doch eine recht wilde Konstruktion."

Aber warum?

 

Hallo,
naja das ganze ist als "Bastellösung" sicher legitim, aber als professionelle Variante eher ungeeignet.
Schau selbst wie viele Programme/Prozesse an deinem Rechner parallel laufen.
Gibt es noch ein zweites Programm, was die Zwischenablage zur "internen Kommunikation" nutzt - dann knall's.
Die Zwischenablage ist meiner Meinung nach für den Nutzer zum manuellen Gebrauch - und nicht Mittel zur Programmierung.

 

Naja werden aber nicht bei allen Kopier- und Verschiebeaktionen die Daten im Hauptspeicher/Zwischenablage zwischengespeichert und sind somit theoretisch gefährdet? Excel hat doch keine eigene exklusive Zwischenablage, oder?