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, 3745 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 ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(2)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (15)

Frage von JayyyH zum Thema Switche und Hubs ...

DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Backup
Clients als Server missbrauchen? (10)

Frage von 1410640014 zum Thema Backup ...