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$)