Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1144to1148
1144to1148
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

html auslesen und in Excel speichern

Forumthread: html auslesen und in Excel speichern

html auslesen und in Excel speichern
Friedemann
Halle an alle hilfsbereiten Mitglieder hier im Forum,
Ich habe ein wirklich schwieriges Problem und habe noch keine Ahnung wie ich es lösen soll.
Ich muß aus cirka 22.000 html Seiten die auf meinem Rechner sind (also nicht online) und alle im gleichen Verzeichnis liegen:
1. den file Namen auslesen und in spalte A einer Excel Tabelle speichern und
2. ein einziges Wort eines Textstriges des Quellcodes jedes Files in Spalte B speichern.
Dieses Wort hat entweder 4 oder 6 Zeichen und liegt jedesmal an der gleichen Stelle.
Hat irgend jemand eine Idee wie ich dies machen könnte?
Die Altenative ist grauenerregend, nämlich alle 22.000 Files von Hand bearbeiten, was Wochen dauert.
Danke
Friedemann
Anzeige
AW: html auslesen und in Excel speichern
06.03.2010 19:51:19
Josef

Hallo Friedemann,
lade eine Beispiel-Html-Datei hoch und beschreibe was ausgelesen werden soll.

Gruß Sepp

Anzeige
AW: html auslesen und in Excel speichern
06.03.2010 20:25:29
Friedemann
Die Datei liegt https://www.herber.de/bbs/user/68432.htm
Unmittelbar nach dem "body" kommt ein kleines Bild
entweder
"img border=0 src=gender.female.gif align=absmiddle alt=Frau width=16 height=16"
oder
"img border=0 src=gender.male.gif align=absmiddle alt=Mann width=16 height=16"
Es kann nun entweder das Wort male oder female ausgelesen werden bzw Frau oder Mann, oder es kann in die Excel Tabelle für female ein f und für male ein m geschrieben werden.
leider habe ich eben festgestellt, das die Worte doch nicht immer absolut exact an der gleichen Stelle stehen da die Files in verschieden Versionen über Jahre erstellt wurden. Allerdings stehen sie immer innerhalb des Images tags.
Für mich eine unlösbare Aufgabe. Ich bin dankbar für jede Hilfe.
Friedemann
Anzeige
AW: html auslesen und in Excel speichern
06.03.2010 20:39:13
Josef

Hallo Friedemann,
im Code den Pfad anpassen!
Die Ausgabe erfolgt auf dem aktiven Tabellenblatt.

' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub readData()
  Dim strFile As String, strPath As String
  Dim FF As Integer, intPos As Integer
  Dim strValues() As String, strTmp As String
  Dim strFind As String
  
  strFind = "src=gender." 'Suchbegriff - Anpassen!
  
  strPath = "E:\Forum" 'Verzeichnis - Anpassen!
  
  strPath = strPath & IIf(Right(strFile, 1) = "\", "", "\")
  
  Redim strValues(1 To 2, 1 To 1)
  
  strValues(1, 1) = "Datei"
  strValues(2, 1) = "Wert"
  
  strFile = Dir(strPath & "*.htm*", vbNormal)
  
  Do While strFile <> ""
    strTmp = ""
    FF = FreeFile
    Open strFile For Input As #FF
    Do While Not EOF(FF)
      Line Input #FF, strTmp
      intPos = InStr(1, strTmp, strFind)
      If intPos > 0 Then
        If Mid(strTmp, intPos + Len(strFind), 4) = "male" Then
          strTmp = "M"
        ElseIf Mid(strTmp, intPos + Len(strFind), 4) = "fema" Then
          strTmp = "F"
        End If
        Exit Do
      End If
    Loop
    Close #FF
    Redim Preserve strValues(1 To 2, 1 To UBound(strValues, 2) + 1)
    strValues(1, UBound(strValues, 2)) = strFile
    strValues(2, UBound(strValues, 2)) = strTmp
    strFile = Dir
  Loop
  
  Range("A1").Resize(UBound(strValues, 2), 2) = Application.Transpose(strValues)
  Columns("A:B").AutoFit
End Sub

Gruß Sepp

Anzeige
AW: html auslesen und in Excel speichern
06.03.2010 20:52:43
Friedemann
Ich bekomme eine Fehlermeldung: Laufzeitfehler - Datei nicht gefunden:
Die fette Zeile scheint der Fehler zu sein, glaube ich.
Option Explicit
Sub readData()
Dim strFile As String, strPath As String
Dim FF As Integer, intPos As Integer
Dim strValues() As String, strTmp As String
Dim strFind As String
strFind = "src=gender.female" 'Suchbegriff - Anpassen!
strPath = "C:\Documents and Settings\FK.FK-HOME1\My Documents\HTML\fkrug-net\genpro\" ' _
Verzeichnis - Anpassen!
strPath = strPath & IIf(Right(strFile, 1) = "\", "", "\")
ReDim strValues(1 To 2, 1 To 1)
strValues(1, 1) = "Datei"
strValues(2, 1) = "Wert"
strFile = Dir(strPath & "*.htm*", vbNormal)
Do While strFile  ""
strTmp = ""
FF = FreeFile
 Open strFile For Input As #FF
Do While Not EOF(FF)
Line Input #FF, strTmp
intPos = InStr(1, strTmp, strFind)
If intPos > 0 Then
If Mid(strTmp, intPos + Len(strFind), 4) = "male" Then
strTmp = "M"
ElseIf Mid(strTmp, intPos + Len(strFind), 4) = "fema" Then
strTmp = "F"
End If
Exit Do
End If
Loop
Close #FF
ReDim Preserve strValues(1 To 2, 1 To UBound(strValues, 2) + 1)
strValues(1, UBound(strValues, 2)) = strFile
strValues(2, UBound(strValues, 2)) = strTmp
strFile = Dir
Loop
Range("A1").Resize(UBound(strValues, 2), 2) = Application.Transpose(strValues)
Columns("A:B").AutoFit
End Sub

Anzeige
AW: html auslesen und in Excel speichern
06.03.2010 20:58:39
Josef

Hallo Friedemann,
das ist schon mal falsch 'strFind = "src=gender.female"',lass es bei 'strFind = "src=gender."'
Der Rest war mein Fehler.

' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub readData()
  Dim strFile As String, strPath As String
  Dim FF As Integer, intPos As Integer
  Dim strValues() As String, strTmp As String
  Dim strFind As String
  
  strFind = "src=gender." 'Suchbegriff - Anpassen!
  
  strPath = "E:\Forum" 'Verzeichnis - Anpassen!
  
  strPath = strPath & IIf(Right(strFile, 1) = "\", "", "\")
  
  Redim strValues(1 To 2, 1 To 1)
  
  strValues(1, 1) = "Datei"
  strValues(2, 1) = "Geschlecht"
  
  strFile = Dir(strPath & "*.htm*", vbNormal)
  
  Do While strFile <> ""
    strTmp = ""
    FF = FreeFile
    Open strPath & strFile For Input As #FF
    Do While Not EOF(FF)
      Line Input #FF, strTmp
      intPos = InStr(1, strTmp, strFind)
      If intPos > 0 Then
        If Mid(strTmp, intPos + Len(strFind), 4) = "male" Then
          strTmp = "M"
        ElseIf Mid(strTmp, intPos + Len(strFind), 4) = "fema" Then
          strTmp = "F"
        End If
        Exit Do
      End If
    Loop
    Close #FF
    Redim Preserve strValues(1 To 2, 1 To UBound(strValues, 2) + 1)
    strValues(1, UBound(strValues, 2)) = strFile
    strValues(2, UBound(strValues, 2)) = strTmp
    strFile = Dir
  Loop
  
  Range("A1").Resize(UBound(strValues, 2), 2) = Application.Transpose(strValues)
  Columns("A:B").AutoFit
End Sub

Gruß Sepp

Anzeige
AW: html auslesen und in Excel speichern
06.03.2010 21:05:05
Friedemann
Wow, ich bin schlicht weg begeistert.
Es hat funktioniert.
Danke vielmals.
Es hat mir viele viele Stunden an Arbeit erspart.
Gruß
Friedemann
AW: html auslesen und in Excel speichern
06.03.2010 20:31:59
Friedemann
Ich habe hier die Datei nochmal im Quellcode
Userbild
Anzeige
AW: html auslesen und in Excel speichern
06.03.2010 20:38:59
Friedemann
Eine weitere Variante wäre, den gesamten img tag auszulesen und in Spalte B abzulegen. Ist dies einfacher?
Wenn es nämlich erst einmal in Excel steht ist das weitere Bearbeiten kein Problem mehr.
Friedemann
;

Forumthreads zu verwandten Themen

fehler beim speichern - zellname existiert nicht
t4z

Hallo Leute,
folgendes Problem:
Will nach zahlreichen Änderungen in Datei A die Änderungen darin speichern. Kurz vor Ende des Speichervorgangs kommt dann die Fehlermeldung
"Microsoft Excel kann die Formel in der Zelle (Name:[Dateiname.xls]Tabellenname!solver_val) nicht konvertieren,...
07.08.2008 17:53:00
Thread-ID: 1000056
4 Beiträge
Speichern
Baywatch

Wie kann ich eine Dtei automatisch alle 60 sekunden speirchern lassen und das an mehreren Orten? heißt festplatte und usb stick zum beispiel?
14.08.2008 17:58:00
Thread-ID: 1001932
2 Beiträge
Anzeige
Tabellenblätter speichern
Rene

Moin zusammen,
Ich bräuchte mal wieder ein wenig Hilfe.
Ich habe eine Excel- Mappe mit 3 Tabellenblättern beim schließen der Mappe speichert es mir diese Tabelle nicht ab um keine Daten zu verändern. Nun wollte ich aber das 2 Blätter doch gespeichert werden sollen.
Tabelle 1 NICHT s...
15.08.2008 16:43:11
Thread-ID: 1002248
4 Beiträge
Anzeige
Ausgelesene Exceldatei speichern!
Botti

Hallo,
folgendes Problem:
Ich lese mit Hilfe eines Makro von der Datei A die Datei B aus... Dabei untersucht das Makro ob ein bestimmtes Sheet in einer Reihe von Sheets an einer bestimmten Stelle ist und verschiebt es für den negativen Fall an die richtige Stelle/Position. Soweit so gut...
20.08.2008 18:28:01
Thread-ID: 1003275
2 Beiträge
VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
speichern unter
Petra

Schönen Tag allerseits
bei der Speicheroption:
speichern unter: "formatierter Text (Leerzeichen getrennt) (*.prn)"
wird bekanntlich ein Textfile gespeichert.
Mein Problem: Excel hängt am Ende der Tabelle ein linefeed oder ähnliches an. Man kann dies überprüfen, wenn man die *.p...
21.08.2008 14:31:00
Thread-ID: 1003499
5 Beiträge
VB - Speichern - akt.woche.xls
Andi

Hallo Experten,
Ich steh mal wieder an und wär dankbar wenn Ihr mir weiterhelfen könntet. Und zwar versuch ich eine Excel-datei unter der aktuellen Woche abzuspeichern. (z.b. Woche33.xls). Die Wochenzahl sollte automatisch generiert werden.
Ich hab diesen Befehl mit dem aktuellen Datum...
22.08.2008 14:59:34
Thread-ID: 1003901
4 Beiträge
Befehl "Speichern unter"
Schulze

Halli Hallo,
ich habe mal eine kurz eFrage. Und zwar habe ich eine Excel Tabelle, die ich per Makro als eine neue Datei unter einem bestimmten Pfad speichern möchte. Der Dateiname soll das aktuelle Datum enthalten.
Viel Dank im Vorraus für die Hilfe.
Gruss Melchior
25.08.2008 10:31:00
Thread-ID: 1004391
4 Beiträge
Tb.Blatt nach Zellwert speichern
Peter

Guten Morgen allerseits,
mir raucht als VBA Neuling der Schädel, vielleicht könnt Ihr mir helfen. Ich versuche Tabelle 2 in Abhängigkeit einer Zelle in Tabelle 1 in einem bestimmten Ordner zu speichern, wobei das speichern erst
zulässig sein darf wenn alle einzugebenen Daten vorhanden s...
28.08.2008 09:50:00
Thread-ID: 1005302
3 Beiträge
Anzeige
Bilddatei mit neuem Namen speichern
egonkernien

Hallo wer hilft bitte?
Guten Abend.
Ich möchte eine Dialogbox aufrufen, dort eine Bilddatei auswählen.
Ich möchte diese Bilddatei in ein Image1 auf einer Userform laden. Z.B. D:\Daten\Bilder\DSC0011.jpg
Dann diese Bilddatei umbenennen in D:\Daten\Test\082008_01.jpg, abspeichern...
28.08.2008 22:32:28
Thread-ID: 1005608
5 Beiträge
Zwischenspeichern und am Ende wieder löschen
Werner

Hallo!
Ich will eine Datei per Mail versenden.
Dazu öffne ich meine xls-Vorlage.
Die Datei soll dann zwischengespeichert und danach verschickt werden.
Am Ende soll die neu entstandene Datei wieder gelöscht werden.
Gibt es da eine Möglichkeit?
Ich finde einfach nix oder c...
02.09.2008 07:59:41
Thread-ID: 1006629
2 Beiträge
Änderungsdaatum beim speichern eintragen
chris

Hallo guten morgen zusammen,
habe eine kleine frage.Antwort denke ich kann nur aus einem ja oder nein bestehen.
Ist es möglich bei einer Änderung in einer Datei oder erst beim speichern der Datei einen Eintrag in eine Zelle einzutragen mit der aktuellen (Änderungs) Zeit?
Geht das oh...
04.09.2008 06:57:00
Thread-ID: 1007259
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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