Реферат: Access і Visual basic for Application. Excel VBA: прийоми програмування

Set fld = tdfTemp. CreateField ("SubAcc", dbText,

4)

tdfTemp. Fields. Append fld

Set fld = tdfTemp. CreateField ("Shifr", dbLong)

tdfTemp. Fields. Append fld

Set fld = tdfTemp. CreateField ("Date", dbDate)

fld. Required = True

tdfTemp. Fields. Append fld

Set fld = tdfTemp. CreateField ("SaldoDeb", dbCurrency)

tdfTemp. Fields. Append fld

Set fld = tdfTemp. CreateField ("SaldoKr", dbCurrency)

tdfTemp. Fields. Append fld

dbTemp. TableDefs. Append tdfTemp

' CREATE INDEX "BalanceShifr"

Set tdfTemp = dbTemp. TableDefs ("BalanceShifr")

Set idx = tdfTemp. CreateIndex ("ForeignKey")

Set fld = idx. CreateField ("ConditionId")

idx. Fields. Append fld

tdfTemp. Indexes. Append idx

Exit Function

errHandle:

MsgBox "Table creating error!", vbExclamation, "Error"

CreateTable = False

End Function

Видалення листів залежно від дати

Як видалити робочі листи листів залежно від дати?

Ось код функції на Excel VBA, який вирішує дану проблему:

' Function DelSheetByDate

' Видаляє робочий лист sSheetName в активній робочій книзі