Kompilierer meckert an "Format" Funktion
02.03.2016 13:26:11
Martin
Hallo zusammen,
ich brächte wieder einmal Eure Hilfe:
ich habe ein Makro (wie folgt ein Ausschnitt zu sehen), jedoch sagt mir der Kompilierer ständig, wenn ich es ausführen lassen will, für die "format" Funktion folgende Meldung:
"Fehler Beim Kompilieren: Project oder Bibliothek nicht gefunden"
Sub Intraday_ziehen()
Dim IE As Object
Dim objHTML As Object
Dim elementONE As Object 'Itemsammlung der table data aus dem HTML Code der Seite
Dim elementTWO As String
Dim i As Variant
Dim text As String
Dim Datum As Date
'****Datum festlegen für die zu bearbeitende Woche (immer Sonntag)****
Datum = #12/28/2015#
Datum = Format(CDate(Datum), "YYYY-MM-DD") 'eine Woche zuvor, da zu Beginn des näcshten _
Schrittes gleich eine WOche addiert wird
'****Preisdaten für eine Viertelstunde für jeweils eine Woche aus der HTML-Code ziehen****
For w = 0 To 51
Datum = Datum + 7
Set IE = CreateObject("InternetExplorer.Application")
With IE
'.Navigate "http://www.epexspot.com/de/marktdaten/intradayauktion/quarter-auction-table/" & _
Datum & "DE"
.Navigate "http://www.epexspot.com/de/marktdaten/intradayauktion/quarter-auction-table/2015-10- _
_
04/DE"
.Visible = False
While .Busy Or .ReadyState <> 4
DoEvents
Wend
Set objHTML = .Document
DoEvents
End With
'*****Elemente festlegen, die Preisdaten enthalten******
hh = Format(1, "00") 'Stundencounter definieren
'Set elementONE = objHTML.getElementsByClassName("inactive-quarter-row hour" & hh )
Set elementONE = objHTML.getElementsByClassName("inactive-quarter-row hour04")
For q = 0 To elementONE.Length - 1
Call StringAnalysis(elementONE.item(q).innerHTML)
'Returns: varBereinigt2 (als Datenarray der Preise einer Viertelstunde für alle _
Wochentage)
Call assignPrices
hh = Format(hh + 1, "00")
Next q
DoEvents
IE.Quit
DoEvents
Set IE = Nothing
Next w
End Sub
Wenn ich sie nacheinander auskommentiere, meckert er immer bei der jeweils nächsten "format" Funktion. Also denke ich dass es nicht am Datumsformat liegt das ich bekommen will.
Hat jemand eine Idee warum ständig diese Fehlermeldung kommt?
Danke und Grüße
Martin
3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread
Betreff
Datum
Anwender
-
-
-
Anzeige
AW: Kompilierer meckert an "Format" Funktion
02.03.2016 13:30:04
Rudi Maintaire
Hallo,
Format() gibt einen String zurück. Du hast Datum aber As Date deklariert.
Gruß
Rudi
Verweise
02.03.2016 13:51:47
RPP63
Hallo auch von mir!
Zusätzlich zu Rudi:
Da wird es Dir wohl einen Verweis zerschossen haben.
Funktioniert es mit VBA.Format()?
Wenn ja, dann schaue mal, ob unter Extras, Verweise etwas "nicht vorhanden" ist.
Gruß Ralf
AW: Verweise
02.03.2016 14:13:33
Martin
Hi Ralf
ja, mit VBA.Format() funktioniert es. Vielen Dank!!
Auch an Rudi!
Grüße
Martin
Anzeige
Beliebteste Forumthreads (12 Monate)
-
Threadtitel
Lesezugriffe
-
33669
-
22972
-
16198
-
15738
-
15516
-
15050
-
13647
-
11953
-
11777
-
11130
-
10254
-
9889
-
9458
-
9301
-
9223
-
9152
-
8787
-
8676
-
8130
-
8092
-
7874
-
7857
-
7843
-
7835
-
7766
-
7274
-
7261
-
6953
-
6936
-
6811
-
6767
-
6509
-
6232
-
6218
-
6000
-
5890
-
5885
-
5862
-
5808
-
5803
-
5758
-
5740
-
5661
-
5634
-
5604
-
5573
-
5555
-
5482
-
5456
-
5393
-
5384
-
5188
-
5181
-
5113
-
5011
-
4961
-
4960
-
4911
-
4908
-
4845
-
4843
-
4787
-
4764
-
4742
-
4712
-
4711
-
4708
-
4699
-
4698
-
4619
-
4559
-
4531
-
4529
-
4518
-
4513
-
4494
-
4460
-
4443
-
4441
-
4400
-
4393
-
4368
-
4344
-
4327
-
4319
-
4313
-
4301
-
4280
-
4272
-
4258
-
4251
-
4235
-
4225
-
4206
-
4205
-
4202
-
4148
-
4065
-
4033
-
4017
Anzeige
Beliebteste Forumthreads (12 Monate)
-
Threadtitel
Lesezugriffe
-
33669
-
22972
-
16198
-
15738
-
15516
-
15050
-
13647
-
11953
-
11777
-
11130
-
10254
-
9889
-
9458
-
9301
-
9223
-
9152
-
8787
-
8676
-
8130
-
8092
-
7874
-
7857
-
7843
-
7835
-
7766
-
7274
-
7261
-
6953
-
6936
-
6811
-
6767
-
6509
-
6232
-
6218
-
6000
-
5890
-
5885
-
5862
-
5808
-
5803
-
5758
-
5740
-
5661
-
5634
-
5604
-
5573
-
5555
-
5482
-
5456
-
5393
-
5384
-
5188
-
5181
-
5113
-
5011
-
4961
-
4960
-
4911
-
4908
-
4845
-
4843
-
4787
-
4764
-
4742
-
4712
-
4711
-
4708
-
4699
-
4698
-
4619
-
4559
-
4531
-
4529
-
4518
-
4513
-
4494
-
4460
-
4443
-
4441
-
4400
-
4393
-
4368
-
4344
-
4327
-
4319
-
4313
-
4301
-
4280
-
4272
-
4258
-
4251
-
4235
-
4225
-
4206
-
4205
-
4202
-
4148
-
4065
-
4033
-
4017
Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge