Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Frage Entwicklung HTML

Mitglied: bermsgruen1

bermsgruen1 (Level 1) - Jetzt verbinden

27.02.2010 um 17:42 Uhr, 3759 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
Batch & Shell
Dateien kopieren die nicht mehr verändert werden? (10)

Frage von pbelcl zum Thema Batch & Shell ...

Batch & Shell
gelöst Kopieren einer Datei in mehrere Ordner mit PowerShell (7)

Frage von FRANHE zum Thema Batch & Shell ...

Ubuntu
gelöst Wie kann man es tun? Alle Zeilen mit 2 und mehr Leerzeichen entfernen (1)

Frage von takitano zum Thema Ubuntu ...

Neue Wissensbeiträge
Windows Installation

Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen

(8)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...

Datenschutz

Gefährdeter Datenschutz: Firefox löscht lokale Datenbanken nicht

Information von BassFishFox zum Thema Datenschutz ...

Firewall

PfSense OpenVPN beschleunigen

Tipp von Dobby zum Thema Firewall ...

Utilities

CCleaner 5.33 mit Malware infiziert

(27)

Information von SeaStorm zum Thema Utilities ...

Heiß diskutierte Inhalte
Utilities
CCleaner 5.33 mit Malware infiziert (27)

Information von SeaStorm zum Thema Utilities ...

Festplatten, SSD, Raid
gelöst Problem mit DELL 815R Server und Windows Bluescreen (24)

Frage von Leo-le zum Thema Festplatten, SSD, Raid ...

Windows Systemdateien
Windows bootet nicht mehr Fehlermeldung 0xc0000098 (19)

Frage von franzgoerlich zum Thema Windows Systemdateien ...

Windows Netzwerk
Dateien mit Intelligenz per GPO ins Programmverzeichnis (14)

Frage von erwin.t zum Thema Windows Netzwerk ...