Das Archiv des Excel-Forums
Mehrere txt Dateien einlesen in ein Programm
Betrifft: Mehrere txt Dateien einlesen in ein Programm
von: Carina
Geschrieben am: 11.09.2019 15:00:59
Hallo,
ich schon wieder, ich hab grad keine Ahnung ob es auch hierher passt aber vllt weis ja wer eine Antwort und ich würde das Problem gerne mit einem VBA beheben.
Also ich habe ein Program (in Fortran geschrieben) in welches ich hintereinander ca. 200 Dateien einlesen muss. Also es funktioniert im grunde so alle Dateien plus dieses "Program" müssen in einem Ordner liegen. Im ersten Schritt öffnet man das Program, dann muss man enter drücken danach fragt es nach dem ersten text file dann nach dem zweiten und am schluss bekommt man eine datei im selben ordner die gravel_result heißt. Da ich nicht 200 mal das ganze machen möcht und am Schluss auch noch die Datein umbennen wollt ich fragen ob ich diesem Forum richtig bin oder nicht und ob es dafür ein VBA gibt?
Versteht ihr was ich mein?
Besten Dank bereits und sry für die dumme Frage.
Lg,
Carina
PS: Falls ja würde ich euch meine Daten hochladen.
Betrifft: AW: Mehrere txt Dateien einlesen in ein Programm
von: 1712480.html
Geschrieben am: 11.09.2019 15:16:18
Moin Carina,
es könnte sein, dass du mit Power Query besser zum Ziel kommst. Aber das lässt sich besser beantworten, wenn 2-3 Muster-*.txt vorliegen (eventuell als *.zip packen und dann hochladen).
Gruß
Günther
Betrifft: AW: Mehrere txt Dateien einlesen in ein Programm
von: 1712492.html
Geschrieben am: 11.09.2019 16:05:26
Hallo,
Also ich habe hier mal versucht ein paar Daten vorzubereiten und hochzuladen.
Nach öffnen des Programms gehört beim Buchstaben a hinein.
1.Schritt schear_velocity
2.Schritt Datei mit Nummer
3.Schritt gibt gravel_result aus (am besten mit Steinnummer im Dateinamen)
Gravel-Program
https://www.herber.de/bbs/user/131988.zip
Datei (immer ein Paket)
https://www.herber.de/bbs/user/131989.zip
https://www.herber.de/bbs/user/131990.zip
https://www.herber.de/bbs/user/131991.zip
Im Grund müsste ich die Abfolge wie oben beschrieben drei mal ausführen ich hätte aber gerne ein vba wo ich alle gravel_result pro Stein einzeln bekomm.
Ich hoffe ihr könnt damit was anfangen sonst einfach noch mal nachfragen.
Besten Dank.
Lg,
Carina
Betrifft: AW: Mehrere txt Dateien einlesen in ein Programm
von: 1712502.html
Geschrieben am: 11.09.2019 16:26:30
Also Carina,
was das Einlesen der Daten anbetrifft: An sich mit Power Query kein Thema, aber deine Beschreibung ist so spezifisch (nur für Insider verständlich), dass ich mir das nicht im Rahmen der Foren-Hilfe antun muss.
Gruß
Günther
Betrifft: AW: Mehrere txt Dateien einlesen in ein Programm
von: 1712580.html
Geschrieben am: 12.09.2019 08:03:06
Hallo Günter,
ich habe leider von Power Query noch weniger Plan wie von VBA, aber trotzdem Danke.
Ich glaub, wenn man eine Ahnung hat dann sollte das Ganze nicht so schwer sein.
Es gibt doch bestimmt Menschen die schon mal ein Programm (in diesem Fall Gravel) mit mehreren Dateien hintereinander gefüllt haben.
Hast du ca. verstanden was ich benötigen würde?
Liebe Grüße und danke für dein Bemühen.
Carina
Betrifft: AW: Mehrere txt Dateien einlesen in ein Programm
von: 1712528.html
Geschrieben am: 11.09.2019 18:13:57
Damit kannst du alle Dateien im Ordner auslesen,
https://www.makro-excel.de/2017/01/31/dateinamen-eines-verzeichnisses-mit-vba-auslesen-und-in-excel-schreiben/
die du dann in einer Schleife abarbeiten und auslesen kannst:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\bla\blub\20190911_shearvelocity_7247_2018-07-05.txt", Destination:= _
Range("$A$1"))
.Name = "20190911_shearvelocity_7247_2018-07-05"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Musst du halt noch anpassen an Dateinamen, Pfade usw. Probier etwas rum mit der Makro-Aufzeichnung. Obiger Code ist das, was passiert unter dem Menüpunkt: Daten > Externe Daten abrufen > Aus Text
Betrifft: AW: Mehrere txt Dateien einlesen in ein Programm
von: 1712579.html
Geschrieben am: 12.09.2019 07:57:30
Hallo Klexy,
ich glaube der von die beschrieben Code ist wenn man mehrere Dateien in ein Excel reinladen möchte aber ich möchte ja meherere text Dateien hintereinander in ein weiteres Program (gravel) reinladen.
Trotzdem vielen Dank für dein Bemühen.
Lg,
Carina
Betrifft: AW: Mehrere txt Dateien einlesen in ein Programm
von: 1712582.html
Geschrieben am: 12.09.2019 08:32:57
Keine Ahnung was Gravel ist und hier ist auch nicht das Fortran-Forum.
Du hattest dich doch über 100 nötige Klicks beschwert. Ich habe dir einen Weg aufgezeigt, das auf 1 Klick zu reduzieren. Diese EINE Datei dann in dein Gravel zu kriegen, ist dann ein weiterer Klick, oder?
Betrifft: AW: Mehrere txt Dateien einlesen in ein Programm
von: 1712584.html
Geschrieben am: 12.09.2019 08:41:13
Hallo Klexy,
Danke für deine rasche Antwort.
also ich wollte eigentlich wissen ob es mit einem VBA möglich ist ein schleife zu machen in der man text dateien in ein programm reinlädt und das in einer schleife.
also zuerst buchstabe, text 1a, text 1b, buchstabe und dass in einer schleife.
oder vllt anders ausgedrückt ob es möglich ist ein programm (welches nicht excel ist oder ähnliches) mit daten zu füttern
es ist nicht möglich die textdateien vorher zusammenzufügen, diese müssen einzeln eingeladen werden.
also ich brauche eigentlich keine hilfe mit gravel oder fortran sondern mit vba ;)
Lg,
Carina
Excel-Beispiele zum Thema "Mehrere txt Dateien einlesen in ein Programm"
Suche über mehrere Tabellen |
 |
