Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 3757 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 ...

HTML
gelöst HTML-Seite auf mehreren Geräten öffnen (6)

Frage von Crumpy zum Thema HTML ...

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 Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
CNC Maschinen verlieren Netzwerkverbindung (kurioser Fehler) (22)

Frage von NoHopeNoFear zum Thema LAN, WAN, Wireless ...

Drucker und Scanner
Erfahrungen mit Enterprise-Tintenstrahldruckern A4 und A3 (14)

Frage von User1000 zum Thema Drucker und Scanner ...

Webentwicklung
Aktuellen Mitarbeiter auf Homepage anzeigen (13)

Frage von alemanne21 zum Thema Webentwicklung ...