I posted a query some days ago. Perhaps there aren’t many QLXL users out there. As a non-developer I use the end-user versions – i.e. compiled packages.
I’ve been trying to bridge the gap to avoid rendering the data providers data onto an xl sheet, so I can create an object in the object handler, by doing so in vba. Then persisting it in the normal way.
In my research of the QL help, the coercion features support a string passed (or so it seems). Below is my code, but I’ve been unable to create a time series witht eh below code of anything greater than 41 date and value elements. Any ideas?
I’ve tried passing various alternatives which are not mentioned in the coercion info (more of a trial and error). These are commented out for convenience only.
My questions are as follows:
1.
Are there any ways to instantiate objects without using application.run(…)?
2.
Is there a way to reference the underlying classes (i.e. perhaps referencing a core dll)?
3.
Anything else you can suggest (perhaps without it being … become a developer
J)
I’m referring to the help at
http://quantlib.org/quantlibxl/faq.html under section 4.2 How do I call QuantLibXL functions from Excel VBA &
http://quantlib.org/quantlibxl/manual.html under coercion (although the pages have vanished as of today)?
Code Snippet:
Public Function CreateTimeSeries_ql(sID As String, ddates() As Long, dvalue() As Double) As String
Dim s As Variant
Dim i As Long
Dim rD As Range
Dim rV As Range
'Set rD.Value = dDates
'Set rV.Value = dValue
'rD.Value = dDates
'rV.Value = dValue
Dim sdates As String
Dim sValues As String
sdates = Array2String(ddates)
sValues = Array2String(dvalue)
Call debugPrint(sID, ddates, dvalue, sdates, sValues)
Set s = Application.Run("qlTimeSeries", sID, sdates, sValues)
's = Application.Run("qlTimeSeries", sID, "41006;41008", "41;2000", False)
's = Application.Run("qlTimeSeries", sID, Join(dDates, ";"), Join(dValue, ";"), False)
If UBound(ddates) <> UBound(dvalue) Then
'then vector length is diff
Exit Function
Else
'put in first member
's = Application.Run("qlTimeSeries", sID, dDates(0), dValue(0), False)
'For i = 1 To UBound(dValue)
'add balance to ts (using loop)
's = Application.Run("qlTimeSeries", "", Array(41006, 41008), Array(365#, 370), False)
'
'Next i
End If
CreateTimeSeries_ql = s
End Function
Cheers