[SOLVED] HTML Sheet einlesen in Calc ActiveSheet.QueryTables

[Tictac]

Hallo Zusammen,
Ich brauche dringend Unterstützung für die Migration eines Makros. Zum Thema Import findet man so viel und doch so wenig.

Konkret geht es darum, dass ich eine HTML Datei, die Lokal auf meiner Platte liegt in ein Worksheet in Calc einlesen will.
Manuel geht das Wunderbar indem ich unten neben die Tabs rechts klicke und sage "Create Sheet" (sorry benutze Englische Sprache macht manches einfacher) und dann im Dialog "From File" auswähle.

Makrorekorder bringt mich hierbei leider nicht weiter.

Hat jemand eine Idee wie das am besten gehen kann? Ich weiß einfach nicht wie ich Zugriff auf diesen "Create Sheet" befehl bekommen soll. Normalerweise geht sowas ja über InsertSheetByName


Vielleicht für den ein oder anderen Hilfreich habe ich hier auch noch das Makro aus der alten Excelversion.

Code: Alles auswählen

 x$ = "FINDER;file:///" + HTMLdatei$
    With ActiveSheet.QueryTables.Add(Connection:= _
        x$ _
        , Destination:=Range("A1"))
        .Name = TName$
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

[DPunch]

Aloha

Ob es einen direkten Weg dafür gibt, weiss ich nicht, das folgende sollte aber auf jeden Fall funktionieren:

Code: Alles auswählen

	oDoc = thisComponent
	sURL = "C:\meineHTMLDatei.html"
	sURL = ConvertToURL(sURL)	
	oSheets = oDoc.Sheets
	If NOT oSheets.hasByName("HTML") Then oSheets.insertNewByName("HTML",0)
	oSheet = oSheets.getByName("HTML")
	oSheet.LinkMode = 1
	oSheet.LinkUrl = sURL
	oSheet.LinkMode = 0
	oSheet.setLinkURL("")

[Tictac]

DANKE DANKE DANKE DAS FUNKTIONIERT GENAU SO WIE ICH ES WOLLTE!!!!!!!!!!!!!!!!!!!
Ich zerbrech mir seit gestern morgen den Kopf darüber und so schnell geht es!!!!