Kopieren Sie eine Auswahl an text-Datei

Kann ich nicht finden, eine saubere Antwort über kopieren/einfügen einen Bereich aus Excel in eine Editor-text-Datei. Was ich versucht habe ( eine Für Jede Zelle) gibt mir nicht die gewünschte Ausgabe (alles in einer Spalte).

Folgender code funktioniert auch :

With Application
Selection.Copy
Shell "notepad.exe", 3
SendKeys "^v"
VBA.AppActivate .Caption
.CutCopyMode = False
End With

Aber ich möchte speichern Sie die Datei in einem speziellen Pfad und nicht mühsam manuell mit dem Editor.
Meine Zellen kopieren von text, und der Ausgang muss getrennt mit blancks und respektiert die Zeilen & Spalten.

Ich Lösungen gefunden, die mit dem kopieren der Auswahl in eine andere Woksheet, dann speichern Sie es als text, aber es Klang für mich eher hasardous für meine Arbeitsmappe sanaty oder zu schwer.
Meine Frage scheint dumm, aber ich kann wirklich nicht finden, eine saubere Antwort, und die meisten wichtig, ein code, ich werde es verstehen.

Kopieren in eine neue Arbeitsmappe und speichern als text ist eine akzeptable Methode. Oder dies: stackoverflow.com/questions/11503174/... Oder so: homeandlearn.org/write_to_a_text_file.html
Warum verwenden Sie Editor überhaupt??? Nur Excel verwenden, um die Textdatei zu erstellen.
Nein. Ich musst die txt-Datei in eine andere app, und für praktische Gründe, ist es am besten, stick mit dem Editor.
Lieber würde ich Fliegen Weg von Schleifen.
Es ist Ihr code - Sie können zu verhängen, unabhängig von Einschränkungen, die Sie mögen.

InformationsquelleAutor gabx | 2013-10-30

2
```
Sub writeCells()
Dim strPath As String
Dim strName As String
Dim FSO As Object
Dim oFile As Object
Dim c As Range

strName = "YourFileName.txt"
strPath = "C:\Your\Path\"

Set FSO = CreateObject("Scripting.FileSystemObject")


Set oFile = FSO.CreateTextFile(strPath & strName)

For Each c In Selection
    oFile.Write c.Value & " "
Next c

oFile.Close

End Sub
```
In diesem Beispiel A1:B10 ausgewählt ist.

also beginnend mit einer leeren Datei:

Nach dem ausführen dieses makro, und öffnen Sie die Datei, die ich am Ende wie folgt:

Ihre Lösung ist die sauberste und verständlich, die ich bisher gesehen habe. Ich werde versuchen, morgen, wenn Sie wieder bei der Arbeit, und schließlich angenommen. Ich habe bereits versucht, es, ABER ich hatte ein Trennzeichen Problem. Es sieht aus wie die & " " wird die Arbeit machen.TY
Funktioniert nicht. Holen Sie sich ein array von null in meine file.txt
Wie gezeigt in meine aktualisierte Antwort, diese Methode funktioniert. Etwas, das Sie verändert hat es gebrochen. Oder den Bereich, den Sie ausgewählt haben, leer ist. Oder Sie versucht, die Umwandlung des Bereichs in ein array.
ich kann geben einen anderen Blick. Aber ich habe einige code, wie gezeigt, here
Meine einzige problem mit diesem code ist, wenn man den Umgang mit einer Menge von Zeilen code zu Durchlaufen und jede Zeile für die Eingabe in den stream auf einem einzigen thread. Dies ist zwar sauberer und einfacher zu verstehen, aus einem coding-Perspektive, sendkeys scheint zu bieten die beste performance für große Daten-sets.

InformationsquelleAutor user2140261

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.