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, 3761 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
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 Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Server
Bilder aus dem Web mit CSV runterladen (30)

Frage von Yannosch zum Thema Server ...

Server-Hardware
Bestehendes Raid erweitern um 4 gleiche Platten! (Verständnis Fragen) (12)

Frage von Hendrik2586 zum Thema Server-Hardware ...

Windows Update
WSUS 4 (Server 2012 R2) - Windows 10 Updates nicht möglich (12)

Frage von c0d3.r3d zum Thema Windows Update ...