Abfrage statt in neu Datei im Worksheet speichern
10.09.2007 23:02:12
Pascal
ich habe folgendes Problem (es ist nun etwas anders gelagert als vorhin, daher neuer Eintrag).
Ich möchte Begriffe in Google Abfragen und das Ergebnis in eine Tabelle schreiben.
Zur Zeit bediene ich mich des folgenden Makros:
Sub HTMLAuslesen()
Dim wks As Worksheet
Dim lRow As Integer, iRow As Integer, iRowT As Integer
Dim sSearch As String
sSearch = "https://www.google.de/search?"
sSearch = sSearch & "num=100&q=herber&hl=de&btnG=Google-Suche"
sSearch = sSearch & "&meta=lr%3Dlang_de"
Application.ScreenUpdating = False
Workbooks.Open sSearch
Set wks = ActiveSheet
lRow = wks.Cells(Rows.Count, 1).End(xlUp).Row
' Workbooks.Add
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "MySheet"
For iRow = 1 To lRow
If wks.Cells(iRow, 1).Hyperlinks.Count = 1 Then
iRowT = iRowT + 1
Cells(iRowT, 1) = wks.Cells(iRow, 1).Hyperlinks(1).Address
End If
Next iRow
'wks.Parent.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Es öffnet eine neue Arbeitsmappe un legt dort das Tabellenblatt MySheet an mit den Daten, die ich benötige.
Wie bekomme ich nun die Werte aus MySheet wieder in meine alte Mappe bzw. wie schreibe ich das Makro so um, das evtl gar nicht erst eine neue Mappe erstellt wird?
Mir fällt dazu nur ein: Makrorekorder und die Daten wieder rüber holen, aber das scheint mir doch recht unelegant.
Besten Dank für Eure Mühe,
Pascal