Mehrere Schaltflächen für ein Makro |
 |
Suchbegriff über mehrere Tabellenblätter suchen. |
 |
Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche |
 |
Druck aus mehreren Tabellenblättern auf eine Druckseite |
 |
AutoFilter über mehrere Arbeitsblätter setzen |
 |
Daten von mehreren Blättern auf ein Druckblatt |
 |
Prozentuale Erhöhung über mehrere Arbeitsblätter hinweg |
 |
Werte in mehreren Spalten sortieren |
 |
Textreihe auf mehrere Spalten mit fester Seitenlänge verteilen |
 |
Den selben Bereichsnamen in mehreren Tabellenblättern |
 |
Tabelle nach mehreren Kriterien summieren |
 |
SVERWEIS-Formel über mehrere Fundstellen |
 |
Wert aus A1 in mehrere Zellen übernehmen |
 |
Mehrere Arbeitsmappen per Outlook an einen Empfänger |
 |
In mehrere Spalten doppelte Inhalte entfernen |
 |
Programmsteuerung für mehrere aufrufende UserForms |
 |
Mehrere Tabellenblattbereich unabhängig voneinander sortieren |
 |
Redimensionierung eines Arrays über mehrere Dimensionen |
 |
SUMMEWENN-Funktion über mehrere Tabellenblätter |
 |
Aktivieren mehrerer CheckBoxes unterbinden |
 |
Aufteilen einer Tabelle auf mehrere Arbeitsblätter |
 |
SummeWenn-Summierung über mehrere Blätter |
 |
Auswahl von Zellen in mehreren Zeilen verhinden |
 |
Wert von einer Zelle zur anderen in mehreren Tabellen übernehmen |
 |
Benannte Bereich aus mehreren Arbeitsmappen importieren |
 |
Variablen auf mehrere Arten in Funktionen integrieren |
 |
Filtern über VBA nach mehreren Kriterien |
 |
Kosten nach mehreren Kriterien erfassen |
 |
Wechseln zwischen Arbeitsblättern anhand mehrerer Schaltflächen |
 |
Alle Dateien im Verzeichnis öffnen |
 |
Dateien listen |
 |
400 leere Textdateien anlegen |
 |
XL-Dateien in UserForm listen |
 |
XL5/7-Dateien nach XL8 konvertieren |
 |
Dateien aus Listbox auslesen und öffnen |
 |
Excel-Dateien eines Ordners listen |
 |
Alle Dateien ab einem bestimmten Datum listen |
 |
Alle Dateien eines Verzeichnisses drucken |
 |
Textdateien verbinden |
 |
Serie von Dateien in das XL5/7-Format konvertieren |
 |
Verzeichnisbaum aufrufen und Dateien in ListBox auflisten |
 |
Dateien einer Ordnerliste in einer Tabelle zusammenstellen |
 |
Daten aus allen Dateien eines Verzeichnisses zusammenführen |
 |
Hyperlinks zu allen Excel-Dateien eines Verzeichnisses erstellen |
 |
Dateien in einem Verzeichnis und Unterverzeichnissen suchen |
 |
XL-Dateien aus Haupt- und Unterverzeichnissen einlesen |
 |
Die Eigenschaft "Stichwort" in allen Dateien eines Ordners ändern |
 |
Textdateien vergleichen und Unterschiede dokumentieren |
 |
Löschen von Dateien beim Schließen einer Arbeitsmappe |
 |
Grafikdateien suchen |
 |
Erste Blätter aus allen Dateien eines Verzeichnisses sammeln |
 |
