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 Erstellen einzelner .txt Dateien aus einer Excel Liste + Namensvergebung

Mitglied: Rinberger

Rinberger (Level 1) - Jetzt verbinden

23.08.2019 um 12:43 Uhr, 341 Aufrufe, 10 Kommentare, 4 Danke

Hallo zusammen,

ich versuche aus einer Excel Tabelle jede Zeile als einzelne .txt Datei auszugeben.
Das klappt bisher ganz gut und es werden mir alle Dateien erstellt.
Kann ich diese auch automatisch so ausgeben, dass sie als Dateinamen den jeweiligen Wert der Spalte A tragen?
In der .txt soll dann nur der Wert der Spalte B stehen wie bisher.

Beispiel:
bsp - Klicke auf das Bild, um es zu vergrößern
https://administrator.de/images/c/1/5/7b46119fcbab7b42f8cedd5601b16faf.j ...

Der Code:

Sub ErstelleDateien()
Ziel = "D:\Dein Ordner"
Stellen = 3
Typ = ".txt"
AbZeile = 1
Spalte = "B"

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

Viele Grüße
Rinberger
Mitglied: psuser
23.08.2019, aktualisiert 26.08.2019
Kann ich diese auch automatisch so ausgeben, dass sie als Dateinamen den jeweiligen Wert der Spalte A tragen?
Ja, Zeile so ändern das das Right(Nr, Stellen) geändert wird in Cells(Zeile, A)
01.
fso.CreateTextFile(Ziel & Cells(Zeile, "A") & Typ,true).Write Cells(Zeile, Spalte).Value
Bitte warten ..
Mitglied: Rinberger
23.08.2019 um 12:55 Uhr
Hi vielen Dank jetzt kommt allerdings diese Meldung.

bsp2 - Klicke auf das Bild, um es zu vergrößern
Bitte warten ..
Mitglied: psuser
23.08.2019, aktualisiert um 13:02 Uhr
Mit F8 schrittweise durchlaufen oder Breakpoint setzen.

Wenn die Datei schon existiert, zweiten Parameter von CreateTextfile auf True setzen, s. oben .
http://www.herber.de/mailing/vb/html/vamthcreatetextfile.htm
Bitte warten ..
Mitglied: Rinberger
23.08.2019, aktualisiert um 13:19 Uhr
Klappt noch nicht so.. bin da leider Anfänger. Mit F8 komme ich bis zu Zeile 16.

01.
Sub ErstelleDateien()
02.
Ziel = "D:\Test"
03.
Stellen = 3
04.
Typ = ".txt"
05.
AbZeile = 1
06.
Spalte = "B"
07.

08.
Zeile = AbZeile
09.
Nr = 1000001
10.

11.
Set fso = CreateObject("Scripting.FileSystemObject")
12.
If Right(Ziel, 1) <> "\" Then Ziel = Ziel & "\"
13.

14.
Do While Cells(Zeile, Spalte).Value <> ""
15.
    Set fs = CreateObject("Scripting.FileSystemObject")
16.
    fso.CreateTextFile(Ziel & Cells(Zeile, A) & Typ, True).Write Cells(Zeile, Spalte).Value
17.
    Zeile = Zeile + 1
18.
    Nr = Nr + 1
19.
    
20.
Loop
21.
End Sub
Bitte warten ..
Mitglied: psuser
LÖSUNG 23.08.2019, aktualisiert 26.08.2019
01.
Sub ErstelleDateien()
02.
Ziel = "D:\Test"
03.
Stellen = 3
04.
Typ = ".txt"
05.
AbZeile = 1
06.
Spalte = "B"
07.
Zeile = AbZeile
08.

09.
Set fso = CreateObject("Scripting.FileSystemObject")
10.
If Right(Ziel, 1) <> "\" Then Ziel = Ziel & "\"
11.

12.
Do While Cells(Zeile, Spalte).Value <> ""
13.
    fso.OpenTextFile((Ziel & Cells(Zeile, "A").Value & Typ),2,True).Write Cells(Zeile, Spalte).Value
14.
    Zeile = Zeile + 1
