| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何用代码将打开的Excel报表保存为97-2003版本 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68850) |
| -- 作者：卖糕的 -- 发布时间：2015/5/26 11:45:00 -- 如何用代码将打开的Excel报表保存为97-2003版本 外部表是2007版本的，用代码save(ggg.xls)导入资料时还是会提示外部表不是指定的格式，必须收到另存才可以，请问要怎么处理才好 |
| -- 作者：Bin -- 发布时间：2015/5/26 11:46:00 -- 报表模版文件直接就用2003格式的吧
[此贴子已经被作者于2015/5/26 11:46:48编辑过]
|
| -- 作者：大红袍 -- 发布时间：2015/5/26 11:48:00 -- 呃，要分清你什么问题，是导入不成功？注意后缀名和格式
Dim mg As New Merger |
| -- 作者：卖糕的 -- 发布时间：2015/5/26 11:56:00 -- 2007版本的是xlsx么？我测试了一下提示找不到可安装的ISAM |
| -- 作者：大红袍 -- 发布时间：2015/5/26 12:01:00 -- 1、看一下 http://www.foxtable.com/help/index.html?n=2715.htm
2、你电脑安装一些Ms Office 2007以上的版本。 |
| -- 作者：大红袍 -- 发布时间：2015/5/26 12:02:00 -- 如果要另存为某种格式，参考代码
Dim App As New MSExcel.Application
app.DisplayAlerts = False
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(fl)
Wb.SaveAs(Filename:=ProjectPath & "Reports\\基层法律服务所名册.htm", FileFormat:=MSExcel.XlFileFormat.xlHtml)
wb.close
app.quit
|
| -- 作者：jspta -- 发布时间：2015/5/26 12:56:00 -- If wsNew.Application.Version = "11.0" Then \'判定是否为2003 wsNew.SaveAs(strSavePath) Else wsNew.SaveAs(strSavePath, MSExcel.XlFileFormat.xlExcel8) End If |