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 Brauche dringend Hilfe in Excel Makros

Mitglied: StefanH

StefanH (Level 1) - Jetzt verbinden

21.10.2015 um 16:47 Uhr, 661 Aufrufe, 4 Kommentare

Hallo allerseits,

ich hoffe ihr könnt mir helfen. Meine Excel-Makro Kenntnisse gehen gegen null und ich soll nun was programmieren. Habe folgendes Problem / Fragestellung.

Ich möchte gerne aus verschiedenen Unterordnern eine Text-File automatisch lesen und die darin enthaltenen Messdaten in Excel-Mappen kopieren/ablegen. Die Unterordner haben den gleichen Anfangsnamen enden aber immer unterschiedlich Bsp.:

- C:\...\0123_Sep_24_06_59_40\Test.txt
- C:\...\0123_Sep_24_07_01_43\Test.txt
- C:\...\0123_Sep_25_07_08_28\Test.txt
- C:\...\0123_Okt_01_07_08_22\Test.txt
.................

In den Text-Files sind untereinander Messwerte aufgelistet, die ich gerne in die Zelle A2 einfügen will. Für jeden Unterordner sollte jeweils eine Excel-Mappe mit gleichem Namen angelegt werden.

Ich hoffe ihr könnt mir weiterhelfen. Falls ihr mehr Infos benötigt, einfach schreiben.

Gruß

Stefan
Mitglied: Knorkator
21.10.2015 um 17:11 Uhr
Ich würde da mal nachfragen falls hier keinen nen Tipp hat.
http://ms-office-forum.net/forum/
Bitte warten ..
Mitglied: 114757
21.10.2015, aktualisiert um 17:26 Uhr
Moin,
Zitat von StefanH:
ich hoffe ihr könnt mir helfen. Meine Excel-Makro Kenntnisse gehen gegen null und ich soll nun was programmieren. Habe folgendes Problem / Fragestellung.
hmmm... weiß derjenige der dich damit beauftragt hat das du keinen Schimmer hast, klingt ein bißchen nach "Klar kann ich, mach ich für dich ..."
Und dann noch dringend ??
Ich möchte gerne aus verschiedenen Unterordnern eine Text-File automatisch lesen und die darin enthaltenen Messdaten in Excel-Mappen kopieren/ablegen. Die Unterordner haben den gleichen Anfangsnamen enden aber immer unterschiedlich Bsp.:
Na dann, hier was zum spielen.
01.
Sub Import()
02.
    Const QUELLE = "C:\Oberordner"
03.
    Set fso = CreateObject("Scripting.FileSystemObject")
04.
    
05.
    For Each folder In fso.GetFolder(QUELLE).SubFolders
06.
        Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
07.
        ws.Name = folder.Name
08.
        For Each file In folder.Files
09.
            If LCase(fso.GetExtensionName(file.Name)) = "txt" Then
10.
                With ws.QueryTables.Add(Connection:="TEXT;" & file.Path, Destination:=ws.Range("A2"))
11.
                    .Name = "import"
12.
                    .FieldNames = True
13.
                    .AdjustColumnWidth = True
14.
                    .RefreshPeriod = 0
15.
                    .TextFilePlatform = 1252
16.
                    .TextFileDecimalSeparator = ","
17.
                    .TextFileStartRow = 1
18.
                    .TextFileParseType = xlDelimited
19.
                    .TextFileTextQualifier = xlTextQualifierDoubleQuote
20.
                    .Refresh BackgroundQuery:=False
21.
                    .Delete
22.
                End With
23.
            End If
24.
        Next
25.
    Next
26.
End Sub
Gruß jodel32

Übrigens: das Forum hat eine Suchfunktion in denen das schon besprochen wurde
https://www.administrator.de/forum/bestimmte-daten-textdatei-excel-impor ...
https://www.administrator.de/forum/excel-vba-makro-sammeltabelle-erstell ...
https://www.administrator.de/forum/textdateien-importieren-excel-erste-z ...
usw.
Bitte warten ..
Mitglied: StefanH
22.10.2015 um 08:13 Uhr
Super, vielen vielen Dank, der Code funktioniert.
Bitte warten ..
Mitglied: 114757
22.10.2015 um 09:48 Uhr
Na dann fehlt ja nur noch ein gelöst.
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Excel Makros
Frage von chaos2goVB for Applications2 Kommentare

