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

Mehrere txt Dateien in Excel schreiben

Frage Entwicklung

Mitglied: steinbock86

steinbock86 (Level 1) - Jetzt verbinden

05.12.2013, aktualisiert 09.12.2013, 2565 Aufrufe, 15 Kommentare, 1 Danke

Hallo

Kennt sich jemand mit vb skripten aus?
Habe mehrere txt Dateien die müssen ausgelesen werden und in ein Excel geschrieben werden.

Die txt Dateien sind so aufgebaut. Der erste teil bis zum komma sind immer die überschriften die in die spalten müsse und der teil nach dem komma muss jeweils die Spalte drunter.

txt Datei:
"Hallo","alles klar"
"Blabababbab","yyyyyyyyy"
Mitglied: Meierjo
05.12.2013, aktualisiert um 18:36 Uhr
Hallo Steinbock86

Und wie soll das Ganze dann aussehen, sollen die Daten aus
Textfile A in die Zeilen 1 und 2 geschrieben werden
Textfile B in die Zeilen 3 und 4
Textfile C in die Zeilen 5 und 6

Oder sollen alle Textfiles in die Zeilen 1 uns 2 geschrieben werden?

Wieviele Textdateien sind das?
Wieviele Zeilen hat jedes Textfile?


http://www.file-upload.net/download-8367666/Import_alle_TxtFiles.xlsm.h ...
http://www.file-upload.net/download-8367665/Text-A.txt.html
http://www.file-upload.net/download-8367664/Text-B.txt.html
http://www.file-upload.net/download-8367667/Text-C.txt.html

Habe mal eine XLSM Datei hochgeladen, und 3 Beispiel-Textfiles.
Vor dem starten des Makros mit ALT + F11 in die Entwicklungsumgebung wechseln, und den Pfad in Zeile 6 anpassen
allenfalls noch die Erweiterung (*.txt) in Zeile 7 anpassen.

Dann werden alle Textfiles im angegebenen Pfad der Reihe nach eingelesen, Ueberschrift in Zeile 1, der Text in Zeile 2


Gruss meierjo
Bitte warten ..
Mitglied: TsukiSan
06.12.2013 um 00:03 Uhr
Kennt sich jemand mit vb skripten aus?

Hallo steinbock86 und Willkommen im Forum,

dein Frage kann ich mit Ja beantworten. In diesem Forum wirst du mehr als fündig.
Aber ob dir jemand für lau ein massgeschneidertes Script bastelt, weiss ich nicht.
Wir sind hier ein Forum, dass Probleme durchkaut und nach Lösungen schaut und diese
auch meistens zum Schluss findet.

VB-script - meinst du VBS? Wie ist dein Ansatz deines Scriptes? Oder sind die Zeilen geheim?

Gruss
Tsuki
Bitte warten ..
Mitglied: steinbock86
08.12.2013 um 11:57 Uhr
Super danke für eure Hilfe funktioniert auch
Hab nur noch ein Problem und zwar ich hab so 100 txt Dateien die sind aber unterschiedlich aufgebaut und zwar so:

Beispiel 1.txt Datei sieht so aus:
"erstens","blabla"
"zweitens","vvvvvv"

2.txt Datei sieht so aus:
"erstens","bbbbb"
"zweitens","ggggg"
"drittens","yyyy"
"viertens","zzzz"

und z.b. die 52. txt Datei sieht so aus:
"erstens","kkkk"
"zweitens","lllllll"
"drittens","ppppp"

Die muss ich jetzt auslesen und folgendermaßen in excel importieren. Das was vor dem "Komma" steht ist die Überschrift.

Excel (mal die 1. und 2. txt Datei, der Rest folgt drunter):

"erstens" "zweitens"
"blabla" "vvvvvv"
idealerweise jetzt eine Zeile freilassen, dann 2.txt datei
"erstens" "zweitens" "drittens" "viertens"
"bbbbb" "ggggg" "yyyy" "zzzz"
Bitte warten ..
Mitglied: Meierjo
LÖSUNG 08.12.2013, aktualisiert 09.12.2013
Hallo

Dann könnte der Code in etwa so aussehen
01.
Sub Import_alle_TxtFiles() 
02.
 
03.
    Dim X As Double 
04.
    Dim y As Double 
05.
    Dim Txt1 As String 
06.
    Dim Txt2 As String 
07.
    Dim Datei As String 
08.
    Dim PFAD As String 
09.
     
10.
    PFAD = "D:\Temp\" 
11.
    Datei = Dir(PFAD & "*.txt") 
12.
    Application.ScreenUpdating = False 
