Hi,
How to remove all unwanted spaces from excel column by using invoke code activity. I am using below code for pivot table and in ws worksheet , Perticlular or all columns i want to trim or remove spaces in all rows. How to update. Let me know if you have different approach
Dim excel As Microsoft.Office.Interop.Excel.Application
Dim wb As Microsoft.Office.Interop.Excel.Workbook
Dim ws As Microsoft.Office.Interop.Excel.Worksheet
Dim p_ws As Microsoft.Office.Interop.Excel.Worksheet
Dim rng As Microsoft.Office.Interop.Excel.Range ‘capturing the range of sheet1 ‘’’
Dim p_rng As Microsoft.Office.Interop.Excel.Range ‘capturing the range of pivottable shhet1’’
‘Dim e_rng As Microsoft.Office.Interop.Excel.Range
Dim x As Integer
Try
excel = New Microsoft.Office.Interop.Excel.ApplicationClass’create the instance of excel work book’
wb = excel.Workbooks.Open(sPath)‘Open the excel the file’
excel.Visible=True
ws=CType(wb.Sheets(“DXC Technology”),Microsoft.Office.Interop.Excel.Worksheet)‘select a sheet and activiates’
ws.Activate
ws.Columns.AutoFit()
x=ws.UsedRange.Rows.Count
rng=ws.Range(“A1”,“G”+x.ToString)‘Selects the given range of sheet 1’
p_ws=CType(wb.Sheets.Add,Microsoft.Office.Interop.Excel.Worksheet)‘create a empty and and name the sheet as pivot table’
p_ws.Name=“Review Summary Report”
p_rng= CType(p_ws.Cells(8,1),Microsoft.Office.Interop.Excel.Range) ‘Specify the first cell for the pivot table’
'Creation pivot Cache and pivot table ’
Dim oPivotCache As Microsoft.Office.Interop.Excel.PivotCache=Nothing
Dim oPivotTables As Microsoft.Office.Interop.Excel.PivotTables=Nothing
Dim oPivotTable As Microsoft.Office.Interop.Excel.PivotTable=Nothing
oPivotCache=CType(wb.PivotCaches().Add(Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase,rng),Microsoft.Office.Interop.Excel.PivotCache)
oPivotTables=DirectCast(p_ws.PivotTables(Type.Missing),Microsoft.Office.Interop.Excel.PivotTables)
oPivotTable=oPivotTables.Add(oPivotCache,p_rng,“Review_Summary_Report”,Type.Missing,Type.Missing)‘first paramenter is cache,range the table should start,table name’
oPivotTable.PivotCache.Refresh
oPivotTable.EnableFieldList=False
‘Creation of pivot Fields’
Dim oPivotField As Microsoft.Office.Interop.Excel.PivotField=Nothing
oPivotField=CType(oPivotTable.PivotFields(“ReviewRating”),Microsoft.Office.Interop.Excel.PivotField)‘Specfiy the row name’
oPivotField.Orientation=Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlRowField
oPivotField=CType(oPivotTable.PivotFields(“ReviewedPortal”),Microsoft.Office.Interop.Excel.PivotField)‘Specfiy the coulmn name’
oPivotField.Orientation=Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlColumnField
oPivotField=CType(oPivotTable.PivotFields(“PostedDate”),Microsoft.Office.Interop.Excel.PivotField)‘Specfiy the coulmn name’
oPivotField.Orientation=Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlPageField
oPivotField=CType(oPivotTable.PivotFields(“Client Comment”),Microsoft.Office.Interop.Excel.PivotField)‘Specfiy the coulmn name’
oPivotField.Orientation=Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlPageField
oPivotField=CType(oPivotTable.PivotFields(“ReviewRating”),Microsoft.Office.Interop.Excel.PivotField)‘Specfiy the coulmn name’
oPivotField.Orientation=Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlDataField
oPivotField.Function=Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlCount
oPivotField.Name=“Review Rating Vs Review Portal”
p_ws.Cells(1, 3)= "'PROJECT NAME : " & UCase(strProjectName)
p_ws.Range(“C1:E1”).Merge
p_ws.Cells(2, 3)= “'REVIEW RATING Vs REVIEW PORTAL”
p_ws.Range(“C2:E2”).Merge
p_ws.Columns.AutoFit()
excel.DisplayAlerts = False
excel.ActiveWorkbook.Save
excel.ActiveWorkbook.Close
Catch es As Exception
System.Windows.MessageBox.Show(es.Message)
End Try
1 post - 1 participant
Read full topic
,
