ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как из VFOXPRO-8 построить сводную таблицу в EXCEL?
8 сообщений из 8, страница 1 из 1
Как из VFOXPRO-8 построить сводную таблицу в EXCEL?
    #32533389
lemons
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lemons
Гость
Господа профессионалы!
Подскажите, пожалуйста, как из Фокса передать данные в сводную Excel таблицу?

Записываю макрос (таблицу строю мастером), но не могу разобраться с отличиями в Фоксе.

.ActiveWorkbook.PivotCaches.Add(1, "balance!R1C1:R1552C8").CreatePivotTable("", "v1", -4148)

Здесь Фокс ругается на мастера
.ActiveSheet.PivotTableWizard(1,.ActiveSheet.Cells(3, 1))

Может можно по-другому задать нужные поля для строк, столбцов, данных, без мастера?

WITH ActiveSheet.PivotTables("v1").PivotFields("область")
.Orientation = xlRowField
.Position = 1
EndWith
With ActiveSheet.PivotTables("v1").PivotFields("код")
.Orientation = xlRowField
.Position = 2
EndWith
With ActiveSheet.PivotTables("v1").PivotFields("институт")
.Orientation = xlRowField
.Position = 3
EndWith
With ActiveSheet.PivotTables("v1").PivotFields("kekv")
.Orientation = xlColumnField
.Position = 1
EndWith

А здесь во что надо преобразовать?

ActiveSheet.PivotTables("v1").PivotFields("код").Subtotals = Array(.F., .F., .F., .F., .F., .F., .F., .F., .F., .F., .F., .F.)

Может есть ссылки на преобразованный в Фокс код???
...
Рейтинг: 0 / 0
25.05.2004, 19:54
| Ответить | Цитировать | Написать  
Как из VFOXPRO-8 построить сводную таблицу в EXCEL?
    #32539588
lemons
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lemons
Гость
Ну неужели никто не знает, или я НЕПРВИЛЬНО ФОРМУЛИРУЮ ВОПРОС???
...
Рейтинг: 0 / 0
28.05.2004, 20:03
| Ответить | Цитировать | Написать  
Как из VFOXPRO-8 построить сводную таблицу в EXCEL?
    #32539836
Guest_AB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest_AB
Гость
Что именно не получается?

Я так понимаю что гдето в начале было написано что то типа

oApp = CreateObject("Excel.Application")
потом откр?тие или создание листа и потом...
ну и обращение кругом идет через

With oApp.ActiveWorkbook.Sheets.Add && новый лист для сводной таблицы
Str_SheetName=.name
EndWith


oApp.Sheets(Str_SheetName).PivotTableWizard(1,oApp.Sheets(Str_SheetName).Cells(3, 1))
а не просто .ActiveSheet.PivotTableWizard(1,.ActiveSheet.Cells(3, 1))


Растыкать поля куда надо

WITH oApp.Sheets(Str_SheetName).PivotTables("v1").PivotFields("область")

.Orientation = 1 &&xlRowField
.Position = 1

EndWith

Константы xlRowField фох не знает нужно писать прость число


>Здесь Фокс ругается на мастера
>.ActiveSheet.PivotTableWizard(1,.ActiveSheet.Cells(3, 1))

А зачем это тебе надо ?
...
Рейтинг: 0 / 0
29.05.2004, 16:03
| Ответить | Цитировать | Написать  
Как из VFOXPRO-8 построить сводную таблицу в EXCEL?
    #32542915
lemons
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lemons
Гость
Спасибо, что хоть кто-то отозвался!!!!
Я так и делаю
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
LOCAL m.loExcel
        m.loExcel=CREATEOBJECT('Excel.Application')
        WITH  m.loExcel
        
            vPath="\mam\"+vName
            
           .WorkBooks.Open(SYS( 5 ) + vPath)
          .Range("A1:H1552").Select
          .Selection.Activate
      
           
        WITH loExcel.ActiveWorkbook.Sheets.Add
               str_SheetName=.name
        ENDWITH 
          
       
      ** здесь выдается ошибка:
       loExcel.ActiveWorkbook.Sheets(str_SheetName).PivotTableWizard ( 1 ,loExcel.ActiveWorkbook.Sheets(str_SheetName).Cells( 3 ,  1 ))
       *  Для данной команды необходимо не менее  2  строк исходных данных 
      *  Ее применение к выделенному фрагменту из одной строки невозможно
      *  При создании сводной таблицы введите ссылку или выберите диапазон,
      * включающий не менее двух строк данных

Где ошибка?
...
Рейтинг: 0 / 0
01.06.2004, 14:39
| Ответить | Цитировать | Написать  
Как из VFOXPRO-8 построить сводную таблицу в EXCEL?
    #32545013
Guest_AB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest_AB
Гость
Ну не надо никаких Wizard

loExcel.ActiveWorkbook.Sheets(str_SheetName).PivotTableWizard (1,loExcel.ActiveWorkbook.Sheets(str_SheetName).Cells(3, 1))


Я так понимаю что сводная таблица формируется на основанни данных на листе Exеl
Например на листе "Sheet1" книги кот сохранена по адресу c:\1_.xls

A B C
1 name value
2 n1 1
3 n2 3


Тода пишем

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
       
m.loExcel=CREATEOBJECT('Excel.Application')
        WITH  m.loExcel
            vPath="c:\1_.xls"
           .WorkBooks.Open(vPath)
           .visible= .T.
			str_SheetName= .ActiveWorkbook.Sheets.Add.name

		    .ActiveWorkbook.PivotCaches.Add( 1 ,"Sheet1!R1C1:R4C2").CreatePivotTable(str_SheetName+"!R2C2","V1")
		    .ActiveSheet.PivotTables("V1").PivotFields("Name").Orientation =  1 
    		.ActiveSheet.PivotTables("V1").PivotFields("Value").Orientation =  4 
        ENDWITH
...
Рейтинг: 0 / 0
02.06.2004, 15:53
| Ответить | Цитировать | Написать  
Как из VFOXPRO-8 построить сводную таблицу в EXCEL?
    #32545033
Guest_AB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest_AB
Гость
Код: plaintext
1.
2.
3.
4.
A:          B  :          C 
-+--------------------------
1:       name  :       value
2:          n1 :           1
3:          n2 :           3
...
Рейтинг: 0 / 0
02.06.2004, 16:01
| Ответить | Цитировать | Написать  
Как из VFOXPRO-8 построить сводную таблицу в EXCEL?
    #32545059
Guest_AB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest_AB
Гость
Код: plaintext
1.
2.
3.
4.
  :          A  :          B 
-+--------------------------
1:       name  :       value
2:          n1 :           1
3:          n2 :           3

может хоть с 3-го раза получится как надо ...
...
Рейтинг: 0 / 0
02.06.2004, 16:08
| Ответить | Цитировать | Написать  
Как из VFOXPRO-8 построить сводную таблицу в EXCEL?
    #32546090
lemons
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lemons
Гость
2 Guest_AB
Большое спасибо за подробное объяснение, а также за снисхождение к новичку. Все получилось.
...
Рейтинг: 0 / 0
03.06.2004, 11:07
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как из VFOXPRO-8 построить сводную таблицу в EXCEL?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]