Clever-Excel-Forum › Office-Anwendungen › Excel v
Datenabfrage von Website

Thema geschlossen 
Baumstrukturmodus
Datenabfrage von Website
Momos Offline
pausiert
Registriert seit: 06.01.2019
Version(en): Office Pro 2013
#1
06.01.2019, 00:29
Servus,

ich bin neu hier und versuche mich an einer großen Aufgabe...

Grundverständnis in Excel ist vorhanden, jedoch sehr wenig bis garnicht VBA oder Makros, deshalb meine Frage, ist es möglich den Textinhalt mehrerer Seiten von einer Homepage zu kopieren? Möchte eine Tabelle mit den Daten erstellen und in Excel nutzen. Habe schon versucht Makro aufzuzeichnen, doch irgendwie kapiere ich das nicht so ganz.

Als Webseiten beispiel habe ich z.B. das hier nur mit dem Unterschied, das meine Daten auf über tausend Seiten verteilt sind (Name, Adressdaten). Quasi Endung am links dann halt /p:2, dann /p:3, usw.

Wie kompliziert ist die Realisierung des ganzen? Will halt "nur" die Textdateien von den Anbietern haben mit den Daten und keine Hyperlinks oder sonst etwas. Möchte ein wenig dazu lernen, würde mich freuen, hier auf Hilfe zu stoßen um das zu realisieren...

Hoffe ich konnte mich verständlich machen?

Danke im voraus
Suchen
Top
WillWissen Offline
CEF-Moderator
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
#2
06.01.2019, 01:11
Hi,

vorausgesetzt, ich habe dein Anliegen richtig verstanden:

Daten==> externe Daten abrufen==> Aus dem web

