Класс Constants набор констант Содержатся названия листов пути файлам

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
'Класс Constants - набор констант. Содержатся названия листов, пути к файлам, названия файлов
Option Explicit
Public Function wbThisName() As String
wbThisName = "Программа.xlsm"
End Function
Public Function wbDataPath() As String
wbDataPath = "E:\КУРСОВАЯ РАБОТА\project\Release v.3\"
End Function
Public Function wbTemplateRelativePath() As String
wbTemplateRelativePath = "Шаблоны\"
End Function
Public Function wbPrintRelativePath() As String
wbPrintRelativePath = "На печать\"
End Function
Public Function wbTemplateLegals1() As String
wbTemplateLegals1 = "Шаблон 1.doc"
End Function
Public Function wbTemplateLegals2() As String
wbTemplateLegals2 = "Шаблон 2.doc"
End Function
Public Function wbTemplateLegals3() As String
wbTemplateLegals3 = "Шаблон 3.doc"
End Function
Public Function wbTemplateLegals4() As String
wbTemplateLegals4 = "Шаблон 4.doc"
End Function
Public Function wbTemplateLegals5() As String
wbTemplateLegals5 = "Шаблон 5.doc"
End Function
Public Function wbTemplateLegals6() As String
wbTemplateLegals6 = "Шаблон 6.doc"
End Function
Public Function wbTemplateLegals7() As String
wbTemplateLegals7 = "Шаблон 7.doc"
End Function
Public Function wsLegalsName() As String
wsLegalsName = "Юридические лица"
End Function
Public Function wsLegalActivitiesName() As String
wsLegalActivitiesName = "Виды деятельности юр. лиц"
End Function
Public Function wsCompanyActivities() As String
wsCompanyActivities = "Виды деятельности компании"
End Function
Public Function wsActivitiesName() As String
wsActivitiesName = "Виды деятельности"
End Function
Public Function wsListOfCompaniesForActivity() As String
wsListOfCompaniesForActivity = "Компании деятельности"
End Function
Public Function accountingCompaniesName() As String
accountingCompaniesName = "Учет налогоплатильщиков"
End Function
Public Function taxTypesName() As String
taxTypesName = "Виды налогов"
End Function
Public Function companyTaxes() As String
companyTaxes = "Налоги компании"
End Function
Public Function taxesForTaxType() As String
taxesForTaxType = "Отчет по типу налога"
End Function
Public Function listOfNotPaidCompanies() As String
listOfNotPaidCompanies = "Просроченные налоги"
End Function
Public Function checkList() As String
checkList = "Проверки организаций"
End Function
Public Function failedChecks() As String
failedChecks = "Завалившие проверку"
End Function
Public Function InfinityNum() As Long
InfinityNum = 1000000000
End Function