[急] vb 如何代码设置excel自动筛选

vb实现保存到excel中
如何让生成的excel自动筛选（就是表头都有下拉列表）
能用代码实现吗？？？
。。。。

---

excel中录制宏，拿到vb修改一下

---

楼上的怎么做成模板？

---

引用

楼上的怎么做成模板？

做好的excel文件,表头带下拉列表,清除数据,保留表头,另存为模板

---

我的是个Acess程序
那保存excel的时候还得有什么特殊操作吗
我直接用
DoCmd.TransferSpreadsheet acExport, 5, WRK_EXPORT, export_name, False, "人员名单"
生成的

PS：要是把代码加进去的话，怎么老提示with。。。的错误，应该怎么加

---

解决了
Set Excel_App = CreateObject("Excel.Application")
    Set Excel_Book = Excel_App.Workbooks.Open(export_name)
    Set Excel_Sheet = Excel_App.Worksheets(1)
    Excel_Sheet.Rows(1).AutoFilter

谢谢楼上两位
揭帖