Als Ergebnis bekommst du dann dies auf deinem Arbeitsblatt zu sehen:
Arbeitsblatt mit dem Namen 'Tabelle2'
A
1Bund Deutscher Sportschützen e.V. - Landesverband Niedersachsen und Bremen
2Sonntag, 6. Januar 2019
3Startseite
4Landesverband
5Sportprogramm
6Termine
7Links
8Funktionäre
9Geschäftsstelle
10Mitglied im BDS werden
11Vereinsbeitritte
12Waffenbefürwortungen
13Schießstände
14Vereine
15Ausbildung
16Formulare
17Satzung
18Geschäftsstelle
19
20Unsere ehrenamtlich besetzte Geschäftsstelle erreichen Sie am bequemsten per E-Mail,
21BDS Landesverband 3
22Anke Schuster
23Hinter den Höfen 8
2421726 Heinbockel
25E-Mail
26Vereine, aufgelistet nach Postleitzahlen
27auflisten nach Vereinsnummern
28auflisten nach Orten
29auflisten nach Vereinsnamen
30Gemeinschaft der Großkaliberschützen und Wiederlader Hannover
31und Landkreis e.V.
32Vereinsnummer 03-006
33Hannover
34mehr...
35VSG Peine e.V.
36Vereinsnummer 03-033
37Großkaliber Sportschützen Club Georgsmarienhütte
38Vereinsnummer 03-007
39Osnabrück
40mehr...
41Reservisten und Großkaliberschützen Hannover-Land e.V.
42Vereinsnummer 03-010
43mehr...
44Interessengemeinschaft Sportschützen und Wiederlader e.V. ( I.S.W. e.V.)
45Vereinsnummer 03-005
46Hannover
47mehr...
48SSG-Linden der Sportschützengemeinschaft Wolfenbüttel e.V.
49Vereinsnummer 03-129
50Wolfenbüttel
51mehr...
52Field Target Ostfriesland Club e.V.
53Vereinsnummer 03-075
54Langeoog
55mehr...
56Desert Eagle Club Deutschland e. V.
57Vereinsnummer 03-128
58mehr...
59GCO e. V.
60Vereinsnummer 03-165
61mehr...
62SG Hohehorst
63Vereinsnummer 03-143
64mehr...
65BIG FIFTY GUN CLUB e. V.
66Vereinsnummer 03-500
67mehr...
68GSC-Lohne
69Vereinsnummer 03-016
70mehr...
71Sport & Westernschützen Buchholz
72Vereinsnummer 03-161
7321244 Buchholz in der Nordheide
74mehr...
75Angry Bullets Nordheide
76Vereinsnummer 03-136
7721376 Garlstorf
78mehr...
79Großkaliberschützen Ostheide e.V.
80Vereinsnummer 03-048
8121400 Reinsdorf
82mehr...
83Triple C-Süd
84Vereinsnummer 03-125
8521526 Hohenhorn
86mehr...
87Großkaliber Sportschützen Gemeinschaft Stade e.V. (GKSG Stade e.V.)
88Vereinsnummer 03-021
8921680 Stade
90mehr...
91GKSG im SV Hollern-Twielenfleth
92Vereinsnummer 03-117
9321723 Hollern-Twielenfleth
94mehr...
95Interessengemeinschaft für sportliches Großkaliberschießen e.V. (IGSG e.V.)
96Vereinsnummer 03-042
9721726 Heinbockel
98mehr...
99SLG Oldenburg-Zentrum e. V.
100Vereinsnummer 03-134
10126131 Oldenburg
102mehr...
103Schießsportfreunde Oldenburg e. V.
104Vereinsnummer 03-162
10526133 Oldenburg
106mehr...
107Westernschützenverein Lawmen Oldenburg e. V.
108Vereinsnummer 03-067
10926188 Friedrichsfehn
110mehr...
111SSG PISTOLEROS
112Vereinsnummer 03-164
11326655 Westerstede-Halsbek
114mehr...
115Gemeinschaft Jagd und Natur e.V.
116Vereinsnummer 03-098
11727432 Basdahl-Oese
118mehr...
119Schützenverein Hude e. V.
120Vereinsnummer 03-170
12127798 Hude
122mehr...
123The Westerners
124Vereinsnummer 03-119
12528237 Bremen
126mehr...
127Schützenverein Arbergen von 1954 e. V.
128Vereinsnummer 03-145
12928325 Bremen
130mehr...
131Bremer Schützenverein von 1843
132Vereinsnummer 03-044
13328876 Oyten
134mehr...
135Schützenvereinigung GK 04 e. V. (SV GK 04 e. V.)
136Vereinsnummer 03-079
13729308 Winsen/Aller
138mehr...
139Sportschützen für Großkaliber Lüchow-Dannenberg e.V.
140Vereinsnummer 03-023
14129439 Lüchow-Dannenberg
142mehr...
143Verein für Sportschießen von 1993 e.V. (VfS 93)
144Vereinsnummer 03-084
14530159 Hannover
146mehr...
147IPSC Club Hannover e.V.
148Vereinsnummer 03-101
14930173 Hannover
150mehr...
151Verein für Großkaliberschießen .357 Hannover e.V. (VfG .357 Hannover e.V.)
152Vereinsnummer 03-017
15330453 Hannover
154mehr...
155BANG e.V. (Berenbostels Aktive Neue Schießsportgemeinschaft)
156Vereinsnummer 03-057
15730455 Hannover
158mehr...
159Schützenverein für Groß- und Kleinkaliberschießen e.V. Hannover
160Vereinsnummer 03-099
16130519 Hannover
162mehr...
163ADATO Schießsportgruppe e. V. (ASSG)
164Vereinsnummer 03-111
16530559 Hannover
166mehr...
167Verein für Großkaliberschützen und Wiederlader e.V.
168Vereinsnummer 03-009
16930629 Hannover
170mehr...
171Dynamic Shooters e.V.
172Vereinsnummer 03-133
17330659 Hannover
174mehr...
175Schützenverein Osterwald O/E e.V. von 1910
176Vereinsnummer 03-107
17730826 Garbsen - Osterwald O/E
178mehr...
179Verein für sportliches Großkaliber- und Gebrauchspistolenschießen e.V.
180(VGG Hannover)
181Vereinsnummer 03-001
18230851 Langenhagen
183mehr...
184Sportschützengruppe an der Universität Hannover e.V. (SSG UNI Hannover)
185Vereinsnummer 03-003
18630916 Isernhagen
187mehr...
188Vorderlader-Club-Deister e. V.
189Vereinsnummer 03-163
19030926 Seelze
191mehr...
192Klein- & Großkaliber Schießsport-Club Pattensen 1998 e.V. (KGSC)
193Vereinsnummer 03-097
19430982 Pattensen
195mehr...
196SSG Calenberger Land e. V.
197Vereinsnummer 03-121
19830982 Pattensen
199mehr...
200RGH e. V.
201Vereinsnummer 03-122
20230982 Pattensen
203mehr...
204GKSG-Nordstemmen von 1994 e.V.
205Vereinsnummer 03-047
20631171 Nordstemmen
207mehr...
208Schützenverein Freiheit und Gesetzmäßigkeit von 2004 e.V.
209Vereinsnummer 03-082
21031188 Holle
211mehr...
212Western- und Großkaliberschützen Celle e. V.
213Vereinsnummer 03-056
21431311 Uetze
215mehr...
216Schießsportgruppe Büren Neustadt am Rübenberge e. V.
217Vereinsnummer 03-154
21831535 Neustadt am Rübenberge
219mehr...
220SLG-08/15 e. V.
221Vereinsnummer 03-153
22231555 Suthfeld
223mehr...
224Schießsportclub Kraut und Lot
225Vereinsnummer 03-124
22631608 Marklohe / Oyle
227mehr...
228Jagd- und Sportschützen Weserland e.V. von 1982
229Vereinsnummer 03-109
23031622 Heemsen
231mehr...
232Schützenverein Rodewald m.B. von 1913 e.V.
233Vereinsnummer 03-127
23431637 Rodewald
235mehr...
236Shooting-Club-Schaumburg
237Vereinsnummer 03-112
23831867 Lauenau
239mehr...
240SSG-Lauenau
241Vereinsnummer 03-071
24231867 Lauenau
243mehr...
244Werraschützen im PSV Hann. Münden e. V.
245Vereinsnummer 03-032
24634346 Hann. Münden
247mehr...
248Verein der Silhouettenschützen Shoot-Off e. V.
249Vereinsnummer 03-141
25037073 Göttingen
251mehr...
252Schützengruppe Harste e. V.
253Vereinsnummer 03-115
25437120 Göttingen-Bovenden
255mehr...
256SV Ballenhausen
257Vereinsnummer 03-045
25837133 Ballenhausen
259mehr...
260SSG-Lödingsen e.V.
261Vereinsnummer 03-066
26237139 Adelebsen
263mehr...
264Schießsportgemeinschaft Bad Gandersheim e.V.
265Vereinsnummer 03-096
26637581 Bad Gandersheim
267mehr...
2681. Country Club Braunschweig e. V.
269Vereinsnummer 03-065
27038120 Braunschweig
271mehr...
272BSSV Braunschweiger Sportschützen Vereinigung von 1999 e.V. - Gruppe BDS
273Vereinsnummer 03-138
27438159 Vechelde / Wedtlenstedt
275mehr...
276Schützengesellschaft Salzgitter-Lebenstedt
277Vereinsnummer 03-114
27838229 Salzgitter-Lebenstedt
279mehr...
280Ju-Jutsu Verein Salzgitter-Bad
281Vereinsnummer 03-086
28238259 Salzgitter-Bad
283mehr...
284Schießsportgemeinschaft Wilhelm Tell e.V.
285Vereinsnummer 03-081
28638319 Remlingen
287mehr...
288Shooting Club Wolfsburg e. V.
289Vereinsnummer 03-131
29038442 Wolfsburg
291mehr...
292Schießsportgruppe BDS Gifhorn (SSG)
293Vereinsnummer 03-150
29438524 Sassenburg/Westerbeck
295mehr...
296Schützenverein Clausthaler Studenten 2000 e.V.
297Vereinsnummer 03-072
29838678 Clausthal-Zellerfeld
299mehr...
300IPSC 3Gun Club
301Vereinsnummer 03-116
30238704 Liebenburg
303mehr...
304SV Reburg 1997 e.V.
305Vereinsnummer 03-094
30638723 Seesen
307mehr...
30898er Schützen-Kameradschaft e. V.
309Vereinsnummer 03-087
31038723 Seesen
311mehr...
312SSG Egeln von 1992 e. V.
313Vereinsnummer 03-050
31439126 Magdeburg
315mehr...
316SLG Weddendorf
317Vereinsnummer 03-168
31839646 Weddendorf
319mehr...
320Sportschützenvereinigung Bramsche e.V.
321Vereinsnummer 03-140
32249088 Osnabrück
323mehr...
324Großkaliber Arminius e.V.
325Vereinsnummer 03-043
32649090 Osnabrück
327mehr...
328Sportschützenclub Wallenhorst e. V.
329Vereinsnummer 03-146
33049134 Wallenhorst
331mehr...
332Osnabrücker Neustädter SV von 1887 e. V.
333Vereinsnummer 03-166
33449176 Hilter-Borgloh
335mehr...
336GKSG Diepholz e. V.
337Vereinsnummer 03-004
33849356 Diepholz
339mehr...
340Link-Tipp: Forum Waffenrecht
341mehr...
342Mehrdistanzschießen
343In Raumschießanlagen nur mit geschossaufnehmenden Böden gestattet
344mehr...
345Speed
346Beim Speedschießen kommt es auf Treffer und Zeit an.
347mehr...
348© 2019|BDS Niedersachsen und Bremen (LV 3)
349Datenschutzerklärung|
350Kontakt|
351Impressum
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Suchen
Top
Momos Offline
pausiert
ThreadStarter
Registriert seit: 06.01.2019
Version(en): Office Pro 2013
#3
06.01.2019, 09:36
(06.01.2019, 01:11)WillWissen schrieb: Hi,

