Как из макроса Excel программно создать таблицу Access?

Нint: Не забудьте выставить в Excel ссылки на объекты DAO!
[VBA] Tools/References/Available References/ [x] MicroSoft DAO?.? Library ' Function CreateTable ' Create temporary table "BalanceShifr" into temporary database 

Public Function CreateTable(ByVal dbTemp As Database) As Boolean 

Dim tdfTemр As TableDef
Dim idx As Index
Dim fld As Field 

On Error GoTo errhandle 
 CreateTable = True ' CREATE TABLE "BalanceShifr" Set tdfTemp = dbTemp.CreateTableDef("BalanceShifr") Set fld = tdfTemp.CreateField("ConditionId", dbLong) fld.Required = True tdfTemp.Fields.Append fld Set fld = tdfTemp.CreateField("Account", dbText, 4)
tdfTemp.Fields.Append fld 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