Заполнение таблицы «Отчет о реализации мероприятий программы энергосбережения и повышения энергетической эффективности» в MSExcel

 

If " Итого по мероприятиям экономии электрической энергии" = AppExcel.Application.Range(" a20" ).ValueThen

AppExcel.Application.Range(" d83" ).Select

n = -64

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a21" ).Value Then

AppExcel.Application.Range(" d84" ).Select

n = -65

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a22" ).Value Then

AppExcel.Application.Range(" d85" ).Select

n = -66

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a23" ).Value Then

AppExcel.Application.Range(" d86" ).Select

n = -67

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a24" ).Value Then

AppExcel.Application.Range(" d87" ).Select

n = -68

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a25" ).Value Then

AppExcel.Application.Range(" d88" ).Select

n = -69

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a26" ).Value Then

AppExcel.Application.Range(" d89" ).Select

n = -70

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a27" ).Value Then

AppExcel.Application.Range(" d90" ).Select

n = -71

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a28" ).Value Then

AppExcel.Application.Range(" d91" ).Select

n = -72

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a29" ).Value Then

AppExcel.Application.Range(" d92" ).Select

n = -73

End If

AppExcel.Application.ActiveCell.Offset.Value = AppExcel.Application.WorksheetFunction.Sum(Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 0).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 5).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 10).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 15).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 20).Value, ", ", "." )))

If " Итого по мероприятиям экономии электрической энергии" = AppExcel.Application.Range(" a20" ).ValueThen

AppExcel.Application.Range(" d84" ).Select

n = -64

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a21" ).Value Then

AppExcel.Application.Range(" d86" ).Select

n = -65

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a22" ).Value Then

AppExcel.Application.Range(" d88" ).Select

n = -66

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a23" ).Value Then

AppExcel.Application.Range(" d90" ).Select

n = -67

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a24" ).Value Then

AppExcel.Application.Range(" d92" ).Select

n = -68

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a25" ).Value Then

AppExcel.Application.Range(" d94" ).Select

n = -69

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a26" ).Value Then

AppExcel.Application.Range(" d96" ).Select

n = -70

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a27" ).Value Then

AppExcel.Application.Range(" d98" ).Select

n = -71

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a28" ).Value Then

AppExcel.Application.Range(" d100" ).Select

n = -72

ElseIf " Итогопомероприятиямэкономииэлектрическойэнергии" = AppExcel.Application.Range(" a29" ).Value Then

AppExcel.Application.Range(" d102" ).Select

n = -73

End If

AppExcel.Application.ActiveCell.Offset.Value = AppExcel.Application.WorksheetFunction.Sum(Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 0).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 5).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 10).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 15).Value, ", ", "." )), Val(Replace(AppExcel.Application.ActiveCell.Offset(n, 20).Value, ", ", "." )))

ПРИЛОЖЕНИЕ В

Программный код, заполняющий таблицы паспорта программы энергосбережения данными об электрической энергии

 

Set WordApp = New Word.Application

Set DocWord = WordApp.Documents.Open(App.Path& " \Шаблон.docx" )

SetWdRange1 = WordApp.ActiveDocument.Content

WdRange1.Find.ClearFormatting

WdRange1.Find.Text = " ЭкономияТЭР"

WdRange1.Find.Execute

SetwdTab1 = WdRange1.Tables(1)

wdTab1.Cell(5, 1).Select

WordApp.Application.Selection.SelectRow

WordApp.Application.Selection.InsertRowsBelow

WordApp.Application.Selection.Rows.Height = WordApp.Application.CentimetersToPoints(2)

WordApp.Application.Selection.Font.Size = 12

wdTab1.Cell(6, 2).Select

With WordApp.Application.Selection.ParagraphFormat

.SpaceBefore = 6

.SpaceAfter = 6

End With

WordApp.Application.Selection.Font.Size = 10

AppExcel.Application.Range(" b19" ).Select

