Mit Makro Datensätze rauskopieren

03/09/2007 - 11:22 von Harri Märki | Report spam
Hallo zusammen

Ich habe eine Exceltabelle mit über 27'000 Datensàtzen. Hiervon muss ich
jeweils 1999 Datensàtze in ein neues *.csv File reinkopieren. 1999 Datensàtze
deshalb, weil in diesem Importprogramm jeweils max 2000 DS importiert werden
können, wobei die erste Zeile immer den Typ angibt, also ID, Name, Adresse,
etc.

Im Endeffekt müssen also ca 14 Files importiert werden. Bis jetzt habe ich
alles manuell gemacht. Da ich noch weitere Exceltabellen mit über 25'000
Datensàtzen habe, möchte ich dies eigentlich gerne mit einem Makro lösen.

Hat mir da einer einen Tip?

Danke und Gruss
Harri
 

Lesen sie die antworten

#1 Christopher
03/09/2007 - 12:02 | Warnen spam
On 3 Sep., 11:22, Harri Màrki
wrote:
Hallo zusammen

Ich habe eine Exceltabelle mit über 27'000 Datensàtzen. Hiervon muss ich
jeweils 1999 Datensàtze in ein neues *.csv File reinkopieren. 1999 Datensàtze
deshalb, weil in diesem Importprogramm jeweils max 2000 DS importiert werden
können, wobei die erste Zeile immer den Typ angibt, also ID, Name, Adresse,
etc.

Im Endeffekt müssen also ca 14 Files importiert werden. Bis jetzt habe ich
alles manuell gemacht. Da ich noch weitere Exceltabellen mit über 25'000
Datensàtzen habe, möchte ich dies eigentlich gerne mit einem Makro lösen.

Hat mir da einer einen Tip?

Danke und Gruss
Harri



Hallo Harri!

Mit diesem Makro kopierst du einen Range der Datei, in der das Makro
ist, in die Datei Test.csv

Sub Makro1()
Worksheets(1).Range(Cells(1, 1), Cells(2000, 55)).Copy
Open ("test.csv") For Binary Access Write As #1
Cells(1, 1).PasteSpecial
Close #1
End Sub

So musst du halt immer deinen Range veràndern, reicht das?
Ansonsten definier ein paar Variablen und lauf mit der FOR Schleife
über deine ganze Tabelle, also mache den ersten RANGE dynamisch und
die Ausgabedateien test.csv auch (test1.csv,test2.csv,etc.)
Grüße
Christopher

Ähnliche fragen