Top-Themen

Aktuelle Themen (A bis Z)

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, 9890 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 Zellen aus zwei Spalten in separate Textdatei exportieren
gelöst Frage von Noah15Microsoft Office5 Kommentare

Hallo, es geht um folgendes Problem: Ich habe eine Excel-Tabelle mit knapp 200 Zeilen. Aus der ersten Zeile soll ...

VB for Applications
Excel Makro zum Suchen von Spalten und exportieren in CSV
Frage von RaptoxVB for Applications3 Kommentare

Hallo Zusammen Ich bin nun seit längerem daran beschäftigt in Excel 2013 ein Makro zu basteln, welches folgendes erledigt: ...

Microsoft Office
Microsoft Excel: Wenn Wert in einer Spalte vorhanden, dann mit Zelle in der gleichen Spalte rechnen
Frage von TheDukeOfOGHooDMicrosoft Office1 Kommentar

Hallo, ich habe folgende Frage: Ich möchte mit meinen Datensatz und einem anderen Datensatz (anderes Tabellenblatt) rechnen. Wenn der ...

Microsoft Office
Excel Spalten
gelöst Frage von a.grotheMicrosoft Office6 Kommentare

Hallo zusammen, ich habe ein Excel Dokument A. Hier habe ich nun Werte in folgender Form: In Zelle I8 ...

Neue Wissensbeiträge
Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 57 MinutenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Sicherheit

Teamviewer Sessions können gekapert werden - Update tw. verfügbar

Information von sabines vor 4 TagenSicherheit6 Kommentare

In bestimmten Konstellationen können Teamviewer Sessions gekapert werden, wahrscheinlich aber ein recht unwahrscheinliches Szenario. Da der Teamviewer gerne für ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Windows Server
Server 2012 über Eingabeaufforderung devmgmt.msc geht nicht
gelöst Frage von achim222Windows Server9 Kommentare

Hallo, ich habe hier einen Server 2012 der im Reparaturmodus startet. Es liegt an einem falschen VirtIO Treiber für ...