Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel alle Zellen einer Spalte in separate Textdateien exportieren

Frage Microsoft Microsoft Office

Mitglied: bluemchen

bluemchen (Level 1) - Jetzt verbinden

28.07.2010 um 11:47 Uhr, 9487 Aufrufe, 3 Kommentare

Hallo,
ich möchte alle Zellen einer Spalte (Excel-Dokument) in separate .txt-Dateien exportieren.

das Dokument enthält A1 bis A 23567 Zeilen. Es sollen also 23567 .txt-Dateien mit jeweils dem Inhalt einer Zelle entstehen.

Ich habe dafür folgendes Script verwendet:

Sub ErstelleDateien()
Ziel = "D:\Mein Ordner"
Stellen = 3
Typ = ".txt"
AbZeile = 1
Spalte = "F"
Zeile = AbZeile
Nr = 1000001
Set fso = CreateObject("Scripting.FileSystemObject")
If Right(Ziel, 1) <> "\" Then Ziel = Ziel & "\"
Do While Cells(Zeile, Spalte).Value <> ""
fso.CreateTextFile(Ziel & Right(Nr, Stellen) & Typ).Write Cells(Zeile, Spalte).Value
Zeile = Zeile + 1
Nr = Nr + 1
Loop
End Sub

Leider erhalte ich damit nur die ersten 71 Dateien.
Kenne mich mit dem Thema nicht aus und weiss deshalb nicht, ob es sich um ein Kapazitätsproblem handelt (=es können nur 71 Dateien auf einmal ausgelesen werden) oder ob es am verwendeten Script liegt.

Kann mir jemand helfen?

Viele Grüße
Blümchen
Mitglied: TsukiSan
28.07.2010 um 13:12 Uhr
Hallo blümchen,

was steht denn in Zelle 72 drinnen?
Etwa:

01.
Do While Cells(Zeile, Spalte).Value <> "" 
Dann macht dein Excel es richtig.

Gruss
Tsuki
Bitte warten ..
Mitglied: EffEins
28.07.2010 um 13:23 Uhr
Und wenn das richtig ist, dass es auch Leerzellen gibt, dann ändere die Do-While-Schleife.

01.
  
02.
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 
03.
....... 
04.
Next i


gruß f1
Bitte warten ..
Mitglied: bastla
28.07.2010 um 18:12 Uhr
... und im allerschlimmsten Fall die Zeilen (unelegant) konkret angeben:
01.
Sub ErstelleDateien() 
02.
Ziel = "D:\Mein Ordner" 
03.
Stellen = 5 
04.
Typ = ".txt" 
05.
VonZeile = 1 
06.
BisZeile = 23567 
07.
Spalte = "F" 
08.
 
09.
Nr = 1000001 
10.
Set fso = CreateObject("Scripting.FileSystemObject") 
11.
If Right(Ziel, 1) <> "\" Then Ziel = Ziel & "\" 
12.
 
13.
For Zeile = VonZeile To BisZeile 
14.
    fso.CreateTextFile(Ziel & Right(Nr, Stellen) & Typ).Write Cells(Zeile, Spalte).Value 
15.
    Nr = Nr + 1 
16.
Next 
17.
End Sub
Die Stellenanzahl (für die laufende Nummer) habe ich (passend zu Deiner Vorgabe) auf 5 erhöht ...

Falls Du übrigens, wie oben beschrieben, die Zellen aus Spalte "A" verarbeiten willst, solltest Du die Zeile 7 nochmals überdenken ...

Grüße
bastla

P.S.: Ehe ich's noch ganz vergesse: Willkommen im Forum, bluemchen!
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel Nachfrage: Datum aus Spalte ausgeben (2)

Frage von PronMaster zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel: Wenn Wert in Spalte A dann kopiere Zeile (8)

Frage von michi1983 zum Thema Microsoft Office ...

VB for Applications
Excel Makro zum Suchen von Spalten und exportieren in CSV (3)

Frage von Raptox zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Windows 7
gelöst BOOTMGR is missing (auch nach bootrec -RebuildBcd) (19)

Frage von Mipronimo zum Thema Windows 7 ...

Router & Routing
Tipps für Router (ca. 100 clients, VPN) (19)

Frage von oel-auge zum Thema Router & Routing ...

TK-Netze & Geräte
gelöst Convert von TAPI auf CAPI gesucht (13)

Frage von StefanKittel zum Thema TK-Netze & Geräte ...