i am using vb.net. and i am creating pivot table programatically and i want to add calculation field “perentofcolumn” in that .
when i added this in program. i got an error message (“unable to set the function property of the pivot field class”)

if anybody please send me the solution for the same..

thanks ..

Hi i have developed in similar manner ….

but place stSQL = “EXEC Storedprocedure”

AT the Pivottable add point my debugcursor in vanising …..I am not able to find out the cause….but when place the output of the storedprocedure in to some table and written stSQL =”Select * from tbl” it is executing…………

Please let me know wats happening

Thaks lot…

No se puede convertir el objeto COM del tipo ‘System.__ComObject’ al tipo de interfaz ‘Microsoft.Office.Interop.Excel.Application’. Ocurrió un error de operación debido a que la llamada QueryInterface en el componente COM para la interfaz con IID ‘{000208D5-0000-0000-C000-000000000046}’ generó el siguiente error: Biblioteca no registrada. (Excepción de HRESULT: 0×8002801D (TYPE_E_LIBNOTREGISTERED)).

el siguiente es el codigo de mi objeto:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Const conectabd As String = “data source = (local); initial catalog = Northwind; user id = sa; password = Administrador01?

Const consulta As String = “SELECT * FROM Categories”

‘Dim AppExcel As Excel.Application
Dim AppExcel As Excel.Application
Try
‘Grab a running instance of Excel.
ERROR1 —> AppExcel = Marshal.GetActiveObject(“Excel.Application”)–> en esta linea me marca error y si lo cambio por la siguiente linea Me marca el mismo error ern la linea q tiene la etiqueta ERROR2
‘ AppExcel = New Excel.Application
Catch ex As COMException
‘If no instance exist then create a new one.
AppExcel = New Excel.Application
MessageBox.Show(“ese creo una nueva instancia por que no existia ” & ex.Message)
End Try

ERROR2 —> Dim libro As Excel.Workbook = AppExcel.Workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet)

Dim hoja As Excel.Worksheet = DirectCast(libro.Worksheets(1), Excel.Worksheet)
Dim rango As Excel.Range = DirectCast(hoja, Excel.Worksheet).Range(“B2?)

‘Create the Pivotcache.
Dim ptCache As Excel.PivotCache = libro.PivotCaches.Add(SourceType:=Excel.XlPivotTableSourceType.xlExternal)

‘Setup the Pivotcache.
With ptCache
.Connection = conectabd
.CommandText = consulta
.CommandType = Excel.XlCmdType.xlCmdSql
End With

‘Create the Pivottable.
Dim ptTable As Excel.PivotTable = _
hoja.PivotTables.Add( _
PivotCache:=ptCache, _
TableDestination:=rango, _
TableName:=”Tablapivotegenerada”)

‘Setup the Pivottable.
With ptTable
.ManualUpdate = True
.PivotFields(“ShipCountry”).Orientation = Excel.XlPivotFieldOrientation.xlRowField
.PivotFields(“# Of Shipments”).Orientation = Excel.XlPivotFieldOrientation.xlDataField
.PivotFields(“Total Freight”).Orientation = Excel.XlPivotFieldOrientation.xlDataField
.Format(Excel.XlPivotFormatType.xlReport2)
.ManualUpdate = False
End With

libro.SaveAs(“c:EXCELReportEGENERADO.xls”)

‘Switch to Excel.
With AppExcel
.Visible = True
.UserControl = True
End With

‘Tell the Garbage Collector that these objects are ready to be destroyed.
ptTable = Nothing
ptCache = Nothing
hoja = Nothing
libro = Nothing
AppExcel = Nothing
End Sub

Many thanks

Dim xlApp As Excel.Application

Dim stSql As String = “select areaDescription, regionDescription, districtDescription, outletCode, materialCode, periodMonth, periodYear, SMBXCount, sttlastyearactualvolume from salesvolumefacts”
‘ Data Source works fine just not indicated

Try
‘Grab a running instance of Excel.
xlApp = Marshal.GetActiveObject(“Excel.Application”)
Catch ex As COMException
‘If no instance exist then create a new one.
xlApp = New Excel.Application
End Try

Dim xlWBook As Excel.Workbook = xlApp.Workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet)
Dim xlWSheet As Excel.Worksheet = CType(xlWBook.Worksheets(1), Excel.Worksheet)
Dim xlRange As Excel.Range = CType(xlWSheet, Excel.Worksheet).Range(“A2?)

