Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Mehrere Zeilen auf mehreren html Dateien in Exel kopieren

Mitglied: bermsgruen1

bermsgruen1 (Level 1) - Jetzt verbinden

27.02.2010 um 17:42 Uhr, 3775 Aufrufe, 3 Kommentare

Hallo zusammen,

ich hoffe mir kann jemand helfen ich probiere jetzt schon Wochenlang rum und es funktioniert einfach nicht.
Ich habe mehrere html-Dateien aus diesen Datein soll Zeile 399-409 in eine Zeile einer Exeltabelle kopiert werden.
Je Zeile soll immer nur der Text aus einer Datei stehen.

Gruß
bermsgruen1
Mitglied: bastla
27.02.2010 um 17:57 Uhr
Hallo bermsgruen1 und willkommen im Forum!

Versuch mal folgendes VBA-Script:
01.
Sub HoleZeilen() 
02.
Ordner = "D:\HTML-Dateien" 
03.
Typ = "html" 'in Kleinbuchstaben 
04.
VonZeileHTML = 399 
05.
BisZeileHTML = 409 
06.
 
07.
AbZeileXL = 2 'Eintrag in Tabelle ab A2 (Zellinhalte werden überschrieben) 
08.
SpalteXL = "A" 
09.
 
10.
ZeileXL = AbZeileXL 
11.
Set fso = CreateObject("Scripting.FileSystemObject") 
12.
For Each Datei In fso.GetFolder(Ordner).Files 
13.
    If LCase(fso.GetExtensionName(Datei.Name)) = Typ Then 
14.
        T = Split(Datei.OpenAsTextStream.ReadAll, vbCrLf) 
15.
        D = "" 
16.
        For i = VonZeileHTML - 1 To BisZeileHTML - 1 'Array ist nullbasiert 
17.
            D = D & T(i) 
18.
        Next 
19.
        Cells(ZeileXL, SpalteXL) = D 
20.
        ZeileXL = ZeileXL + 1 
21.
    End If 
22.
Next 
23.
MsgBox "Fertig." 
24.
End Sub
[Edit] Bei genauerer Betrachtung der Problembeschreibung soll vermutlich jede Zeile der HTML-Datei in eine eigene Zelle der Tabelle geschrieben werden - dann so:
01.
Sub HoleZeilen() 
02.
Ordner = "D:\HTML-Dateien" 
03.
Typ = "html" 'in Kleinbuchstaben 
04.
VonZeileHTML = 399 
05.
BisZeileHTML = 409 
06.
 
07.
AbZeileXL = 2 'Eintrag in Tabelle ab A2 (Zellinhalte werden überschrieben) 
08.
AbSpalteXL = 1 'Spaltenangabe numerisch (A = 1) 
09.
 
10.
ZeileXL = AbZeileXL 
11.
Set fso = CreateObject("Scripting.FileSystemObject") 
12.
For Each Datei In fso.GetFolder(Ordner).Files 
13.
    If LCase(fso.GetExtensionName(Datei.Name)) = Typ Then 
14.
        T = Split(Datei.OpenAsTextStream.ReadAll, vbCrLf) 
15.
        SpalteXL = AbSpalteXL 
16.
        For i = VonZeileHTML - 1 To BisZeileHTML - 1 'Array ist nullbasiert 
17.
            Cells(ZeileXL, SpalteXL) = T(i) 
18.
            SpalteXL = SpalteXL + 1 
19.
        Next 
20.
        ZeileXL = ZeileXL + 1 
21.
    End If 
22.
Next 
23.
MsgBox "Fertig." 
24.
End Sub
[/Edit]

In beiden Versionen wird vorausgesetzt, dass die HTML-Datei genügend Zeilen enthält.

Grüße
bastla
Bitte warten ..
Mitglied: bermsgruen1
28.02.2010 um 09:50 Uhr
Danke für die Mühe die du dir gemacht hast hat mir sehr geholfen.
Bitte warten ..
Mitglied: bastla
28.02.2010 um 11:09 Uhr
Hallo bermsgruen1!

