主题：SaveExcel问题？

是有BUG，我现在的办法，就是让光标切入到你要保存的表中，比如出库表
我的代码是这样的
If Tables("XC_明细台帐_Table1").Focus Then '将输入焦点移到当前表
Tables("XC_明细台帐_Table1").SaveExcel(dlg.FileName,Format(Date.Today ,"yyyyMM" )&"明细表")
Dim Book As New XLS.Book(dlg.FileName ) '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
If Sheet(0,0).Value = "ID" Then
Sheet.Cols.RemoveAt(0) '在删除第一列
End If
Book.Save(dlg.FileName ) '保存工作簿