Von allen Arbeitsblättern der Mappe HTML-Dateien anlegen |
 |
Textdateien auslesen und in Werte in Zellen eintragen |
 |
Werte nach Gruppen aufteilen und in gesonderten Dateien speichern |
 |
Fragen aus Textdateien in UserForm-Label einlesen |
 |
Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben |
 |
Alle Dateien löschen, die älter als 30 Tage sind |
 |
Dateien mit Angabe des Dateidatums mit Hyperlink listen |
 |
Dateien listen und gekennzeichnete öffnen |
 |
UserForm-TextBoxes-Texte in Textdateien speichern |
 |
Tabellenblattinhalte in getrennten Textdateien speichern |
 |
Dateien listen und Blätter in neue Arbeitsmappe kopieren |
 |
Bei Doppelklick Textdateien in Editor öffnen |
 |
Dateiliste mit allen xl-Dateien und Hyperlinks erstellen |
 |
Aufruf von Textdateien protokollieren |
 |
Textdateien mit einer Zeile in Tabelle einlesen |
 |
Alle Textdateien eines Verzeichnisses importieren |
 |
Dateien öffnen, Verknüpfungen aktualisieren, speichern, schießen |
 |
Dateien suchen |
 |
Dateien mit bestimmtem Inhalt suchen |
 |
Tabellenblattnamen in ein Listenfeld einlesen |
 |
Gefilterte Daten in eine ListBox einlesen |
 |
Einlesen von Zellinhalten in Variablen |
 |
1000 Arbeitsblätter aus 1000 Arbeitsmappen einlesen |
 |
Tabellenblattnamen in eine ListBox einlesen |
 |
Text aus UserForm-Textbox in Variable einlesen |
 |
Blätter in ComboBox-Feld einlesen und auswählen |
 |
Dateinamen in Tabelle einlesen |
 |
Namen einer Arbeitsmappe einlesen |
 |
Matrix in UserForm-ListBox einlesen |
 |
Excel-Zellinhalte in Worddokument einlesen um per Email versenden |
 |
UserForm-TextBox-Werte über ScrollBar einlesen |
 |
Adresstabelle in UserForm einlesen und in Adressfeld ausgeben |
 |
Blattnamen bedingt in ListBox einlesen und Blätter auswählen |
 |
Einlesen von Spaltenköpfen in UserForm-ListBox |
 |
Einlesen des Outlook-Adressbuches in eine UserForm-ListBox |
 |
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen |
 |
Werte in UserForm-ComboBox einlesen und ausgeben |
 |
Dateinamen in TabStrip-Elemente einlesen |
 |
Mehrspaltige UserForm-ListBox füllen und aktuellen Wert einlesen |
 |
Einlesen der Autokorrekturliste in eine Tabelle |
 |
Einlesen von Arbeitsmappen in ein TreeView-Steuerelement |
 |
In Array einlesen, sortieren, auslesen |
 |
Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen |
 |
Aus- und Einlesen der NumLock-, CapsLock und ScrollLock-Tasten |
 |
Dateistrukturen in UserForm einlesen und Datei öffnen |
 |
Dateinamen in UserForm-ComboBox einlesen und Datei öffnen |
 |
Wert in ComboBox einlesen, suchen, editieren, ausgeben |
 |
Liste ohne Doppelte Werte in ComboBox einlesen |
 |
Werte ohne Doppel in UserForm einlesen und löschen |
 |
Bei Blattaktivierung Einlesen der Arbeitsblätter in ListBox |
 |
Werte in Word-Dokument einlesen und dieses Drucken |
 |
Einlesen von Blattnamen und Zellwerten |
 |
Textdatei mit mehr als 256 Spalten in Tabelle einlesen |
 |
Outlook-Nachrichten in Excel-Tabellen einlesen |
 |
Über SpinButton in UserForm-TextBox einlesen |
 |
Bei Aktivieren eines Arbeitsblattes ComboBox neu einlesen |
 |
HTML-Text einer Internetseite in eine TextBox einlesen |
 |
Makros aus einem Standardmodul in ComboBox einlesen |
 |
Zellinhalte in MultiPage-TextBoxes einlesen |
 |
Prozentwerte in UserForm-ComboBox einlesen |
 |
Sortieren und nur Uniques einlesen |
 |
Tabelle in UserForm-Spreadsheet einlesen |
 |
Werte aus geschlossenen Arbeitsmappen einlesen |
 |
Grafischen Webcounter zeilenweise einlesen |
 |
Dateinamen einlesen, Texte editieren |
 |
Programmabbruch bei Überspeichernabfrage verhindern |
 |
Textprogramm starten und Inhalte von Zelle A1 eingeben |
 |
Grafikprogramm aufrufen und Bild laden |
 |
Eine Tabelle periodisch mit dem Standard-Emailprogramm versenden |
 |
Dynamische Generierung von Programmteilen |
 |
Begrenzung der Textlänge über Ereignis-Programmierung |
 |
Programmversion eines beliebigen Programms feststellen |
 |
Standardmailprogramm über Word feststellen |
 |