Freut mich (war allerdings keine Mühe ) ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Windows 10

Mehrere Dateien in Mehrere Ordner Kopieren

Frage von TheTurtleWindows 101 Kommentar

Hallo Zusammen Folgende Situationen: Ich muss immer wieder mahl den Inhalt eines Ordners mit ca. 60-100 Dateien in mehrere ...

Batch & Shell

Dateien kopieren die nicht mehr verändert werden?

Frage von pbelclBatch & Shell10 Kommentare

Hi Leute, Ich habe eine Vu+ Receiver der auf die lokale Platte Videos aufnimmt. Aus administrativen Gründen muss ich ...

Batch & Shell

Zeile von einer Bat-Datei in eine andere kopieren

gelöst Frage von Nick.BBatch & Shell6 Kommentare

Ich wollte eine Zeile von einer Bat-Datei in eine andere schreiben, dies habe ich auch mit echo geschafft aber ...

Batch & Shell

Batch oder Powershell: Teile einer Textdatei kopieren (mehrere Zeilen)

gelöst Frage von ole-objektBatch & Shell5 Kommentare

Hallo, ich habe mehrere txt-Dateien, in denen jeweils mehrere Abschnitte mit Daten vorliegen. Nun möchte ich jede dieser Textdateien ...

Neue Wissensbeiträge
Server-Hardware
HP iLO ist gefährdet (iLO 4))
Tipp von AlFalcone vor 8 StundenServer-Hardware

Gemäss Twitter und Heise gibt es eine Angriffsmöglichkeit auf iLO Quelle: iLO ist gefährdet

CMS
Erneut kritische Zero-Day-Lücke in Drupal
Tipp von Reini82 vor 17 StundenCMS

Laut einem Bericht auf t3n gibt es eine Schwere Sicherheitslücke in Drupal die auch schon ausgenutzt wird. Betroffen sind ...

Sicherheit

MikroTik-Router patchen, Schwachstelle wird ausgenutzt

Information von kgborn vor 1 TagSicherheit

Am 23. April 2018 wurde von Mikrotik ein Security Advisory herausgegeben, welches auf eine Schwachstelle im RouterOS hinwies. Mikrotik ...

Windows 10

Microcode-Updates KB4090007, KB4091663, KB4091664, KB4091666 für Windows 10

Information von kgborn vor 1 TagWindows 101 Kommentar

Kurze Information für Administratoren von Windows 10-Systemen, die mit neueren Intel CPUs laufen. Microsoft hat zum 23. April 2018 ...

Heiß diskutierte Inhalte
Ausbildung
Wie gelingt ein guter Einstieg in die FiSi-Ausbildung? (Umschulung)
Frage von SiAnKoAusbildung29 Kommentare

Schönen guten Tag, ich bin SiAnKo und habe seit dem 1.04.2018 eine Umschulung als FiSi angefangen. Ich möchte natürlich ...

Windows Server
Alten DC entfernen
gelöst Frage von smartinoWindows Server27 Kommentare

Hallo zusammen, ich habe hier eine Umgebung übernommen und erstmal einen DCDIAG gemacht. Dabei fällt auf, daß eine ganze ...

Batch & Shell
Mit Powershell den Inhalt einer Excel mit einer Text Datei abgleichen
gelöst Frage von Bommi1961Batch & Shell21 Kommentare

Hallo zusammen, ich muss den Inhalt einer Excel Datei (Mappe1) mit dem Daten einer Text Datei abgleichen. Die Daten ...

Router & Routing
Subnetzmaske vergrößern
gelöst Frage von groovesurferRouter & Routing18 Kommentare

Hallo, hat jemand schonmal getestet was passiert, wenn man die Subnetzmaske bei laufendem Betrieb (wenn user im Netzwerk verbunden ...