vorausgesetzt, ich habe dein Anliegen richtig verstanden:

Daten==> externe Daten abrufen==> Aus dem web

Als Ergebnis bekommst du dann dies auf deinem Arbeitsblatt zu sehen:

Guten Morgen, ich wollte das ganze automatisiert aus dem Netz ziehen, also alle Seiten die ich benötige und so ab Zeile 37 sieht das interessant aus... Wollte wenn möglich nur die Datensätze ziehen welche notwendig sind für mich und dann halt eben auch das Excel versteht, das er alle Seiten berücksichtigt. Die eine Website von der ich die Daten möchte, sind halt über 1000 Seiten groß und da ist manuell ein bissl zu viel des guten...

MfG
Suchen
Top
WillWissen Offline
CEF-Moderator
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
#4
06.01.2019, 11:41
Moin,

so ganz verstehe ich dein Anliegen anscheinend nicht. Huh Falls du meinst, dass XL automatisch die Seiten hinter den Links (etwa "mehr...") importieren soll, muss ich dich enttäuschen. Woher soll das Programm wissen, welche URL gemeint ist? Da wird dir vermutlich nichts anderes als Handarbeit übrigbleiben.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Suchen
Top
Momos Offline
pausiert
ThreadStarter
Registriert seit: 06.01.2019
Version(en): Office Pro 2013
#5
06.01.2019, 12:14
Naja, da ich im Netz auf diesen Artikel gestoßen bin, dachte ich, das bei Excel etwas mehr geht... Wink

