Ðàçðàáîòêà ïðèëîæåíèé


         

 ïîëó÷åííîì ïðè ýòîì ïðîãðàììíîì


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


Ñîäåðæàíèå  Íàçàä  Âïåðåä