Windows OS: XP, Vista, 7 Esperti VBA di EXCEL a raccolta

[Petizionatore6710]

Con Visual Basic, devo ammettere, non sono una cima ma per quel poco che mi é fino ad ora servito, scopiazzando di qua e di là me la sono sempre cavata.

Oggi purtroppo sono in difficoltà ed ho necessità di un aiutino per portare a buon fine questa macro per inserire un'ordine automatico con la P.E.I. di IWBank ma che purtroppo non riesco a lanciare perché contiene degli errori di sintassi che da solo non riesco a correggere.

Sub SPARTACO()
Public Function InsertOrder(Symbol As String, Sign As String, Quantity As Integer, Price As Double, TriggerPrice As Double, DateValidity As Date, StopLoss As Double, TakeProfit As Double) As String
Dim rsURL As String
Dim objIE As Object
Set objIE = CreateObject
rsURL = "http://localhost:12366/?methodName=insertOrderAdvanced&arg=" + Symbol
rsURL = rsURL+&arg=Sheet5.Range("E39").Sign
rsURL = rsURL+&arg=Sheet5.Range("E40").CStr
rsURL = rsURL+&arg=Sheet5.Range("E41").CStr
rsURL = rsURL+&arg=Sheet5.Range("E42").CStr
rsURL = rsURL+&arg=Sheet5.Range("E43").Format
rsURL = rsURL+&arg=Sheet5.Range("E44").CStr
rsURL = rsURL+&arg=Sheet5.Range("E45").CStr + "&arg=EXTIN"
objIE.Navigate rsURL
Do Until Not objIE.Busy
DoEvents
Loop
If Not (objE.document.URL Like "res") Then
InsertOrder = objIE.document.DocumentElement.innertext
Else
End If
objIE.Quit
Set objIE = Nothing
End Function
End Sub


Grazie in anticipo per qualsiasi contributo.
Cordialità.

 

[Nibble]

Così è difficile a prima vista.
Ti mando in PM un link (se non lo conosci) dove per loro è pane quotidiano; però, devi loggarti.
Se non vuoi registrarti potri postarlo io per te e inviarti la loro risposta.
Fammi sapere

 

[Petizionatore6710]

Così è difficile a prima vista.
Ti mando in PM un link (se non lo conosci) dove per loro è pane quotidiano; però, devi loggarti.
Se non vuoi registrarti potri postarlo io per te e inviarti la loro risposta.
Fammi sapere

Grazie Nibble,
mi sono loggato.

E' un bel sito e sono subito partito alla ricerca di un partner per sviluppare il mio progetto.

Cordialità.

 

[Nibble]

e di che!
sono utenti preparati generosi e comprensivi, come gli utenti di InvestireOggi!
sono certo che in breve risolverai.
Good luck

 

[Petizionatore6710]

Desidero condividere con Voi tutti un piccolo successo.

Sono riuscito a far girare la macro che lancia la stringa con l'ordine in automatico:

Sub InsertOrder()
Dim rsURL As String
Dim objIE As Object
Dim Symbol As String, Sign As String, Quantity As String, Price As String, TriggerPrice As String, DateValidity As String, StopLoss As String, TakeProfit As String
Set objIE = CreateObject("InternetExplorer.Application")
Symbol = Sheet5.Range("E38").Value
Sign = Sheet5.Range("E39").Value
Quantity = Sheet5.Range("E40").Value
Price = Sheet5.Range("E41").Value
TriggerPrice = Sheet5.Range("E42").Value
DateValidity = Sheet5.Range("E43").Value
StopLoss = Sheet5.Range("E44").Value
TakeProfit = Sheet5.Range("E45").Value
rsURL = "http://localhost:12366/?methodName=insertOrderAdvanced&arg=" + Symbol
rsURL = rsURL + "&arg=" + Sign
rsURL = rsURL + "&arg=" + Quantity
rsURL = rsURL + "&arg=" + Price
rsURL = rsURL + "&arg=" + TriggerPrice
rsURL = rsURL + "&arg=" + DateValidity
rsURL = rsURL + "&arg=" + StopLoss
rsURL = rsURL + "&arg=" + TakeProfit + "&arg=EXTIN"
Sheet5.Range("E62").Value = rsURL
objIE.Navigate rsURL
Do Until Not objIE.Busy
DoEvents
Loop
objIE.Quit
Set objIE = Nothing
End Sub

 

[Goofy]