Aber ich bin halt planlos und habe mir erhofft hier ein paar Cracks zu finden und Licht ins dunkle zu bringen...
Suchen
Top
Jockel Offline
VUP & {Formelsympathisant}
Registriert seit: 10.04.2014
Version(en): Office 2019
#6
06.01.2019, 14:57 (Dieser Beitrag wurde zuletzt bearbeitet: 06.01.2019, 14:57 von Jockel.)
Hallo, für Interessierte: bei herber geht's weiter...
Gruß Jörg
stolzes Mitglied im ----Excel-Verein
Freund einer excellenten Power Query-Abfrage
Suchen
Top
Momos Offline
pausiert
ThreadStarter
Registriert seit: 06.01.2019
Version(en): Office Pro 2013
#7
06.01.2019, 15:04
(06.01.2019, 14:57)Jockel schrieb: Hallo, für Interessierte: bei herber geht's weiter...

Ja, hätte auch selbst drauf kommen können, dass Herber auch ein Forum hat wo man sich registrieren kann... :16: 

Trotzdem, falls jemand einen Lösungsansatz hat oder mir ein wenig VBA verständlich machen kann so dass ich weiterkomme, vielen Dank. Ich hatte während meiner Schulzeit vor Jahren mal Basic gelernt, nur hiermit komme ich garnicht klar, da ich nicht weiß wofür welche Zeile steht, aber ich bibn nicht zu dumm zum Lernen.

