MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Basic für Windows (alle Versionen bis 6.0)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 10.08.2019, 12:32   #1
Bunyan
Neuer Benutzer
Neuer Benutzer
Standard Sonstiges - Webpage Inhalte in Excel einfügen.

Hallo zusammen,

ich versuche gerade ein Modul zu schreiben/ändern, aber irgendwie funktioniert es nicht.

- Durch ein Macro lass ich eine Internetseite im Hintergrund öffnen
- Dann möchte ich auf der Seite Value einfügen von Worksheets("Wx Setup").Range("B40")
-Danach soll er das Ergebniss auf einen Worksheet einfügen.

Hier das Modul:
Sub Wx12()

'a = "http://www.Flugwetter.de/metartaf/bulletin.htm?tp=sa&flag=%20EDDK%20LFSB%20LSGG%20LSZH%20LFPG%20LFLL%20LFMN%20LFBO%20LFRN%20LFBD%20LE MD%20LEBB%20LEBL%20LEVC%20LPPR%20LPPT%20EGSS%20EGNX%20BIKF%20EGPH%20EIDW%20EINN"

stations = Worksheets("Wx Setup").Range("B40")

With Worksheets("Wx Check").QueryTables.Add(Connection:= _

"URL;http://www.Flugwetter.de/metartaf/bulletin.htm?tp=" & met & "&flag=" & stations & "&reqversion=2&B1=Meldung%28en%29+abrufen" _
, Destination:=Worksheets("Wx Check").Range("t3"))
'.Name = _
'"bulletin.htm?tp=" & met & "&flag=" & stations
.FieldNames = True
.RowNumbers = True
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "5"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False

End With

End Sub

Habe das Modul von meinen alten Chef kopiert, aber irgendwie will es nicht funktionieren.
Kann es sein das es an den Windows oder Excel version liegt?

Ich bin noch in der Lernphase mit VBA. Ich würde mich freuen wenn jemand mir Hinweis gibt, wie ich es lösen kann?
Danke schön und Viele Grüße
Bünyan

OPS!!! Habe es spät gelesen das Fragen in OFFICE Forum gestellt werden sollen. Sorry! Kann es jemand bitte dorthin schieben :-)

Geändert von Bunyan (10.08.2019 um 12:46 Uhr).
Bunyan ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.08.2019, 19:53   #2
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Zitat: von Bunyan Beitrag anzeigen

Habe es spät gelesen das Fragen in OFFICE Forum gestellt werden sollen. Sorry! Kann es jemand bitte dorthin schieben :-)

Richtig, stelle Deine Fragen im Excelteil des Forums. Auf das Verschieben durch einen Admin darfst Du leider nicht hoffen.

__________________


Hang loose, haklesoft
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:32 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.