Реферат: VBA Платежка

" Банк : " & Worksheets("Лист1").Range("D8") & _

" Код Банка : " & Worksheets("Лист1").Range("P9")

№ПЛ = Worksheets("Лист1").Range("A1")

Windows("Клиенты" & Year(Date)).Activate

ComboBox1.Clear

МП = True

X = 1

Год = Year(Date)

While Len(Worksheets(№ПЛ).Range("A" & X)) <> 0

ComboBox1.AddItem (Worksheets(№ПЛ).Range("A" & X))

X = X + 1

Wend

End Sub

Private Sub ЗаПрошлыйГод_Click()

If Dir("C:\Program Files\Платёжка\Платёжки" & (Year(Date) - 1) & ".xls") = _

"Платёжки" & (Year(Date) - 1) & ".xls" Then

Workbooks.Open FileName:="C:\Program Files\Платёжка\Платёжки" & (Year(Date) - 1)

Windows("Платёжки" & (Year(Date) - 1)).Activate

Worksheets(№ПЛ).Select

Год = Year(Date) - 1

Else

БОКС = MsgBox("За прошлый год файл отчёта не найден", , BOX)

Exit Sub

End If

Вконец = True

End Sub

Private Sub Плательщики_Click()

UserForm1.Hide

UserForm3.Show