Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.06.2006 23:46:16 |
Spindoctor |
|
|
|
13.06.2006 09:03:48 |
Rasta |
|
|
|
13.06.2006 10:50:46 |
Spindoctor |
|
|
|
13.06.2006 15:08:49 |
Rasta |
|
|
|
13.06.2006 16:46:42 |
Spindoctor |
|
|
|
14.06.2006 08:54:18 |
Rasta |
|
|
Aw:google hits - Webabfrage |
14.06.2006 13:18:14 |
Spindoctor |
|
|
|
15.06.2006 07:13:18 |
Rasta |
|
|
Von:
Spindoctor |
Datum:
14.06.2006 13:18:14 |
Views:
1247 |
Rating:
|
Antwort:
|
Thema:
Aw:google hits - Webabfrage |
Hallo nochmal!
Danke für Deine Hilfe!
Hab nochmal woanders einen Tipp bekommen.
Der endgültige Code sieht bei mir so aus:
Sub googlehits()
Dim r As Range
Const sConnection As String = "URL;http://www.google.com/search?q=%22"
For Each r In ActiveSheet.Columns(2).Cells
If Len(r.Previous.Value) = 0 Then Exit Sub
On Error GoTo QryTableError
With ActiveSheet.QueryTables.Add(Connection:=sConnection & r.Previous.Value & "%22", Destination:=r)
.Name = "googlehits"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "8"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
' .WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Next
Exit Sub
QryTableError:
MsgBox Err.Description, vbExclamation + vbOKOnly, Err.Number
End Sub
funktioniert wunderbar!
Ciao,
Spin |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.06.2006 23:46:16 |
Spindoctor |
|
|
|
13.06.2006 09:03:48 |
Rasta |
|
|
|
13.06.2006 10:50:46 |
Spindoctor |
|
|
|
13.06.2006 15:08:49 |
Rasta |
|
|
|
13.06.2006 16:46:42 |
Spindoctor |
|
|
|
14.06.2006 08:54:18 |
Rasta |
|
|
Aw:google hits - Webabfrage |
14.06.2006 13:18:14 |
Spindoctor |
|
|
|
15.06.2006 07:13:18 |
Rasta |
|
|