Internetseite per Formel in Excel importieren

[Käpt'n Blaubär]

Hallo,

Ich habe ja noch gar kein Makro. Darum geht es mir hier doch die ganze Zeit.
Sorry falls ich mich zu kompliziert ausdrücke...

tja, sorry, ... ich habe mich vielleicht auch zu kompliziert ausgedrückt
Solange Du die Stringlänge nicht in Sack und Tüten kriegst, brauchst Du auch kein Makro  :16:

[DeLaGhetto]

Ok, und wenn ich jetzt sage, dass ich die länge des Internetlinks in Griff bekomme?
Das alle Zeichen zusammen unter den 256 Grenzee liegen?

[DeLaGhetto]

Hallo, das ging dann aber schon beim Betreff los..:

[url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Das hatte ich ja schon weiter oben geklärt, das das ein Fehler von mir war. Sorry

[Helvetier]

DeLaGhetto

Eigentlich möchte ich einfach nur eine Internetseite in Exel importieren, über eine Webabfrage und die Internetseite steht halt in einer Zelle.

Hallo DeLaGhetto
Wenn Du das so schön kurz schreibst, habe ich alter Mann vielleicht begriffen, was Du haben willst.
- Schreibe im sheet "Plan", Zelle C29 diese Adresse:  URL;https://www.swisspass.ch/auth/Login
- gehe in ein neues sheet ohne irgend einen Inhalt
- lasse in diesem sheet den code laufen:

Code:

Sub DatenAusWeb()
   Dim Adresse
   On Error Resume Next
   Adresse = Sheets("Plan").Range("C29")
   With ActiveSheet.QueryTables.Add(Connection:=Adresse, Destination:=Range("$A$1"))
       .CommandType = 0
       .Name = "login_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

Aber Achtung: da mit diesem Code nicht die Daten einer bestehenden Verbindung aufgefrischt werden, wird jedes mal eine neue Verbindung erstellt ohne dass die alte gelöscht wird. Da braucht es sicher noch einen Zusatz der löscht. Ich habe übrigens den Code mit dem Makrorekorder aufgezeichnet und einfach etwas getrimmt. Übrigens kannst Du natürlich die Destination auch parametrieren und dann mit einer Schleife arbeiten.

Und wenn es nicht dies sein sollte, haben wir beide Pech: Du hast keine Lösung und mir fehlt es am Verstand...was mich nicht schmerzt.

[DeLaGhetto]

Genau so wollte ich es haben.

Vielen Dank dir!!!!

Jetzt hab ich nur noch ein kleines Problem:
Das gehört hier wahrscheinlich nicht direkt hin, vielleicht werde ich dafür ein extra Thread aufmachen, aber:
Die zu kopierende URL hat kyrillische Zeichen, deswegen wurde diese nach dem kopieren und einfügen in Excel extrem lang (viele % Zeichen und so).
Kann ich in Excel irgendwie einstellen, dass mir die URL richtig mit kyrillischen Buchstaben angezeigt wird?

Danke nochmal an die vielen Helfer

[Helvetier]

Die zu kopierende URL hat kyrillische Zeichen, deswegen wurde diese nach dem kopieren und einfügen in Excel extrem lang (viele % Zeichen und so).

Das ist doch dem Excel egal! .... oder funktioniert damit etwas nicht? Wenn Du an der Adresse rumschrauben willst, hast dann ganz sicher Probleme. Im sheet muss ja nicht die ganze Adresse sichtbar sein.

Übrigens: einmal mehr der Beweis, dass eine exakte, einfache, sorgfältige Formulierung der Aufgabe 80% der Lösung beinhaltet!

[DeLaGhetto]

DeLaGhetto schrieb: Die zu kopierende URL hat kyrillische Zeichen, deswegen wurde diese nach dem kopieren und einfügen in Excel extrem lang (viele % Zeichen und so).

Das ist doch dem Excel egal! .... oder funktioniert damit etwas nicht? Wenn Du an der Adresse rumschrauben willst, hast dann ganz sicher Probleme. Im sheet muss ja nicht die ganze Adresse sichtbar sein.

Nein, das Makro funktioniert dadurch nicht, deswegen ist es nicht egal. Es werden so viele Zeichen, dass das hier schon angesprochene Zeichenlimit überschritten wird.
Ich habe dafür ein neues Thema eröffnet:

http://www.clever-excel-forum.de/Thread-...g-in-Excel

Danke schon mal für deine Hilfe