Datentransfer
27.01.2013 15:13:41
Rolf
mit dem folgenden Makro kann ich aus meiner Exceldatei heraus in eine Textdatei schreiben, ohne das diese sichtbar geöffnet wird.
Sub NamSpeich()
Sheets("Tabelle1").Activate
Set fs = CreateObject("Scripting.FileSystemObject")
Name = "C:\Users\-\Desktop\Datenübertrag\Ahorn200.txt"
Set a = fs.CreateTextFile(Name)
For i = 1 To 7
f$ = Cells(i, 3)
a.WriteLine f$
Next
a.Close
End Sub
Was muss ich ändern, um von meiner Exceldatei in eine andere Exceldatei Werte zu übertragen?
Gruß Rolf