Расположение PivotField
определяется его Orientation
.
Вам нужно два простых цикла:
Пример:
Private Sub PivotRowsToValues()
Dim pt As PivotTable
Dim pf As PivotField
For Each pt In ActiveSheet.PivotTables
' use each row field also as value field:
For Each pf In pt.RowFields
With pf
.Orientation = xlDataField ' xlColumnField
.Function = xlSum ' xlCount, ...
.NumberFormat = "General" ' "0.00", ...
End With
Next pf
' remove each row field
For Each pf In pt.RowFields
pf.Orientation = xlHidden
Next pf
Next pt
End Sub
Я могу рекомендовать Enterprise Architect из http://www.sparxsystems.com.au/
Erwin from CA is one such tool.
We started playing with the idea of using it at a previous employeer of mine. But found the complexity of the tool and cost offset the need for it.
Sparx Enterprise Architect может это сделать. Он также может перепроектировать существующие базы данных.
Конечно, он делает гораздо больше, чем это.
Да, несколько CASE (компьютерное программное обеспечение инженерные) инструменты, которые будут делать это. Microsoft Visio является одним из таких.
Вам лучше использовать Visio, он напрямую создает таблицы на вашем сервере n также поддерживает обратный инжиниринг ... n поддерживает множество БД системы
argouml может это сделать - открытый исходный код и кроссплатформенность! но это еще не все, хотя они работают над этим.
Вы также можете попробовать онлайн-службу генерации кода MOLA :: UMLtoDB , которая автоматически генерирует сценарий SQL DDL для создания базы данных, соответствующей входной диаграмме классов UML.
Я не знаю, какой тип SQL вы используете, но вы можете попробовать MySQL Workbench. Он кроссплатформенный и бесплатный (в смысле "свобода слова", а не в смысле "бесплатное пиво").