Absatz/Paragraph = zu kopierendes Word-Objekt Set wdRange = ragraphs(3) GoTo Weiter01: Weiter_Suchen: 'zu kopierendes Wordobjekt via Suchfunktion bestimmen Set wdRange = ntent Findtext:="Copy:", Forward:=True 'Suchtext anpassen!! If = True Then 'Fundstelle auf den gesamten Absatz erweitern 4 ' 4 = wdParagraph If = Then 'Fundstelle ist im letzten Absatz des Worddokuments Set wdRange = ( _ ragraphs( - 1), _ - 1) Set wdRange = Nothing Weiter01: If wdRange Is Nothing Then (letztezeile, 2) = "Suchebegriff nicht gefunden" 'GoTo Weiter02: 'Word-Range kopieren und in Excel einfügen (letztezeile, 2) GoTo Weiter03: Weiter02: 'Alternative: Text des Word-Range-Opjektes direkt in Excelzelle einfügen. (letztezeile, 2) = Weiter03: End With 'wks 'Worddatei wieder schliessen savechanges:=False strFileName = Dir Loop 'Word-Anwendung beenden Beenden: End Sub Excel-Beispiele zum Thema "bestimmte Zeilen aus Word-Datei auslesen" Befindet sich die aktive Zelle in einem bestimmten Bereich?
?, Default). Split (vbCrLf) (... ) Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von "greenVB-user" ( 16. Vba textdatei bestimmte zeile auslesen 7. Februar 2011, 16:39) Ist vielleicht etwas umständlich, aber mir ist nichts anderes eingefallen^^: Dim reader as new StreamReader( "PfadZurDatei") Dim text as string Dim zeile as integer Do text = adLine() zeile + = 1 If zeile = 5 then = text Exit do End if Loop reader. Close () Die Funktion von Animix geht natürlich auch. Einfach eine Variable erstellen die den Text der Zeile zugewiesen bekommt und dann einfach Abfragen, also If ergebnis = "irgendwas" Then Irgendwas.. Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von " Kraizy " ( 16. Februar 2011, 17:31) 2 Benutzer haben hier geschrieben Gast (3) Kraizy (1) Sonstige Problemstellungen »
Auf jeden Fall versuch ich mal zu erklären. Schlagwort: () Rückgabewert: string[]-Array string dateipfad = @"C:\"; string[] zeile = (dateipfad); = zeile[3]; Ich denke, dass ich euch nicht sagen muss, dass mit zeile[3] die 4 Zeile in dem Dokument ausliest. Ich denke wenn man die genaue Zeilenzahl kennt, ist dies die einfachere Methode. Und da ich sie verstehe, solltet ihr damit keine Probleme haben 17. 04. 2007 - 19:14 Hallo Peoplemann, Deine Methode ist sicherlich die einfachste und auch gut solange du sowieso die ganze Datei einlesen möchtest. Möchte man allerdings nur diesen bestimmten Wert (oder auch ein paar mehr) einlesen, ist die Methode nicht empfehlenswert, da trotzdem alles eingelesen und in den Speicher geschrieben wird. bei kleineren Dateien macht sich das noch nicht bemerkbar, bei größeren dafür umso mehr. Gruß, Thomas Edit: Außerdem hat herbivore oben schon eine effiziente Lösung genannt. Vorgehensweise: Lesen von Text aus Dateien mit StreamReader - Visual Basic | Microsoft Docs. 17. 2007 - 19:57 Beiträge des Benutzers
VB-Paradise 2. 0 – Die große Visual-Basic- und » Forum » Programmieren » Sonstige Problemstellungen » Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag ( 16. Februar 2011, 17:21) ist von Kraizy. Hi! Ich möchte ei Programm machen, was aus einer Bestimmten textdatei eine bestimmte Zeile heraussucht (als nummern! z. B. Vba textdatei bestimmte zeile auslesen full. Zeile 5) und checkt, was in der Zeile steht. Wenn was bestimmtes in dieser Zeile steht, soll etwas anderes passieren! Public Function ReadLine( ByVal filename As String, _ ByVal line As Integer) As String Try Dim lines As String () = adAllText( _ filename, Default). Split (vbCrLf) If line > 0 Then ' n-te Zeile vom Anfang der Textdatei Return lines(line - 1) ElseIf line < 0 Then ' n-te Zeile beginnend am Ende der Textdatei Return lines( + line - 1) Else ' ungültige Zeilennummer Return "" End If Catch ex As Exception End Try End Function Danke! Vielen Dank. Aber wo und wie baue ich jetzt die gewünschte Zeilennummer und die Option, die daraufhin passieren soll ein? z. b. If Zeile( 3) = "Hallo" Then MsgBox (zeile( 5)) EndIf übrigens: Dim lines As String () = adAllText( HIER DER PFAD UND DER DATEINAME??
Anmeldung für den 10. MuseumsWalk gestartet. Passionierte Walkerinnen und Walker aufgepasst! Am Samstag, den 11. Juni heißt es zum zehnten Mal "Auf die Plätze, fertig, los" beim Museumswalk der "Freunde des LWL-Freilichtmuseums Detmold". Wer dabei sein möchte, sollte jetzt schnell sein, denn spätestens am 4. Juni endet die Anmeldefrist für das sportliche Ereignis im Kalender des Museums des Landschaftsverbandes Westfalen-Lippe (LWL). Die Teilnehmerzahl ist begrenzt auf maximal 400. Walkingbegeisterte können sich wieder auf eine abwechslungsreiche Route durch die "Regionen Westfalens" im LWL-Freilichtmuseum Detmold freuen: Ab 17 Uhr ist Einlass und nach dem traditionellen Aufwärmtraining mit Monika Hoffmann fällt dann der Startschuss zum "Mittsommerwalk". Detmold weihnachtsmarkt freilichtmuseum bad. Es gilt, die 7, 5 Kilometer lange Strecke vorbei an historischen Häusern und durch die westfälische Kulturlandschaft sportlich zu meistern. Start und Ziel sind im Eingangsbereich des Museums, wo nach dem abwechslungsreichen Rundkurs eine Bratwurst vom Grill und Erfrischungen für die Sportlerinnen und Sportler bereitgehalten werden.
Die westfälischen Böden gaben optimale Bedingungen für den Flachsanbau, auf den saftigen Weiden hütete man Schafe, deren Wolle man schurr und zu Kleidungsstücken verarbeitete. Wie zeitaufwendig das in frühen Jahrhunderten war, konnte ich bis dahin noch nicht ahnen. Flachs ist eine harte Faserpflanze, strohig fühlt sie sich an als ich sie erstmals berühre, noch widerborstiger zeigt sich die Pflanze als Ulrike mir zeigt, wie man den Flachs verarbeitet. Nach der Ernte und dem Trocknen der Flachspflanzen musste der Flachs geriffelt werden, dabei wurden die Samenkörner herausgeborstet. Aus den Samen wuchsen entweder neue Pflanzen oder man brachte sie in die Ölmühle und presste daraus Leinöl. Textilworkshop im Freilichtmuseum Detmold – ich lerne flachsen! Detmold weihnachtsmarkt freilichtmuseum molfsee. Um die borstige Flachspflanze weich zu kriegen, musste sie nun zuerst gerottet werden, das bedeutet, sie musste im Wasserbad oder auf feuchten Weiden angefault werden, daher stammt das Wort verrotten. Nach erneutem Trocknen wurden die Fasern dann in der Schäbe gebrochen.