–азработка приложений



         

–азработка приложений с помощью Excel 97 и VBA - часть 4


Do While Not EOF(FileNum%)

Input #FileNum, txt$

txt$ = LCase(txt$)

Select Case ParseString(txt$, У.Ф, 2)

Case УfrmФ: FileType$ = У‘ормаФ

Case УbasФ: FileType$ = УћодульФ

Case УvbxФ: FileType$ = УЁлемент управлени€Ф

Case Else: FileType$ = УФ

End Select

Сдобавить описание компонента в список Files

Call FilesAdd(Files, Project$, FileType$, txt$, txt$)

Loop

End Sub

Private Sub LoadVBP(FileNum%, Project$, Files)

Dim txt$, itm$, FileN$, FileType$

С выборка описаний компонентов из VBP-файла (VB4 и выше)

С и формирование коллекции Files

Do While Not EOF(FileNum%)

Input #FileNum, txt$

itm$ = ParseString(txt$, У=Ф, 1)

txt$ = LCase(ParseString(txt$, У=Ф, 2))

С определение имени FileN$ и типа файла FileType$

Select Case itm$

Case УObjectФ: FileType$ = УЁлемент управлени€Ф

FileN$ = ParseString(txt$, У;Ф, 2)

Case УReferenceФ: FileType$ = У—сылкаФ

FileN$ = ParseString(txt$, У#Ф, 4)

Case УModuleФ: FileType$ = У‘ормаФ

FileN$ = ParseString(txt$, У;Ф, 2)

Case УFormФ: FileType$ = УћодульФ: FileN$ = txt$

Case Else: FileType$ = УФ

End Select

Сдобавить описание компонента в список Files

Call FilesAdd(Files, Project$, FileType$, FileN$, txt$)

Loop

End Sub

Sub CreatePivotTable()

С ‘ормирование сводной таблицы

С

С Ёта процедура создана с помощью режима записи

С макрокоманды в ходе работы с ћастером создани€

С сводных таблиц. ¬ полученном при этом программном коде

С мы добавили такие две строки:

Selection.Offset(-1, 0).Select

Selection.CurrentRegion.Select

С и изменили аргумент SourceData в этом операторе:

ActiveSheet.PivotTableWizard SourceType:=xlDatabase, _

SourceData:=Selection, TableDestination:=ФФ, _

TableName:=ФPivotTable1"

С —ледующие операторы остались без изменений:

ActiveSheet.PivotTables(УPivotTable1Ф).AddFields _

RowFields:=Array(У“ипФ, У‘айлФ), ColumnFields:=ФѕроектФ

ActiveSheet.PivotTables(УPivotTable1Ф). _

PivotFields(УфайлФ).Orientation = xlDataField

End Sub

Private Sub FilesAdd(Files, Project$, FileType$, FileN$, txt$)




—одержание  Ќазад  ¬перед