'Класс 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