Office: HTML importieren

AnneR · 7. Februar 2007

Hallo zusammen!

Ich möchte eine HTML-Datei in Excel importieren per makro. Nun habe ich mit dem Makro-Recorder aufgezeichnet und das funktioniert auch alles gut. Ich möchte nun nur noch, dass sich jedesmal wenn man den Button drückt zuerst der Dateiauswahl-Dialog öffnet, so dass nicht immer die selbe Datei importiert wird, sondern dass man jedesmal die Datei auswählt, die importiert werden soll.

Mein Code sieht bis jetzt so aus:

Code:

Sub HTMLEinlesen()

'HTML-Datei importieren

With ActiveSheet.QueryTables.Add(Connection:="FINDER", Destination:=Range("B2")) 'Datei und Zielort auswählen

.Name = "Ergenistab"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False

End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kann mir jemand sagen, was ich da machen muss? Vielen Dank schonmal!

:)

Styrkar · 9. Februar 2007

Dafür mußt du die Connection-Eigenschaft ändern:
Connection:= "URL;wasduwillst.de -&nbspDiese Website steht zum Verkauf! -&nbspInformationen zum Thema webarchiv."

AnneR · 9. Februar 2007

Hallo Stykar,

Vielen Dank für Deine Antwort. Mit dem was Du mir geschickt hast öffne ich aber die Datei, die hinter URL steht, oder? Das möchte ich ja gerade nicht, sondern den Auswahldialog aufrufen.

Styrkar · 9. Februar 2007

Ach so, den bekommst du mit Application.Dialogs(xlDialogNewWebQuery).Show

AnneR · 9. Februar 2007

hmm...ok! das funktioniert schonmal. und wie überegebe ich die auswhal aus dem dialog dann an die import-funktion?

Styrkar · 9. Februar 2007

Der Dialog startet die Import-Funktion, er macht also dasgleiche wie wenn du ihn über Daten-Importieren-Neue Webanfrage aufrufst.

AnneR · 9. Februar 2007

hmmm...da bekomme ich eine fehlermeldung "die show-methode des dialog-objektes konnte nicht ausgeführt werden"..

AnneR · 12. Februar 2007

Hallo zusammen!

Ich konnte mein Problem leider immernoch nicht lösen! was ich machen möchte ist folgendes:

ich möchte die zu importierende html-datei per dialog auswählen, sie ist lokal gespeichert. dann soll aber nicht der komplette importieren-dialog durchlaufen werden, sondern der rest soll per makro geschehen. es müsste also aus dem öffen-dialog nur der dateiname übernommen werden und anschließend mein makro weiterlaufen.

ich finde leider keine lösung, wie ich den namen der datei übergeben kann. ausserdem bekomme ich eine fehlermeldung, wenn ich versuche, den NewWebQuery-Dialog zu öffnen (Show-Eigenschaft existiert nicht)

Was mache ich falsch? Kann mir jemand einen Tipp geben?

Danke im Voraus!

User · 12. Februar 2007

Hallo Anne,

Also mit folgendem Code wird der OpenDialog geöffnet. Was Du mit der Datei machst, ist up-to-you. Ersetz halt die Msgbox mit Deinem VBA Code.

Das mit dem NewWebQuery hab ich nicht verstanden.

Code:

Sub Marine()
Dim sFileToOpen As Variant
Dim sSaveCurDir As String
Dim sSaveCurDrive As String
On Error Resume Next
sSaveCurDir = CurDir()
sSaveCurDrive = Left(CurDir(), 1)
sFileToOpen = Application.GetOpenFilename("HTML Files (*.html), *.html", , "HTML für Import öffnen")
If sFileToOpen False Then
MsgBox "Der Dateiname ist: [" & sFileToOpen & "]"
End If
ChDrive (sSaveCurDrive)
ChDir (sSaveCurDir)
On Error GoTo 0
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

AnneR · 12. Februar 2007

Super, ganz vielen Dank!

Jetzt habe ich es so hinbekommen, wie ich es mir vorgestellt habe!

Tausend Dank für Deine Hilfe!

Office: HTML importieren

HTML importieren

HTML importieren

HTML importieren

HTML importieren

HTML importieren - Similar Threads - HTML importieren

Bilder in einer HTML Mail werden mit Unterstrich angezeigt

PowerQuery & HTML Links?

HTML Datei einbinden klappt nicht wie ich möchte

Importieren von Daten aus einer CSV-, HTML- oder Textdatei

Html Dateien in Access Memofeld importieren

HTML (Text) aus Pfad in Zelle importieren (html-formatiert oder unformatiert)

Daten aus html-Tabelle in Excel importieren