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, 3815 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
Microsoft Office

MS Office Exel 2010 Update KB3115322 : Excel-Datei öffnet nicht mehr

Tipp von ArnoNymousMicrosoft Office

Microsoft hat gestern ein Update für Office 2010 veröffentlicht, dass eine kritische Sicherheitslücke schließt. Als Resultat daraus konnte heute ...

Microsoft Office

Exel Formel einfügen

Frage von lizzy123Microsoft Office5 Kommentare

Ich habe folgendes Problem: wenn C1>100, dann soll die Farbe der Zahl in S1 rot sein wenn C1<100, dann ...

HTML

Html: Automatisches Weiterleiten auf eine sub-domaine klappt nicht mehr

Frage von klausphHTML8 Kommentare

guten tag, der nachfolgende Schnibbsel hat jahrelang funktioniert der Inhalt von war lange Zeit so: die datei gabs doppelt ...

VB for Applications

Exel 2013 Datenauswertung

gelöst Frage von andreasp85VB for Applications10 Kommentare

Guten Tag, ich bin neu hier und auf der Suche nach Antworten. Was meine Person angeht bin ich in ...

Neue Wissensbeiträge
Windows 7
Updategängelung auf Windows 10, die zweite
Information von Penny.Cilin vor 2 TagenWindows 7

Hallo, da Windows 7 im kommenden Jahr nicht mehr supportet wird, werden Nutzer von Window 7 home premium wieder ...

Internet
EU-Urheberrechtsreform: Zusammenfassung
Information von Frank vor 5 TagenInternet1 Kommentar

Auf golem.de gibt es eine Analyse von Friedhelm Greis, der das Thema EU-Urheberrechtsreform gut und strukturiert zusammenfasst. Zwar haben ...

Microsoft Office

Office365 Schwachstellen bei Sicherheit und Datenschutz

Information von Penny.Cilin vor 6 TagenMicrosoft Office8 Kommentare

Auf Heise+ gibt es einen Artikel bzgl. Office365 Schwachstellen. Das ist noch ein Grund mehr seine Daten nicht in ...

Sicherheit
Schwachstellen in VPN Clients
Tipp von transocean vor 8 TagenSicherheit2 Kommentare

Moin, es gibt Sicherheitslücken bei VPN Clients namhafter Hersteller, wie man hier lesen kann. Gruß Uwe

Heiß diskutierte Inhalte
Windows Installation
Windows10 Home Neuinstallation - Raketentechnik
Frage von spacyfreakWindows Installation13 Kommentare

"Kannst du den Rechner von der Tante von WindowsXP auf Windows10 Home upgraden" haben sie gefragt? "Sicher, was kann ...

Utilities
Teamviewer 9.x "out of date" ??
gelöst Frage von keine-ahnungUtilities13 Kommentare

Moin at all, mein topaktueller teamviewer (alles 9.x - releases) verweigert seit heute die Arbeit und bemeckert: "the remote ...

Windows 10
Windows 10 verwendet FritzBox per IPv6 als DNS-Server an Stelle des per DHCP vergebenen DNS-Servers
Frage von Datax87Windows 1010 Kommentare

Hallo, ich habe ein kleines Problem mit der Namensauflösung (DNS) unter Windows 10. Mir ist heute aufgefallen, dass ich ...

Voice over IP
Anbindung Telekom Cloud PBX mit Sophos SG330
gelöst Frage von macomarVoice over IP7 Kommentare

Hallo an alle, wir beabsichtigen mit unserer alten Siemens Telefonanlage auf Telekom Cloud PBX umzusteigen. Da wir eine Verwaltung ...