VBA-Makro nach StarBasic
Verfasst: Fr, 21.09.2018 18:55
Hallo zusammen,
ich habe das Problem, dass mein VBA-Makro in OpenOffice nicht verwendbar ist. Ich möchte gern Tabellen von Webseiten einlesen und ins Clipboard kopieren, hier ein Beispiel:
Sub Neu()
Const prefix As String = "https://de.wikipedia.org/wiki/"
Const FileName As String = "Brasilianische_Fu%C3%9Fballnationalmannschaft"
Dim qt As QueryTable
Dim ws As Worksheet
Set ws = ActiveSheet
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qt = ws.QueryTables.Add( _
Connection:="URL;" & prefix & FileName, _
Destination:=shFirstQtr.Cells(1, 1))
qt.WebSelectionType = xlAllTables
qt.Refresh BackgroundQuery:=False
Range("A125").Copy
End Sub
StarBasic scheint u.a. mit dem QueryTable nicht zurechtzukommen. Kann es mir bitte jemand übersetzen? (VBA-Support einschalten sowie ad-hoc-Übersetzungen über irgendwelche Eingabemasken hat keine brauchbaren Ergebnisse gebracht).
Vielen Dank!
ich habe das Problem, dass mein VBA-Makro in OpenOffice nicht verwendbar ist. Ich möchte gern Tabellen von Webseiten einlesen und ins Clipboard kopieren, hier ein Beispiel:
Sub Neu()
Const prefix As String = "https://de.wikipedia.org/wiki/"
Const FileName As String = "Brasilianische_Fu%C3%9Fballnationalmannschaft"
Dim qt As QueryTable
Dim ws As Worksheet
Set ws = ActiveSheet
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qt = ws.QueryTables.Add( _
Connection:="URL;" & prefix & FileName, _
Destination:=shFirstQtr.Cells(1, 1))
qt.WebSelectionType = xlAllTables
qt.Refresh BackgroundQuery:=False
Range("A125").Copy
End Sub
StarBasic scheint u.a. mit dem QueryTable nicht zurechtzukommen. Kann es mir bitte jemand übersetzen? (VBA-Support einschalten sowie ad-hoc-Übersetzungen über irgendwelche Eingabemasken hat keine brauchbaren Ergebnisse gebracht).
Vielen Dank!