13.
    Application.DisplayAlerts = False 
14.
    Cells.Delete 
15.
    X = 0 
16.
    y = 0 
17.
    Do While Datei <> "" 
18.
        X = 0 
19.
        Open PFAD & "\" & Datei For Input As #1 
20.
        Do While Not EOF(1) 
21.
        Input #1, Txt1, Txt2 
22.
            Cells(1, 1).Offset(y, X) = Txt1 
23.
            Cells(2, 1).Offset(y, X) = Txt2 
24.
            X = X + 1 
25.
        Loop 
26.
        Close #1 
27.
        Datei = Dir() 
28.
        y = y + 3 
29.
    Loop 
30.
    Application.ScreenUpdating = True 
31.
    Application.DisplayAlerts = True 
32.
End Sub
Gruss meierjo

[Edit Biber] Codetags. [/Edit]
Bitte warten ..
Mitglied: steinbock86
09.12.2013 um 07:52 Uhr
jetzt fehlt mir nur noch folgendes:

und zwar ist jede txt datei unter einem benutzernamen abgespeichert der müsste jeweils in Spalte A stehen. also z.b.
st-name_XYZ_bla.txt............wobei nur name jeder seinen eigenen hat der rest(st-_XYZ_bla.txt ist bei allen gleich)

Also z.B. bei der 52. txt Datei müsste dann in Excel stehen


Spalte A Spalte B Spalte C Spalte D
name "erstens" "zweitens" "drittens"
"kkkk" "lllllll" "ppppp"
Bitte warten ..
Mitglied: Meierjo
09.12.2013 um 08:00 Uhr
Hallo

Du meinst, der Dateiname ist derjeinge des Benutzers, oder hat du pro Benutzername ein Verzeichnis??

gruss
Bitte warten ..
Mitglied: steinbock86
09.12.2013 um 08:23 Uhr
der Dateiname ist derjeinge des Benutzers
Bitte warten ..
Mitglied: Meierjo
09.12.2013, aktualisiert um 10:33 Uhr
Hallo
Probiers mal so

01.
Sub Import_alle_TxtFiles() 
02.
    Dim X As Double 
03.
    Dim Y As Double 
04.
    Dim Txt1 As String 
05.
    Dim Txt2 As String 
06.
    Dim Datei As String 
07.
    Dim PFAD As String 
08.
    PFAD = "E:\Excel\" 
09.
    Datei = Dir(PFAD & "*.txt") 
10.
    Application.ScreenUpdating = False 
11.
    Application.DisplayAlerts = False 
12.
    Cells.Delete 
13.
    'X = 0 
14.
    Y = 0 
15.
    Do While Datei <> "" 
16.
    X = 1 
17.
    Open PFAD & "\" & Datei For Input As #1 
18.
    Cells(Y + 1, 1).Value = Datei 
19.
    Do While Not EOF(1) 
20.
        Input #1, Txt1, Txt2 
21.
            Cells(1, 1).Offset(Y, X) = Txt1 
22.
            Cells(2, 1).Offset(Y, X) = Txt2 
23.
            X = X + 1 
24.
        Loop 
25.
        Close #1 
26.
        Datei = Dir() 
27.
        Y = Y + 3 
28.
    Loop 
29.
    Application.ScreenUpdating = True 
30.
    Application.DisplayAlerts = True 
31.
End Sub
Gruss

[Edit Biber] Codetags. [/Edit]
Bitte warten ..
Mitglied: steinbock86
09.12.2013 um 10:14 Uhr
weltklasse danke dir
Bitte warten ..
Mitglied: steinbock86
09.12.2013 um 18:38 Uhr
jetzt fehlt mir nur noch folgendes und zwar soll es in der Excel Datei so ausschauen wie unten:

Es gibt noch einen Hacken und zwar sind die txt Dateien unterschiedlich aufgebaut, siehe beispielsweise 3.txt datei es gibt noch mehrere solcher

z.b. ist die 3. txt datei so aufgebaut:
"erstens","aaaaa"
"viertens","cccc"
"fünftens", "yyyyyyy"


Es ist ja so dass die txt Dateien unterschiedliche Länge an Überschriften haben, aber max. 25.


hier die ExcelDatei

name "erstens" "zweitens" "drittens" "viertens" "fünftens"............."fünfundzwanzigstens" (Spaltenüberschriften in Excel A-E)
(eine Zeile frei idealerweise)
Dateiname 1.txt datei "blabla" "vvvvvv"
Dateiname 2.txt datei "bbbbb" "ggggg" "yyyy" "zzzz"
Dateinname 3. txt datei "aaaaa" "cccc" "yyyyyyy"

