| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] 导出到Excel (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176206) |
| -- 作者：leoli -- 发布时间：2022/4/4 14:16:00 -- [求助] 导出到Excel 老师， 以下导出到Excel中后，可不可以指定到导出的当前页面 ？目前一直停在第一张sheet中，谢谢。 Dim flg As New SaveExcelFlags flg.RowNumber = True flg.CellStyle = True ShowAppWindow("RM.xls",5) Tables("RMDemand").SaveExcel(ProjectPath & "RM\\RM.xls",format(Date.now,"yyyyMMddHHmmss") ,flg) If ShowAppWindow("RM.xls",1) = False Then Dim Proc As New Process Proc.File = ProjectPath & "RM\\RM.xls" Proc.Start End If |
| -- 作者：有点蓝 -- 发布时间：2022/4/5 21:13:00 -- 可以指定导出到哪个sheet，但是会覆盖原sheet内容。如果要不覆盖只能这种方法导出：http://www.foxtable.com/webhelp/topics/1148.htm |