Also Hilfe ist nach wie vor willkommen, oder ist es nicht erwünscht das Problem auf mehr als einem Forum zu Posten?

MfG
Suchen
Top
WillWissen Offline
CEF-Moderator
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
#8
06.01.2019, 17:30
Hallo momos,


Zitat:Also Hilfe ist nach wie vor willkommen, oder ist es nicht erwünscht das Problem auf mehr als einem Forum zu Posten?

lies dir bitte dazu mal den Beitrag hinter diesem Link durch: https://www.clever-excel-forum.de/misc.php?action=help&hid=10
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Suchen
Top
Momos Offline
pausiert
ThreadStarter
Registriert seit: 06.01.2019
Version(en): Office Pro 2013
#9
06.01.2019, 19:35
Danke, habe nun in beiden Foren auf der vorhandensein des Themas hingewiesen.

gibt es VBA Pro´s welche mir helfen können? :100:
Suchen
Top
schauan Offline
Einer von hier
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
#10
07.01.2019, 20:44
Hallöchen,

wenn ich die Abfrage aufzeichne, bekomme ich das:

Code:
Sub Makro1()
'
' Makro1 Makro
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://bds-niedersachsen.de/index.php?p=3&sort=1", Destination:=Range _
        ("$A$1"))
        .CommandType = 0
        .Name = "index.php?p=3&sort=1"
        .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
End Sub


Beim Test bekomme ich in dieser Zeile einen Fehler:
.CommandType = 0
Daher - erst mal auskommentieren durch ein Hochkomma davor.

Dann den Code mal in einer neuen Datei ausprobiert. Funktioniert.

Nun kommt die große Frage. Da steht kein /p:2
Wenn ich das, wie beschrieben hinten anhänge, bekomme ich manchmal das gleiche Ergebnis, manchmal ein anderes ...

Per Code könnte das so aussehen, hier wird immer ein neues Blatt erzeugt. Ohne neues Blatt kommen die Ergebnisse bei jedem Schleifendurchlauf automatisch eine Spalte weiter.

Code:
Sub Makro1()
'
' Makro1 Makro
'
Dim iCnt%
'
For iCnt = 1 To 5
Sheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://bds-niedersachsen.de/index.php?p=156&sort=1/p:" & iCnt, Destination:=Range _
        ("$A$1"))
'        .CommandType = 0
        .Name = "index.php?p=156&sort=1"
        .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
Next
End Sub
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Homepage Suchen
Top
Thema geschlossen 


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste