|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.01.2010 20:42:27 |
gunter |
|
|
|
15.01.2010 09:32:03 |
Holger |
|
|
|
15.01.2010 16:29:19 |
gunter |
|
|
 Aw:Aw:Aw:datei mit wildcard einlesen |
16.01.2010 09:50:48 |
Holger |
|
|
Von:
Holger |
Datum:
16.01.2010 09:50:48 |
Views:
824 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:datei mit wildcard einlesen |
Hallo gunter,
alle txt-Dateien eines Ordners (hier C:\) kannst du z.B. mit folgendem Code erfassen:
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Fldr = Fso.getFolder("C:\")
Set Dateien = Fldr.Files
For Each d In Dateien
If LCase(Right(d, 3)) = "txt" Then
'deine Anweisungen, z.B. open d for input as #1
End If
Next
Gruß
Holger
gunter schrieb am 15.01.2010 16:29:19:
Hallo Holger,
danke erstmal dafür dass Du Dich gemeldet hast.
Inzwischen habe ich schon etwas gefunden das fast passt:
Wenn Du diesen Code im Excel ausprobierst, dann kannst Du
im Verzeichnis "C:\" beliebige Textdateien aussuchen, die
dann auch eingespielt werden. Mein Problem ist nun nurnoch,
dass ich diese Dateien nicht immer anklicken möchte.
Alle .txt die in diesem Pfad sind, sollen automatisch
nackeinander eingespielt werden.
Hier ist der Code:
Option Explicit
Sub Datenimport()
Dim Importdatei$, Verzeichnis$
Verzeichnis = "C:\"
On Error Resume Next
ChDir Verzeichnis
Importdatei = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
Application.ScreenUpdating = False
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Importdatei, _
Destination:=Range("A1"))
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:=False
End With
End Sub
'Danke einstweilen, Gunter
____________________________
Holger schrieb am 15.01.2010 09:32:03:
Hallo gunter,
formuliere bitte ein Beispiel. Ich verstehe nicht, was du wirklich möchtest.
Gruß
Holger
gunter schrieb am 11.01.2010 20:42:27:
Hallo,
ich möchte gerne eine txt datei als string und wildcard einlesen, um dann denn inhalt des strings
bearbeiten zu können.
Sub x()
Dim dateiname As String, strName As String
dateiname = Dir("C:" + "\*.txt")
Do While dateiname <> ""
xvariable.. usw...
Damit kann ich den dateinamen auslesen, aber ich möchte gerne den string der datei selbst bearbeiten.
Ich habe schon viel gesucht aber den inhalt einer datei in den string zu bekommen und dann als wildcard,
so dass ich mehrere dateien nacheinander abarbeiten kann ist mir nicht geglückt.
Ich bitte um hilfe!
Danke! |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.01.2010 20:42:27 |
gunter |
|
|
|
15.01.2010 09:32:03 |
Holger |
|
|
|
15.01.2010 16:29:19 |
gunter |
|
|
Aw:Aw:Aw:datei mit wildcard einlesen |
16.01.2010 09:50:48 |
Holger |
|
|