коллеги, снова подниму тему, ошибка уже немного другая появилась в том же файле но они связаны
сейчас выдало ошибку Невозможно получить свойство PivotFields класса PivotTable(строка 47 в коде)
я понимаю что макрос не может найти колонку Ship To чтобы сделать сводную таблицу, потому что формула вдруг начала убирать пробелы не в столбце I а во всей книге. Подскажите пож, почему так происходит что макрос работал только по столбцу I, после чего вдруг стал убирать пробелы во всей книге?
вот код
Код |
---|
Columns("I:I").Select
Columns("I:I").Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Select
Range("C1").Activate
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R1048576C31", Version:=6).CreatePivotTable TableDestination:= _
"Ëèñò1!R3C1", TableName:="Ñâîäíàÿ òàáëèöà4", DefaultVersion:=6
Sheets("Ëèñò1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Ñâîäíàÿ òàáëèöà4")
.ColumnGrand = True
.HasAutoFormat = True
.DisplayErrorString = False
.DisplayNullString = True
.EnableDrilldown = True
.ErrorString = ""
.MergeLabels = False
.NullString = ""
.PageFieldOrder = 2
.PageFieldWrapCount = 0
.PreserveFormatting = True
.RowGrand = True
.SaveData = True
.PrintTitles = False
.RepeatItemsOnEachPrintedPage = True
.TotalsAnnotation = False
.CompactRowIndent = 1
.InGridDropZones = False
.DisplayFieldCaptions = True
.DisplayMemberPropertyTooltips = False
.DisplayContextTooltips = True
.ShowDrillIndicators = True
.PrintDrillIndicators = False
.AllowMultipleFilters = False
.SortUsingCustomLists = True
.FieldListSortAscending = False
.ShowValuesRow = False
.CalculatedMembersInFilters = False
.RowAxisLayout xlCompactRow
End With
With ActiveSheet.PivotTables("Сводная таблица4").PivotCache
.RefreshOnFileOpen = False
.MissingItemsLimit = xlMissingItemsDefault
End With
ActiveSheet.PivotTables("Сводная таблица4").RepeatAllLabels xlRepeatLabels
With ActiveSheet.PivotTables("Сводная таблица4").PivotFields("Ship To")
|