Anzeige
Archiv - Navigation
1500to1504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

HTML an String übergeben

HTML an String übergeben
22.06.2016 17:20:15
Christoph
Hallo,
bin gerade wieder etwas am basteln.
Wie bekomme ich diese paar Zeilen umgeschrieben, dass die ganze HTML Datei an den String übergeben wird? Im Moment ist es ja nur die erste Zeile.
Do Until lstrFile = ""
Open ThisWorkbook.Path & "\" & lstrFile For Input As #1
'Do Until EOF(1)
Line Input #1, lstrInhalt
........
Es gibt ja nur den Inputbefehl. Aber irgendwie bekomme ich das nicht hin.
Vielleicht weiß ja mal wieder jemand (Michael?:)) was ich ändern muss.
Gruß
Christoph

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: HTML an String übergeben
22.06.2016 17:57:30
Michael
Hi,
na klar doch:
Option Explicit
Sub TextImport()
Dim datei As Variant
Dim s As String
Dim i&, dNr%
'datei = "Deinpfad"
datei = "C:\A_Herber\Ping.txt"
If Dir(datei) = "" Then
MsgBox ("Datei nicht gefunden.")
Exit Sub
End If
dNr = FreeFile
Open datei For Binary As #dNr
s = Space(LOF(dNr))
Get #dNr, 1, s
Close #dNr
MsgBox "Dat jibt et:" & vbLf & Left(s, 26)
End Sub
Schöne Grüße,
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige