xp和win7的日期格式不同的。
根据错图提示,你动态合成的工作表名称不符合excel的规范
这样改一下:
Tables("frm_OnSaleList_tbl_list").SaveExcel(dlg.FileName,e.Form.Controls("cbo_planshop").Value & "(" & Format(Date.Today,"yyyy-MM-dd") & ")")