以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  新版导出为EXSEL代码出错（已解决）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=5981)
--  作者：yangming
--  发布时间：2010/2/22 13:22:00
--  新版导出为EXSEL代码出错（已解决）

这是我原在1229版时做的导出的代码，原版没问题，现新版报错，经查，是红色部份的问题，但看新帮助并没有问题啊，到底是什么原因？
If FileSys.DirectoryExists(ProjectPath & "\\导出文件") Then
Else
FileSys.CreateDirectory(ProjectPath & "\\导出文件")
End If
Tables("XC_薪酬管理_Table1").SaveExcel(ProjectPath & "导出文件\\"& Date.Today & Vars("表名") &".xls",Vars("表名"),False)
Dim Book As New XLS.Book(ProjectPath & "导出文件-:special:1:-& Date.Today & Vars("表名") &".xls") \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
If Sheet(0,0).Value = "ID" Then
Sheet.Cols.RemoveAt(0) \'在删除第一列
End If

Book.Save(ProjectPath & "导出文件-:special:1:-& Date.Today &Vars("表名") &".xls") \'保存工作簿

[此贴子已经被作者于2010-2-22 15:04:11编辑过]
--  作者：易服
--  发布时间：2010/2/22 14:03:00
--  
导出Excel有问题，12.29版正常
代码： Tables("交叉统计").SaveExcel("D:\\My Documents\\Reports\\数据分析.xls","交叉统计",False)
                    Dim Result As DialogResult
                    Dim Proc As New Process \'打开工作簿
                    Proc.File = "D:\\My Documents\\Reports\\数据分析.xls"

图片点击可在新窗口打开查看此主题相关图片如下：2010-2-22 13-56-28.png
图片点击可在新窗口打开查看
--  作者：yangming
--  发布时间：2010/2/22 15:04:00
--  

我找到问题了，不是一楼红色代码的问题，而是上一句代码：
Tables("XC_薪酬管理_Table1").SaveExcel(ProjectPath & "导出文件\\"& Date.Today & Vars("表名") &".xls",Vars("表名"),False)

二楼的问题也是这样的问题，请易服看看下面的帮助文件

根据新帮助，我发现这上面红色的部分，可以去除不用，这是个可选项，也可以根据帮助进行选择。可参看下面的帮助文件

 

SaveExcel

 

将Table保存为Excel文件中的一个工作表。

语法

SaveExcel(FileName, SheetName, Flags)

 

FileName： 目标Excel文件名，含路径。
SheetName: 工作表名。
Flags：    可选参数，SaveExcelFlags类型，用于设置保存选项。

SaveExcelFlags类型的属性包括：

CellStyle：   是否保存单元格样式，默认为False
FixedCells：  是否包括标题行，默认为True
RowNumber：   是否包括行号列，默认为False
MergedRanges：是否保存合并模式，默认为False
SelectedOnly：是否只保存选定行，默认为False
VisibleOnly： 是否只保存可见列，默认为True

示例一

用默认设置保存订单表：

CurrentTable.SaveExcel("C:\\data\\test.xls","订单")

示例二

保存订单表，包括行号列和单元格样式：

Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Tables("订单").SaveExcel("C:\\data\\test.xls","订单",flg)
--  作者：reachtone
--  发布时间：2010/2/22 15:53:00
--  
SaveExcelFlags中的MergedRanges设置无效。即使将其设为True，导出的excel文件仍然不是合并模式。
另外，如果是复式表头的table，导出excel后，标题变成这样的了：

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
这个不知可否改进一下？而且，生成的excel自动加上了横竖两条线，很不美观。
--  作者：czy
--  发布时间：2010/2/22 16:31:00
--  
我顶R版。
--  作者：baoxyang
--  发布时间：2010/2/22 16:38:00
--  
自己设计一个导出功能，什么要求都可达到。
--  作者：狐狸爸爸
--  发布时间：2010/2/22 16:40:00
--  
收到，我看看
--  作者：易服
--  发布时间：2010/2/22 16:42:00
--  
再编辑一下总比没有强，又不能用模板接收数据，因为生成的零时表是动态的