15.
Loop
16.
End Sub
Strings in Zelle A müssen natürlich Dateinamenstandards erfüllen und dürfen keine Sonderzeichen die ungültig sind enthalten! Klappt hier .
Bitte warten ..
Mitglied: Rinberger
26.08.2019, aktualisiert um 09:07 Uhr
Sonderzeichen wurden entfernt, keine Klammern, Punkte, Leerschritte etc. trotzdem kommt der Laufzeitfehler, woran liegt das?

01.
Sub ErstelleDateien()
02.
Ziel = "D:\Test"
03.
Stellen = 3
04.
Typ = ".txt"
05.
AbZeile = 1
06.
Spalte = "B"
07.
Zeile = AbZeile
08.

09.
Set fso = CreateObject("Scripting.FileSystemObject")
10.
If Right(Ziel, 1) <> "\" Then Ziel = Ziel & "\"
11.

12.
Do While Cells(Zeile, Spalte).Value <> ""
13.
fso.OpenTextFile((Ziel & Cells(Zeile, A).Value & Typ), 2, True).Write Cells(Zeile, Spalte).Value
14.
Zeile = Zeile + 1
15.
Loop
16.
End Sub
17.
Bitte warten ..
Mitglied: psuser
LÖSUNG 26.08.2019, aktualisiert um 09:10 Uhr
Na hieran
.Value.Value
doppelt gemoppelt hält halt nicht immer

Und hier fehlen bei dir die Anführungszeichen um das A
01.
Cells(Zeile, "A")
Bitte warten ..
Mitglied: Rinberger
26.08.2019 um 09:10 Uhr
Habs bemerkt... trotzdem bekomme ich den Laufzeitfehler 1004.
Bitte warten ..
Mitglied: psuser
26.08.2019, aktualisiert um 09:11 Uhr
Lies die Ergänzung zu den Anführungszeichen um das A
Bitte warten ..
Mitglied: Rinberger
26.08.2019 um 09:26 Uhr
Super endlich hat es geklappt vielen Dank!
Bitte warten ..
Neue Wissensbeiträge
Windows Server

Active Directory ESE Version Store Changes in Server 2019

Information von Dani vor 3 TagenWindows Server

Moin, Last month at Microsoft Ignite, many exciting new features rolling out in Server 2019 were talked about. But ...

Exchange Server

Microsoft Extending End of Support for Exchange Server 2010

Information von Dani vor 3 TagenExchange Server4 Kommentare

Moin, After investigating and analyzing the deployment state of an extensive number of Exchange customers we have decided to ...

Schulung & Training

Humble Book Bundle: Network and Security Certification 2.0

Tipp von NetzwerkDude vor 3 TagenSchulung & Training

Abend, bei HumbleBundle gibts mal wider ein schönes Paket e-books: sind verschiedene Zertifizierungen wie MCSA, CCNA, CompTIA etc., für ...

Voice over IP

Telekom Umstellung von ISDN Anlagenanschluss auf IP-Telefonie

Erfahrungsbericht von NixVerstehen vor 6 TagenVoice over IP11 Kommentare

Hallo zusammen, nachdem nun vor ein paar Tagen die zwangsweise Umstellung von ISDN auf IP-Telefonie problemlos über die Bühne ...

Heiß diskutierte Inhalte
VB for Applications
Euro-Zeichen in jedem neu erstellten Brief mit Word automatisch entfernen
gelöst Frage von imebroVB for Applications23 Kommentare

Hallo, ich habe ein Problem mit Word, bzw. mit dem €-Zeichen, welches bei Erstellung eines Word-Briefes automatisch eingesetzt wird. ...

Batch & Shell
Regedit eintrad ändern als Admin
Frage von cyberworm83Batch & Shell19 Kommentare

Hallo zusammen, ich bin derzeit als Rollout Techniker unterwegs und muss täglich bei zig Rechnern einen Registry Einträg ändern ...

Visual Studio
Prüfen, ob Programm schon disposed wurde
Frage von MarcoBornVisual Studio17 Kommentare

Hallo Forum, ich habe in VB.NET ein Programm geschrieben, welches Word startet und dort Daten ausliest. Obwohl ich die ...

Router & Routing
Mikrotik Config PTP
Frage von Marcel94Router & Routing17 Kommentare

Hallo, kennt sich jemand mit Mikrotik aus? Möchte gerne eine PTP Verbindung mit zwei SYTsq 5ac Antennen erstellen. So ...