Класс 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
'Класс Constants - набор констант. Содержатся названия листов, пути к файлам, названия файлов
Option Explicit
Public Function wbThisName() As String
wbThisName = "Программа.xlsm"
End Function
Public Function wbDataName() As String
wbDataName = "Данные.xlsx"
End Function
Public Function wbDataPath() As String
wbDataPath = "E:\КУРСОВАЯ РАБОТА\project\"
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