‘Create the Pivotcache.
Dim ptCache As Excel.PivotCache = xlWBook.PivotCaches.Add( _
SourceType:=Excel.XlPivotTableSourceType.xlExternal)

‘Setup the Pivotcache.
With ptCache
.Connection = stCon
.CommandText = stSQL
.CommandType = Excel.XlCmdType.xlCmdSql
End With

‘Create the Pivottable.
Dim ptTable As Excel.PivotTable = _
xlWSheet.PivotTables.Add( _
PivotCache:=ptCache, _
TableDestination:=xlRange, _
TableName:=”PT_Report”)

‘Setup the Pivottable.
With ptTable
.ManualUpdate = True
.PivotFields(“areaDescription”).Orientation = Excel.XlPivotFieldOrientation.xlRowField
.PivotFields(“regionDescription”).Orientation = Excel.XlPivotFieldOrientation.xlRowField
.PivotFields(“districtDescription”).Orientation = Excel.XlPivotFieldOrientation.xlRowField
.PivotFields(“outletCode”).Orientation = Excel.XlPivotFieldOrientation.xlRowField
.PivotFields(“materialCode”).Orientation = Excel.XlPivotFieldOrientation.xlRowField
.PivotFields(“periodMonth”).Orientation = Excel.XlPivotFieldOrientation.xlRowField
.PivotFields(“periodYear”).Orientation = Excel.XlPivotFieldOrientation.xlRowField
.PivotFields(“SMBXCount”).Orientation = Excel.XlPivotFieldOrientation.xlDataField
.PivotFields(“sttlastyearactualvolume”).Orientation = Excel.XlPivotFieldOrientation.xlDataField
.Format(Excel.XlPivotFormatType.xlReport2)
End With

Thanks, MJ

I want to get the OLAP cube data from Ms Analysis Service 9.0.
I use this as my connection string
Const stCon As String = _
“Provider=MSOLAP.3;Datasource=localhost; Initial Catalog=Analysis Services Project5;”

What should I do?

(Note the “OLEDB;” before your connectionstring)

‘Const stCon As String = “Provider=sqloledb;Data Source=XXX;Initial Catalog=Dw_YYY;Integrated Security=SSPI; ” ‘OLEDB Trusted Connection
‘Const stCon As String = “Driver={SQL Server};Server=XXX;Database=Dw_YYY;Uid=ro;Pwd=; ” ‘ODBC DB Login
‘Const stCon As String = “Driver={SQL Server};Server=XXX;Database=Dw_YYY;Trusted_Connection=yes; ” ‘ODBC Trusted connection

Error =
” at System.RuntimeType.ForwardCallToInvokeMember(String memberName, BindingFlags flags, Object target, Int32[] aWrapperTypes, MessageData& msgData)
at Microsoft.Office.Interop.Excel.PivotCache.get_ADOConnection()”

Connection : {“Not an ODBC data source or Web query”}

i changed the line to:
Dim ptCache As Excel.PivotCache = CType(xlWBook, Excel.Workbook).PivotCaches.Add(SourceType:=Excel.XlPivotTableSourceType.xlExternal)

but still received the same error.

the structure of the strConn is:

Const stCon As String = _
“Server=xyzzz;” & _
“DataBase=Db_MyDb;” & _
“Uid=ro;”

The server “xyzzz” can be pinged ok.

i will try to redo the strConn and see if this helps.