Hallo Gemeinde, File Größe über 500k Einträge Steigend . ich bekomme Monatlich ein Raw Dump aus unserer DB als ...

Microsoft Office

Excel 2010 - Tabelle mit mehreren Makros?

Frage von Norderney95Microsoft Office2 Kommentare

Ich brauche jeden Monat eine Arbeitsmappe (wie in der angehängten Datei), die folgendes enthält - 1. Blatt „Summe“ - 2. Blatt ...

Microsoft Office

Excel 2010 Doc Properties ohne Makros

Frage von arduinoMicrosoft Office1 Kommentar

Moin Erstmal ein gutes neues Jahr allerseits. Kennt jemand eine Möglichkeit, in Excel 2010 Custom Doc Properties z.B. in ...

Microsoft Office

Excel 2010 Makros ActiveX entfernen funktioniert nicht

Frage von RalphTMicrosoft Office7 Kommentare

Moin, ich habe hier ein Problem mit Excel 2010. In einer Excel-Datei die Makros und VBA enthält, wollte ich ...

Neue Wissensbeiträge
Off Topic
Europawahl 2019
Information von Frank vor 3 StundenOff Topic1 Kommentar

Vom 23. bis 26. Mai 2019 findet die Europawahl in den Mitgliedstaaten der Europäischen Union statt (ja auch in ...

Humor (lol)

Minister wollen offenbar Ausweispflicht für .de-Domain

Information von Kraemer vor 16 StundenHumor (lol)7 Kommentare

Zitat von Golem.de: Die zuständigen Verbraucherschutzminister fordern einem Medienbericht zufolge offenbar eine Ausweispflicht für .de-Domains. Das soll Betrugsfälle mit ...

Off Topic
Was als Noob hier mal gesagt werden musste
Information von th30ther vor 2 TagenOff Topic5 Kommentare

Moinsen wertes Forum, ich möchte mich an dieser Stelle mal beim Forum generell und bei aqui speziell bedanken! Ich ...

Windows 10
Windows 10 Mai 2019 Update (Version 1903) ist da
Information von kgborn vor 2 TagenWindows 109 Kommentare

Nur ein kurzer Infosplitter: Microsoft hat die Nacht (21. Mai 2019) das Funktionsupdate auf Windows 10 Version 1903 freigegeben. ...

Heiß diskutierte Inhalte
Ausbildung
Wie sind eure Erfahrungen als oder mit Ü30 Azubis für Fachinformatik Systemintegration?
Frage von CaptainProcessorAusbildung24 Kommentare

Tagchen allerseits :) Mir steht in wenigen Monaten eine Veränderung bevor, da mein AG seine IT auslagert und ich ...

LAN, WAN, Wireless
Gleichzeitiger Zugriff übers Netzwerk: SSD vs HDD
gelöst Frage von ahussainLAN, WAN, Wireless20 Kommentare

Hallo, ich möchte in einem Rechner eine zusätzliche SATA-Festplatte einbauen und von dort diverse Ordner übers Netzwerk (Gigabit Ethernet) ...

Netzwerkmanagement
Gateprotect Firewall - Internetseiten werden teilw. nicht geladen
Frage von KivasFNetzwerkmanagement16 Kommentare

Morgen Zusammen, ich habe ein Problem mit einer Gateprotect Firewall welches mir echt Kopfschmerzen bereitet. Die Firewall hängt an ...

Router & Routing
HP 2920 als Router konfigurieren. Bitte um Unterstützung
gelöst Frage von suedi123Router & Routing16 Kommentare

Liebe Forumsmitglieder, ich habe hier ein Problem, bei welchem ich nicht weiterkomme, weil ich mich zu wenig mit der ...