Für Word musst Du aber ein Word-Dokument-Objekt laden und hier wird es haarig, denn dazu musst Du auch die entsprechenden Eigenschaften de WordDocumentObject kennen, um den Text zeilenweise durchlaufen zu können. Ich bin mir hier nicht sicher, aber ich denke, dass die ReadLine-Methode hier anders lauten dürfte. Hier ist aber mal die Hilfe zum TextStream-Objekt: (v=vs. 84) Bei Word musst Du mal recherchieren. Vba textdatei bestimmte zeile auslesen in google. Community-Experte Computer, Programmieren Teile doch erstmal deine Versuche. Lösungsansätze braucht es für dein Problem an sich nicht mehr. Du musst halt recherchieren, wie man Text von der Konsole ausliest, wie man ihn ausgibt und wie man Text aus einer Datei liest. Für die Recherche eignet es sich, die zugehörige Dokumentation zu nutzen: Zum Suchen kannst du linear jedes Zeichen abklappern oder einen regulären Ausdruck verwenden.
Mir ist nur nicht ganz klar, woher in deiner Tabelle die Zahlen 76004 bzw. 76005 kommen - in der Textdatei steht jeweils 176004, 276004 bzw. 176005, 276005. Vba textdatei bestimmte zeile auslesen pdf. Ich habe jetzt mal angenommen, die Textdatei hat ein Semikolon als Trennzeichen (bei dir könnten es Tabs sein, dann müsste man den Code entsprechend anpassen). Mit folgendem Code funktioniert der erste Teil der Aufgabe bei mir: Sub einlesen() Dim textzeile As String, wert() As String, zeile As Integer, spalte As Integer zeile = 2 spalte = 2 Open "C:\Test\" For Input As #1 ' Datei öffnen - den Pfad entsprechend anpassen Do While Not EOF(1) ' datei durchlaufen bis das Ende erreicht ist Line Input #1, textzeile ' erste Zeile in Variable zeile speichern wert = Split(textzeile, ";") ' Zeile in Felder zerlegen (evtl. vbTab statt ";") Cells(zeile, spalte) = wert(2) ' in die Tabelle schreiben Cells(zeile, spalte)(1, 0) = wert(3) Line Input #1, textzeile ' zweite Zeile in Variable zeile speichern Cells(zeile, spalte)(2, 0) = wert(2) ' in die Tabelle schreiben Cells(zeile, spalte)(3, 0) = wert(3) Cells(zeile, spalte)(4, 0) = wert(4) spalte = spalte + 1 Loop Close #1 ' Datei schließen End Sub De zweiten Teil - das Zurückschreiben - fasse ich erst dann an, wenn ich weiß, ob das bisher gestrickte in deinem Sinn ist.
Bin für jeden Rat dankbar. THX in advance, Linus Komm, kipps doch de Siffon rab! 15. 02. 2006 - 15:13 private Nachricht Beiträge des Benutzers herbivore - Experte 11. 01. 2005 Beiträge: 49. 486 Herkunft: Berlin Hallo Linus, adLine liest eine Zeile. Durch zweifaches Aufrufen liest man die zweite Zeile. 15. 2006 - 16:21 frisch 18. 08. 2005 Beiträge: 2. 082 Herkunft: Coburg / Oberfranken ausgeben kannst du dann die Zeile 2 mit string Zeile = adLine(); Console. WriteLine(Zeile); Es ist toll jemand zu sein, der nichts von der persönlichen Meinung Anderer hält. - 15. 2006 - 16:26 der Marcel 11. 2006 Beiträge: 564 Herkunft: Dresden Hi Linus! Probier es mal mit der Streamreader Methode ReadLine! Mit der kannst du Zeile für Zeile der Datei auslesen. Die richtige dann auszulesen ist dann nur noch eine sache der Logik. Nur bestimmte Zeile aus textdatei lesen - Sonstige Problemstellungen - VB-Paradise 2.0 – Die große Visual-Basic- und .NET-Community. Bei mir siehts verinfacht so aus: FileStream fs = ("C:\\Dokumente und Einstellungen\\All Users\\Desktop\\", ); StreamReader sr = new StreamReader(fs); for (int i = 1; i < 4; i++) { = adLine();} (); Der Code schreibt nacheinander alle Zeilen in die Textbox und lässt die dritte stehen... zugegeben, das ist die holzhammermethode, aber zum veranschaulichen hier reichts ja erstmal Gruß Marcel:]:DDer größte Fehler eines modernen Computers sitzt meist davor:] 15.
Jetzt herausfinden, ob es im aktuellen Edeka Prospekt Becks Gold im Angebot gibt. Erfahre so den aktuellen Becks Gold Preis und spare bei deinem nächsten Einkauf! Becks Gold gibt es unter anderem bei diesen Händlern Jetzt mit der MeinProspekt App sparen! Prospekte durchblättern und Angebote finden 4, 5/5 27. 765 Bewertungen
Bier Marke: Beck's Preis: € 9, 99 Gültig: 27. Händler: Marktkauf Leider verpasst! Stadt: Nürnberg verschiedene Sorten 24 x 0, 33 Liter Flaschen Kiste / Abholpreis zzgl. 3, 42 Pfand Verpasst! Pilsener Marke: Beck's Preis: € 3, 49 Gültig: 27. Händler: Marktkauf Leider verpasst! Stadt: Nürnberg Gold und weitere Sorten, Packung mit 6 x 0, 33-L-Flaschen zzgl. 0, 48 € Pfand Verpasst! Bier Marke: Beck's Preis: € 9, 99 Gültig: 27. Händler: Marktkauf Leider verpasst! Stadt: Nürnberg verschiedene Sorten 20 x 0, 5 Liter Flaschen Kiste / Abholpreis zzgl. 3, 10 Pfand Bier Marke: Beck's Preis: € 9, 99 Gültig: 27. 3, 42 Pfand Bier Marke: Beck's Preis: € 9, 99 Gültig: 27. Händler: EDEKA Hayunga Leider verpasst! Stadt: Nürnberg oder Warsteiner verschiedene Sorten 24x 0, 33 l Fl Ki. + 3, 42 Pfand Pils Marke: Beck's Preis: € 10, 49 Gültig: 27. Händler: Netto Marken-Discount Leider verpasst! Stadt: Nürnberg 20 x 0, 5 Liter Kiste zzgl. Pfand 3. Becks gold im angebot 2017. 42 Bier Marke: Beck's Preis: € 2, 99 Statt: € 4, 25 Ersparnis: 30% Gültig: 27.
Verpasst! Pilsener Marke: Beck's Preis: € 9, 99 Gültig: 18. 04. - 23. Händler: EDEKA Dütmann Leider verpasst! Dieses Angebot ist leider nicht mehr verfügbar. Händler: EDEKA Leider verpasst! Dieses Angebot ist leider nicht mehr verfügbar. Verpasst! Bier Marke: Beck's Preis: € 12, 99 Gültig: 18. Händler: Globus Leider verpasst! Dieses Angebot ist leider nicht mehr verfügbar. App Feature Einkaufsliste Speichere mit der marktguru App die besten Angebote in deiner Einkaufsliste. Jetzt marktguru App laden Verpasst! Becks gold im angebot 24. Pilsener Marke: Beck's Preis: € 9, 99 Gültig: 18. Händler: Elli Markt Leider verpasst! Dieses Angebot ist leider nicht mehr verfügbar. Händler: E center Leider verpasst! Dieses Angebot ist leider nicht mehr verfügbar. Verpasst! Pils Marke: Beck's Preis: € 9, 80 Gültig: 18. Händler: HIT Leider verpasst! Dieses Angebot ist leider nicht mehr verfügbar. Bier Marke: Beck's Preis: € 3, 33 Gültig: 18. Händler: CAP MARKT Leider verpasst! Dieses Angebot ist leider nicht mehr verfügbar. Pilsener Marke: Beck's Preis: € 9, 99 Gültig: 18.