developing кода Excel Buffer

[барбудас]

Требуется перенести в кода Excel Buffer код VBA под Excel.
В частном случае, следующий:

srcRange = "Отчет!R1C1:R1268C11"
destRange = "Сводная!R5C2"
pivotName = "СводнаяТаблица1"
    ActiveWorkbook.PivotCaches.Add(1, srcRange).CreatePivotTable destRange, pivotName, 1
    With Sheets("Сводная!").PivotTables("СводнаяТаблица1").PivotFields("Должность")
        .Orientation = 1
        .Position = 1
    End With
...
...
    ActiveSheet.PivotTables("СводнаяТаблица1").AddDataField ActiveSheet.PivotTables _
        ("СводнаяТаблица1").PivotFields("Сумма"), "Сумма по полю Сумма", -4157

здесь на основе данных одного листа создается сводная таблица на другом. я начинаю создавать в Excel Buffer

функцию.

CreatePivot(PivotName : Text[250];SheetName : Text[250];SrcSheetName : Text[250];SrcBegRow : 

Integer;SrcBegCol : Integer;SrcEndRow : In ... (и т.п. - параметры)

// лист для сводной таблицы
XlWorkSheet := XlWorkBook.Worksheets.Add;
XlWorkSheet.Name := SheetName;
// дипазон-источник
srcrange:=srcsheetname+'!R'+format(srcBegRow)+'C'+format(srcBegCol)+':R'+format(srcendRow)+'C'+format(srcend

col);
// сводная таблица
XlWorkBook.PivotCaches.Add(1, srcrange).CreatePivotTable(sheetname+'!R5C2',PivotName,1);

// настройка сводной таблицы
XlWorkSheet.PivotTables(PivotName).PivotFields('Должность').Orientation = 1;

и тут мне пришлось остановиться - последняя строчка данного кода не компилится. ругается на отсутсвие

PivotFields.
попробовал создавать Globals с типом Automation и т.д. по аналогии с др. "экселевскими" Globals - никак!!!

что же делать? подскажите, как правильно "переводить" обектно-ориентированный код?
Спасибо.

[Kirvisniemi]

PivotTable := XlWorkSheet.PivotTables(PivotName);
PivotField := PivotTable.PivotFields('Должность');
PivotField.Orientation := 1;

[барбудас]

Цитата:

Сообщение от tyrex

PivotTable := XlWorkSheet.PivotTables(PivotName);
PivotField := PivotTable.PivotFields('Должность');
PivotField.Orientation := 1;

а PivotTable и PivotField как объявить?

[Kirvisniemi]

PivotTable : Automation:'Microsoft Excel 11.0 Object Library'.PivotTable";
PivotField: Automation :'Microsoft Excel 11.0 Object Library'.PivotField";

[барбудас]

видимо, я искал черную кошку в темной комнате. проблема-то в следующем.
мне не создать переменные типа automation!!!!

их нет в списке типов. у соседа такой проблемы нет.
создал с его машины переменные с первым попавшимся subtype, попытался со своей машины установить нужный subtype - увы ((( - not recognized as a GUID и т.п.

почему может возникать такая ситуация?
поступило предложение переставить офис...

[rootadmin]

Возможно будет достаточно переустановить Office Web components?

[Likefire]

Цитата:

Сообщение от барбудас

видимо, я искал черную кошку в темной комнате. проблема-то в следующем.
мне не создать переменные типа automation!!!!

их нет в списке типов. у соседа такой проблемы нет.
создал с его машины переменные с первым попавшимся subtype, попытался со своей машины установить нужный subtype - увы ((( - not recognized as a GUID и т.п.

почему может возникать такая ситуация?
поступило предложение переставить офис...

Такая ситуация может возникать потому, что не все необходимые библиотеки (*.dll) присутствуют в твоём компе, либо они присутствуют, но не зарегестрированы в реестре. Сравни состав библиотек с компа твоего соседа с составом библиотек на твоём компе. Искать надо в папках: 1). C:\Program Files\Navision Attain\Client; 2). C:\Program Files\Common Files\Navision\Communication Component; 3). C:\Program Files\Common Files\Navision\Application Handler; 4). C:\Program Files\Common Files\Navision\Mapi. Если у соседа всё то же самое, что и у тебя, то попробуй сделать им всем regsvr32. Если не поможет,- попробуй найти в реестре ссылку на файл библиотеки, используя для поиска имя сервера Automation, в данном случае это - Microsoft Excel 11.0 Object Library. Если найдёшь ссылку в реестре, то проверь, на какую библиотеку он ссылается (файл). Если по указанному пути действительно лежит файл *.dll, то либо прогсто перерегистрируй его, либо скопируй с компа соседа и всё равно перерегистрируй. Хотя, если тебе выдавалось сообщение, типа : "...not recognized as a GUID...", то в реестре ты ничегошеньки не найдёшь. Поэтому, ищи в реестре соседа ссылку на файл библиотеки (потому что у него она точно есть), копируй с его компа этот файл на твой комп, регистрируй в реестре, перезагружай комп - и только в путь!