怎样打开和录入保存 Excel2010 的 xlsm 格式，需要样品教材

怎样打开和录入保存Excel2010的xlsm格式
Dim xlsApp
Set xlsApp = Excel.Application
With xlsApp
.Visible = False
.Workbooks.Open (App.Path & "\数据库.xlsm")
这样打开不行，

哪位有类似的代码文件样本教材，请发上来学习，谢谢！！！！