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



         

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


Ћистинг 3. “екст модул€ кода PivotVBP.

Attribute VB_Name = УPivotVBPФ

Option Explicit

Sub CreateVBProjCrossRef()

Сустановка заголовков таблицы

SetUpHeadings

С LoadProjectFile формирует исходную

С таблицу компонентов и возвращает результат

If LoadProjectFile Then Сесть хот€ бы один проект

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

CreatePivotTable

End If

End Sub

Sub SetUpHeadings()

Selection = УѕроектФ

Selection.Offset(0, 1) = У“ипФ

Selection.Offset(0, 2) = У‘айлФ

Selection.Offset(1, 0).Select

End Sub

Function LoadProjectFile() As Boolean

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

С компонентов проектов.

С «начение функции при выходе:

С True - был выбран хот€ бы один файл проекта

С False - нет ни одного файла

Dim File, FileDet, FileNum%, txt$, Project$

Dim ProjectPath$, Path$

Dim Files As New Collection

С

LoadProjectFile = False

Do

Set Files = New Collection

С выводит диалоговое окно дл€ выбора файла проекта

File = Application.GetOpenFilename( _

FileFilter:=ФVB Project Files(*.mak;*.vbp), _

*.mak;*.vbpФ, Title:=Ф«агрузить файл VB-проектаФ)

С если пользователь нажал Cancel - выход из процедуры

If File = False Then Exit Do

С

ProjectPath$ = File

Call FileNameTest(ProjectPath$, Path$, Project$)

FileNum% = FreeFile

Open File For Input As FileNum%

Input #FileNum%, txt$

С определ€ет, какой тип файла был открыт, а затем

С вызывает соответствующую процедуру

If InStr(txt$, У=Ф) Then С VBP-файл

Call LoadVBP(FileNum%, Project$, Files)

Else

Seek FileNum%, 1 С MAK-файл

Call LoadMAK(FileNum%, Project$, Files)

End If

С помещает информацию из файла проекта в

С коллекцию Files, а затем из коллекции Files

С в электронную таблицу

For Each File In Files

For Each FileDet In File

Selection = FileDet

Selection.Offset(0, 1).Select

Next

Selection.Offset(1, -3).Select

Next

LoadProjectFile = True

Loop

End Function

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

Dim txt$, FileType$

С выборка описаний компонентов из MAK-файла

С (до VB3 включительно) и формирование коллекции Files




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