.
.
Dateiname 52.txt datei "kkkk" "lllllll" "ppppp"
Bitte warten ..
Mitglied: Meierjo
10.12.2013 um 06:27 Uhr
Hallo und guten morgen

Verstehe nicht ganz, was du meinst.
Sind maximal 25 Ueberschriften pro Textdatei? Soll immer der Inhalt aus "erstens", "zweitens", "fünftens", etc untereinander aufgelistet werden?

Oder sind pro Zeile mal 2 Inhalte, wie in Dateiname 1.txt, mal 4 Inhalte, wie in Dateiname 2.txt
Oder ist das Problem, dass nicht immer mit Komma getrennt wird zwischen Ueberschrift und Inhalt?

Gruss
Bitte warten ..
Mitglied: steinbock86
10.12.2013 um 12:36 Uhr
Entschuldigung die seite hier hat die formatierung (die ganze leerzeichen) sodass eben die 3.txt datei des "cccc" unter "viertens" steht und des "yyyyyyy" unter "fünftens"
steht nicht übernommen. das war des problem


z.b. ist die 3. txt datei so aufgebaut:
"erstens","aaaaa"
"viertens","cccc"
"fünftens", "yyyyyyy"


es sind max. 29 Überschriften pro txt datei. Genau der Inhalt aus "erstens", "zweitens", "fünftens", etc soll untereinander aufgelistet werden und es sind pro Zeile mal 2 Inhalte, wie in Dateiname 1.txt, mal 4 Inhalte, wie in Dateiname 2.txt. Am Ende soll man dann jeweils in den Spalten filtern können.

Die Excel müsste so ausschauen (ich schreib die Zellen mit dahinter in Klammern)

name(A1) "erstens"(B1) "zweitens"(C1) "drittens"(D1) "viertens"(E1) "fünftens"(F1)............."neunundzwanzigstens"(AC1) (Spaltenüberschriften in Excel A-AC)
(eine Zeile frei idealerweise)
Dateiname 1.txt datei(A2) "blabla"(B2) "vvvvvv"(C2)
Dateiname 2.txt datei(A3) "bbbbb"(B3) "ggggg"(C3) "yyyy"(D3) "zzzz"(E3)
Dateinname 3. txt datei(A4) "aaaaa"(B4) "cccc"(E4) "yyyyyyy"(F4)

.
.
.
.
runter bis ende verzeichnis
Bitte warten ..
Mitglied: Meierjo
10.12.2013 um 13:53 Uhr
Hallo

Ok, jetzt wird's aber langsam kompliziert.

Hat denn die erste Datei, die eingelesen weren soll, immer alle Spalten-Ueberschriften (erstens bis neunundzwangistens), (Was für ein Wort ), oder sind da auch schon Lücken drin??

Gruss
Bitte warten ..
Mitglied: steinbock86
10.12.2013 um 13:59 Uhr
da sind lücken drin.....es hat keine datei alle 29 überschriften, des maximale was eine datei hat sind 25 Überschriften.

z.b. ist die 3. txt datei so aufgebaut:
"erstens","aaaaa"
"viertens","cccc"
"fünftens", "yyyyyyy"

die 11.txt datei ist so aufgebaut:
"erstens","vvvvv"
"zweitens","yyyyy"
"fünftzehntens","ssssss"

da muss man wahrscheinlich alles umschreiben oder?
Bitte warten ..
Mitglied: steinbock86
10.12.2013 um 15:14 Uhr
habs danke dir
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Batch & Shell
gelöst 2 große TXT Dateien vergleichen und Unterschiede in andere Datei schreiben (6)

Frage von sid.pdm zum Thema Batch & Shell ...

Microsoft Office
gelöst Txt Dateien in Excel importieren (9)

Frage von Serbitar zum Thema Microsoft Office ...

Batch & Shell
gelöst Loginzeiten aus dem Ereignisprotokoll in Excel schreiben (1)

Frage von l-Ne0n zum Thema Batch & Shell ...

Batch & Shell
Mehrere.csv Dateien zusammenfügen zu einer Datei mit bat (4)

Frage von Piotrney zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (25)

Frage von M.Marz zum Thema Windows Server ...

SAN, NAS, DAS
gelöst HP-Proliant Microserver Betriebssystem (14)

Frage von Yannosch zum Thema SAN, NAS, DAS ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Windows 7
Verteillösung für IT-Raum benötigt (12)

Frage von TheM-Man zum Thema Windows 7 ...