Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.10.2016 07:51:43 |
TobiasT. |
|
|
|
18.10.2016 12:00:50 |
BigBen |
|
|
|
18.10.2016 13:44:36 |
TobiasT. |
|
|
Textdatei zeilenweise in Excel importieren |
18.10.2016 20:02:18 |
BigBen |
|
|
|
19.10.2016 08:32:40 |
TobiasT. |
|
|
Von:
BigBen |
Datum:
18.10.2016 20:02:18 |
Views:
691 |
Rating:
|
Antwort:
|
Thema:
Textdatei zeilenweise in Excel importieren |
Hallo,
im ersten Ansatz fällt mir nur folgendes ein:
Sub ImportSpecial()
Dim strFile As String
Dim frNr As Integer
Dim iLineNr As Integer
Dim iLineFirst As Integer
Dim iLinesCount As Integer
Dim strLine As String
iLineFirst = 3 ' Erste Zeile, die importiert werden soll
iLinesCount = 2 ' Anzahl der zu importierenden Zeilen
strFile = "Z:\Temp\Datei 2.txt"
frNr = FreeFile
Open strFile For Input As #frNr
Do Until EOF(frNr)
iLineNr = iLineNr + 1
Line Input #frNr, strLine
If iLineNr >= iLineFirst And iLineNr < iLineFirst + iLinesCount Then
Debug.Print iLineNr, strLine
End If
Loop
Close #frNr
End Sub
Bei diesem Lösungsansatz wird die Textdatei zeilenweise ausgelesen.
Mit den Variablen iLineFirst und iLinesCount wird der Umfang eingegrenzt.
Es fehlt noch die Funktion zum Importieren der ausgelesenen Zeilen. In der Sub werden alle zu importierenden Zeilen lediglich via debug.print in der Konsole ausgegeben.
Diese Sub nimmt keinerlei Zeichensatz-Konvertierungen vor.
|
- 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
|
|
18.10.2016 07:51:43 |
TobiasT. |
|
|
|
18.10.2016 12:00:50 |
BigBen |
|
|
|
18.10.2016 13:44:36 |
TobiasT. |
|
|
Textdatei zeilenweise in Excel importieren |
18.10.2016 20:02:18 |
BigBen |
|
|
|
19.10.2016 08:32:40 |
TobiasT. |
|
|