Visual Basic :  Clever-Forum.eu - nur zum Testen The fastest message board... ever.
VB - der große Bruder von VBA mit dem man eigenständige Programme erstellen kann.
Der Codeaufbau hat starke Ähnlichkeiten mit dem VBA der Officeprogramme. 
aus VB in Site einlogen und info ausles.
Posted by: Hayro ()
Date: April 21, 2011 03:55PM

Hallo,

ich möchte Informationen aus einer Seite auslesen und diese in exel übertragen.

Habe dafür ein Makro laufen lassen und über Daten -aus dem Web- die Informationen ausgelesen.

Ist so noch nicht ausreichend, aber es funktioniert erst mal.

Nun möchte ich den Login teil auch automatisieren, und das Makro einbauen, so das ich nur noch es starten brauch.

Bisher sieht das ganze so aus...

Sub DerbyCycle()
'
' DerbyCycle Makro
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;[www.bike-hbs.de] 3G 9AH 2011", _
Destination:=Range("$A$1"zwinkernder Smilie (ironisch))
.Name = "bestellung.asp?prkt=GROOVE 3G 9AH 2011"
.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 = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False

End With
Range("A9"zwinkernder Smilie (ironisch).Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;[www.bike-hbs.de] PEDELEC 3G 8AH 2011", _
Destination:=Range("$A$9"zwinkernder Smilie (ironisch))
.Name = "bestellung.asp?prkt=AGATTU PEDELEC 3G 8AH 2011"
.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 = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
....
..
und so weiter...

Würde mich sehr freuen wenn jemand mir da helfen kann, hab schon vieles ausprobiert, hat aber irgendwie nicht geklappt traurig ...

Ich bedanke mich im voraus!!!
MFG Hayro

Navigate: Previous MessageNext Message
Options: ReplyQuote


Subject Views Written By Posted
aus VB in Site einlogen und info ausles. 323 Hayro 04/21/2011 03:55PM


Your Name: 
Your Email: 
Subject: 
Spam prevention:
Please, enter the code that you see below in the input field. This is for blocking bots that try to post this form automatically. If the code is hard to read, then just try to guess it right. If you enter the wrong code, a new image is created and you get another chance to enter it right.
CAPTCHA
This forum powered by Phorum.