WordApp.Application.Selection.TypeText Text: =CStr(AppExcel.Application.ActiveCell.Value)

f = 4

e = 0

Do While f < 15

wdTab1.Cell(6, f).Select

AppExcel.Application.Range(" d19" ).Select

WordApp.Application.Selection.TypeText Text: =CStr(AppExcel.Application.ActiveCell.Offset(0, e).Value)

f = f + 5

e = e + 5

Loop

f = 3

e = 0

Do While f < 15

wdTab1.Cell(6, f).Select

AppExcel.Application.Range(" c19" ).Select

WordApp.Application.Selection.TypeText Text: =CStr(AppExcel.Application.ActiveCell.Offset(0, e).Value)

f = f + 5

e = e + 5

Loop

f = 5

e = 0

Do While f < 16

wdTab1.Cell(6, f).Select

AppExcel.Application.Range(" e19" ).Select

WordApp.Application.Selection.TypeText Text: =CStr(AppExcel.Application.ActiveCell.Offset(0, e).Value)

f = f + 5

e = e + 5

Loop

f = 7

e = 0

Do While f < 22

wdTab1.Cell(6, f).Select

AppExcel.Application.Range(" g19" ).Select

WordApp.Application.Selection.TypeText Text: =CStr(AppExcel.Application.ActiveCell.Offset(0, e).Value)

f = f + 5

e = e + 5

Loop

wdTab1.Cell(6, 6).Range.Text = " Тыс. кВт*ч"

wdTab1.Cell(6, 11).Range.Text = " Тыс. кВт*ч"

wdTab1.Cell(6, 16).Range.Text = " Тыс. кВт*ч"

e = 0

f = 6

Do

wdTab1.Cell(f, 1).Range.Text = Val(e + 1)

e = Val(e + 1)

f = Val(f + 1)

wdTab1.Cell(f, 1).Select

With WordApp.Application.Selection.Find

.Text = " Итого по мероприятиям экономии электрической энергии"

.Execute

End With

If WordApp.Application.Selection.Find.Found = True Then

ExitDo

EndIf

Loop

ПРИЛОЖЕНИЕ Г

Программный код, подгружающий значения номинальных мощностей ламп

 

Set DB = OpenDatabase(App.Path& " \апрель.accdb" )

Set Rec1 = DB.OpenRecordset(" Дуговыертутные (ДРЛ)" )

Set Rec2 = DB.OpenRecordset(" Кварцевыегалогенные (КГ)" )

Set Rec3 = DB.OpenRecordset(" Лампынакаливания (ЛОН)" )

Set Rec4 = DB.OpenRecordset(" Люминесцентные (ЛЛ)" )

Set Rec5 = DB.OpenRecordset(" Металлогалогенные (ДРИ)" )

Set Rec6 = DB.OpenRecordset(" Натриевые высокого давления (ДНа)" )

Set Rec7 = DB.OpenRecordset(" Натриевые низкого давления (SOX)" )

Set Rec8 = DB.OpenRecordset(" Ртутно-вольфрамовые (ДРВ)" )

Set Rec9 = DB.OpenRecordset(" Ртутные трубчатые (ДРТ)" )

Set Rec10 = DB.OpenRecordset(" Светодиодные (LED)" )

Select Case ComboBox1.ListIndex

Case 0

ComboBox9.Clear

ComboBox60.Clear

Do While Not Rec1.EOF

ComboBox9.AddItem Trim(Rec1! [Номинальнаямощность, Вт])

Rec1.MoveNext

Loop

Do While Not Rec11.EOF

ComboBox60.AddItem Trim(Rec11! [ТипПРА])

Rec11.MoveNext

Loop

Case 1

ComboBox9.Clear

 

Do While Not Rec2.EOF

ComboBox9.AddItem Trim(Rec2! [Номинальнаямощность, Вт])

Rec2.MoveNext

Loop

ПРИЛОЖЕНИЕ Д

⇐ Предыдущая123456789Следующая ⇒

Поделиться: