Auswertung über etracker SOAP-Schniistelle verfeinern
Verfasst: 24.01.2008, 16:49
etracker SOAP
Hi,
Ich habe eine Excel-Datei so programmiert, dass über die SOAP-Schnittstelle die Visits, Pis, Leads & Sales automatisch die Excel importiert werden.
Jetzt würde ich gerne die Leads&Sales-Abfrage verfeinern. Ziel ist es, die Sales auf die Regionen runterzubrechen, also z.B. Sales nach Städten.
Der jetzige VB-Code sieht wie folgt aus:
Sub FillStatisticCampaignLeadSale()
Dim Service As New clsws_wsAPIService
Dim Datum As Long
Dim I, j As Long
Dim arrValues, arrData As Variant
Dim Value, Dataset As Variant
Dim DT_END As String
DT_START = Cells(2, 1)
DT_END = Format(Date, "YYYY-MM-DD")
'get some data for StatisticCampaignLeadSale
Datum = Service.wsm_setDate(ticket, STAT_ID3, DT_START, DT_END)
arrData = Service.wsm_getDataArray(ticket, STAT_ID3)
'show data
I = 1
For Each Dataset In arrData
j = 0
For Each Value In Dataset
Cells(ROW_OFFSET + I, COL_OFFSET + j) = Value
j = j + 1
Next
I = I + 1
Next
Exit Sub
WS_Error: MsgBox ("Web Service: " & Err.description)
End Sub
In etracker selbst kann man im ereich der Leads&Sales nach Regionen filtern. Ich will jedoch in der Excel nicht nach Städten filtern, sondern die Städte zusätzlich in die Auswertung mit aufnehmen. Sieht da jemand eine Möglichkeit??
Hi,
Ich habe eine Excel-Datei so programmiert, dass über die SOAP-Schnittstelle die Visits, Pis, Leads & Sales automatisch die Excel importiert werden.
Jetzt würde ich gerne die Leads&Sales-Abfrage verfeinern. Ziel ist es, die Sales auf die Regionen runterzubrechen, also z.B. Sales nach Städten.
Der jetzige VB-Code sieht wie folgt aus:
Sub FillStatisticCampaignLeadSale()
Dim Service As New clsws_wsAPIService
Dim Datum As Long
Dim I, j As Long
Dim arrValues, arrData As Variant
Dim Value, Dataset As Variant
Dim DT_END As String
DT_START = Cells(2, 1)
DT_END = Format(Date, "YYYY-MM-DD")
'get some data for StatisticCampaignLeadSale
Datum = Service.wsm_setDate(ticket, STAT_ID3, DT_START, DT_END)
arrData = Service.wsm_getDataArray(ticket, STAT_ID3)
'show data
I = 1
For Each Dataset In arrData
j = 0
For Each Value In Dataset
Cells(ROW_OFFSET + I, COL_OFFSET + j) = Value
j = j + 1
Next
I = I + 1
Next
Exit Sub
WS_Error: MsgBox ("Web Service: " & Err.description)
End Sub
In etracker selbst kann man im ereich der Leads&Sales nach Regionen filtern. Ich will jedoch in der Excel nicht nach Städten filtern, sondern die Städte zusätzlich in die Auswertung mit aufnehmen. Sieht da jemand eine Möglichkeit??