![]() ![]() Such as ActiveWorkbook.Sheets("ELMS Data").Select Where is the source data?Sheets("ELMS Data")? Are you sure Sheet1 is the source sheet? Please refer to the source worksheet exactly. You test the code using a new created workbook in office 2016? Besides, could you test the macro using a PC which install Excel 2016 directly rather than updating from a lower version? Set objField = objTable.PivotFields("WTN")Ĭould the code work for you in before version of Office(such as 2010), but failed to work once you update your office to 2016? If so, could ObjField.caption = "Number of Test Requests" Set objField = objTable.PivotFields("REQUESTSTATUS") ObjField.PivotItems("(blank)").Visible = False 'do not display blanks in TESTENGINEER On Error Resume Next 'if no blank field resume next ![]() Set objField = objTable.PivotFields("TESTENGINEER") ![]() When creating the application in 2010 Excel I used the base code from this article "Creating PivotTable Reports and Charts with VBA in Excel 2010" located here:ĪctiveWorkbook.Sheets("ELMS Data").Select The code below in caps is the line that generates the error. In updating to 2016 Excel I now get "r un-time error 2147417848 Automation Error The object invoked has disconnected from its clients"when using PivotTableWizard. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |