excle导出至指定路径

yelang771
牧野流星
等级:

发表于：2008-05-06 17:31:40 楼主

vsflexgrid里的数据导出至excel,我现在可以导出至固定目录,
想实现指定导出的路径.
用commondialog怎么写,或者有其它的方法,谢谢.

.SaveGrid App.Path & "\Stock.xls", flexFileExcel, SaveExcelSettings.flexXLSaveFixedCells

问题点数：80 回复次数：8 修改删除举报引用回复

a512423966
别折腾!小心受伤`!
等级:

发表于：2008-05-06 17:37:051楼得分:20

dim strFilePath as string
With CommonDialog1
.DialogTitle = "保存文件"
.Filter = "文本文件 (*.txt) ¦*.txt ¦所有文件 ¦*.*"
.FilterIndex = 0
.ShowSave
strFilePath = .FileName
End With

修改删除举报引用回复

yelang771
牧野流星
等级:

发表于：2008-05-07 08:52:472楼得分:0

怎样和vsflexgrid连接?...

修改删除举报引用回复

dbcontrols
泰山
等级:

发表于：2008-05-07 09:02:133楼得分:50

With CommonDialog1
.DialogTitle = "保存文件"
.Filter = "EXCEL文件 (*.xls) ¦*.xls"
.ShowSave
End With
if CommonDialog1.FileName <>"" then
.SaveGrid CommonDialog1.FileName, flexFileExcel, SaveExcelSettings.flexXLSaveFixedCells

EndIf

引用 2 楼 yelang771 的回复:
怎样和vsflexgrid连接?...

修改删除举报引用回复

dbcontrols
泰山
等级:

发表于：2008-05-07 09:03:364楼得分:0

需要Ctrl+T 添加 Microsoft CommonDialog Control

引用 3 楼 dbcontrols 的回复:
With CommonDialog1
.DialogTitle = "保存文件"
.Filter = "EXCEL文件 (*.xls) ¦*.xls"
.ShowSave
End With
if CommonDialog1.FileName <>"" then
.SaveGrid CommonDialog1.FileName, flexFileExcel, SaveExcelSettings.flexXLSaveFixedCells

EndIf

引用 2 楼 yelang771 的回复:
怎样和vsflexgrid连接?...

修改删除举报引用回复

tim_zhang
Tim
等级:

发表于：2008-05-07 09:09:095楼得分:10

实现如下：
如果为自定义路径，建议增加对应的选择文件存放目录的位置选择按钮，并记录，同时判断是否存在"\",不存在则为路径&"\"
将.SaveGrid App.Path & "\Stock.xls", flexFileExcel, SaveExcelSettings.flexXLSaveFixedCells

当前设置的路径 & "Stock.xls"即可

使用CommonDialog1 取路径可以如1楼的方法，再去掉\号后面的部分

修改删除举报引用回复