Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus geschlossenen txt-Dateien einlesen

Daten aus geschlossenen txt-Dateien einlesen
01.11.2005 15:35:28
Hofer
Ich möchte Messwerte in eine Excel-Datei einlesen und auswerten. Die Daten liegen als txt-Datei vor. Die Bezüge erfolgen mittels INDIREKT Funktion.
Problem: Die Daten lassen sich nur importieren, wenn die txt-Datei in Excel geöffnet (importiert) wurde. Mit SQL.Request kann ich auf geschlossene Exceldaten zugreifen - geht so etwas auch für txt-Dateien?
Nebenfrage: Wenn ich mit SQL.Request Daten aus Exceldateien einlese werden nur numerische Daten übernommen, jedoch kein Text. Gibt es einen Weg, auch den Text zu bekommen?
Gruß
MHofer

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus geschlossenen txt-Dateien einlesen
01.11.2005 19:11:47
Hilbman
Hallo Hofer,
Man kann eine txt-Datei wie folgt einlesen:

Private Sub CommandButton1_Click()
Dim Dateiname As String, DateiNr As String, Temp As String
Dateiname = "D:\aaaaa\Test.txt"
DateiNr = FreeFile
Open Dateiname For Input As DateiNr
MsgBox Input(LOF(DateiNr), DateiNr)
Close DateiNr
End Sub

In der Test.txt steht z.B. "Dies ist ein test"
Man kann diesen text auch anstatt in einer Msgbox auszugeben, in einer Variablen wie z.B. Temp speichern.
Bei Texten in Tabellenstruktur muß dann natürlich anhand der Trennzeichen wie z.B.
";" und LF CR der Text entsprechend zerlegt werden und in die entsprechenden Zellen
geschrieben werden.
Gruß Hilbman
Anzeige
AW: Daten aus geschlossenen txt-Dateien einlesen
02.11.2005 18:06:06
Hofer
Vielen Dank.
Mit der Hilfe habe ich es geschafft, dass er alle Zeilen aus der Datei einließt.
Jetzt sind dies z.B. Zahlen wie 0,435436 .... - diese werden aber als Text eingefügt. M.E. weil Excel intern mit Punkt statt Komma arbeitet. Wie kann ich im klarmachen, dass das das lokale Zahlenformat ist?
Gruß
MHofer
AW: Daten aus geschlossenen txt-Dateien einlesen
03.11.2005 06:45:19
Hilbman
Hallo Hofer,
Man kann mit einer Stringoperation den Punkt durch Komma austauschen:
Bei Office 2000/ 2003 geht :
Dim Zahlstring as string
Zahlstring="12.34567"
activesheet.cells(1,1)=Cdbl(replace(Zahlstring,".",","))
Bei Office 97 gibt es zwar auch eine Replacefunktion, die aber nur auf ein Rangeobjekt funktioniert.
Ein Weg der immer auch unter Office 97 geht ist folgender:
Dim i As Long, Zahlenwert As String, Zahlstring As String
Zahlstring = "12.345678"
For i = 1 To Len(Cells(1, 1))
If Mid(Zahlstring, i, 1) = "." Then
Zahlenwert = Zahlenwert & ","
Else
Zahlenwert = Zahlenwert & Mid(Zahlstring, i, 1)
End If
Next
ActiveSheet.Cells(1, 1) = CDbl(Zahlenwert)
Der string "Zahlstring" ist der aus dem gesamttext extrahierter Zahlenwert als string.
Gruß Hilbman
Anzeige
AW: Daten aus geschlossenen txt-Dateien einlesen
03.11.2005 15:50:10
Hofer
Erst einmal vielen Dank für beide Antworten.
Habe noch einen weiteren Weg gefunden. Statt Range("XY").Value den String temp zu übergeben nutze ich Range("XY").Formulalocal = temp.
Ich bräuchte noch eine kurze Erklärung, wie ich das mit mehreren Spalten mache LF CR etc.
Gruß
MHofer
AW: Daten aus geschlossenen txt-Dateien einlesen
03.11.2005 18:55:13
Hilbman
Hallo Hofer,
Folgendem Code zeigt eine Möglichkeit an:

Private Sub CommandButton1_Click()
Dim Zeilen
Dim Spalten
Dim Dateiname As String, DateiNr As String, Temp As String
Dim i As Long, j As Long
Dateiname = "D:\Projekte Excel\Test\ZeSpa1.txt"
DateiNr = FreeFile
Open Dateiname For Input As DateiNr
Temp = Input(LOF(DateiNr), DateiNr)
Close DateiNr
Zeilen = Split(Temp, vbCrLf, , vbTextCompare)
For i = 0 To UBound(Zeilen) - 1
Spalten = Split(Zeilen(i), ";", , vbTextCompare)
For j = 0 To UBound(Spalten) - 1
ActiveSheet.Cells(i + 1, j + 1) = Spalten(j)
Next
Next
End Sub

In Spalten(j) steht dann der Zellwert. Auf diesen Text mußt du dann die spezielle Formatbehandlung durchführen.
Gruß Hilbman
Anzeige
AW: Daten aus geschlossenen txt-Dateien einlesen
04.11.2005 14:42:13
Hofer
Super - genau das habe ich gesucht.
Hinweis für weitere Leser: um statt ";" den Tabulator als Trennzeichen zu nehmen muss vbTab eingesetzt werden.
Gruß
MHofer

302 Forumthreads zu ähnlichen Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Anzeige
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
Anzeige
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
2
14
3
1
4
2
5
2
5
6
4
4
2
1
1
6
1
4
4
1
1
8
2