[求助]导出Excel一个项目可以另一个项目不行（搞定） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]导出Excel一个项目可以另一个项目不行（搞定）

共有14029人关注过本帖树形打印复制链接主题：[求助]导出Excel一个项目可以另一个项目不行（搞定）

yangming

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/2/22 16:26:00 [显示全部帖子]

Tables("交叉统计").SaveExcel("D:\My Documents\Reports\数据分析.xls","交叉统计",False)

上条改成下面的代码试试？

Tables("交叉统计").SaveExcel("D:\My Documents\Reports\数据分析.xls","交叉统计")

yangming

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/2/22 17:32:00 [显示全部帖子]

Reports=是这个文件夹的问题吧，如果没有此文件夹就会报错
可以在代码前加一个判断是否有此文件夹，如没有，就创建，如有就不动作，请看下面代码：
If FileSys.DirectoryExists(ProjectPath & "\Reports") Then
Else
FileSys.CreateDirectory(ProjectPath & "\Reports")
End If

[此贴子已经被作者于2010-2-22 17:35:11编辑过]

yangming

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/2/22 19:44:00 [显示全部帖子]

以下是引用易服在2010-2-22 19:28:00的发言：
加上也不行应是bug
If FileSys.DirectoryExists(ProjectPath & "\Reports") Then
Else
FileSys.CreateDirectory(ProjectPath & "\Reports")
End If

下面的代码测试成功！
If FileSys.DirectoryExists(ProjectPath & "\Reports") Then
Else
FileSys.CreateDirectory(ProjectPath & "\Reports")
End If
Tables("出库").SaveExcel(ProjectPath & "Reports\数据分析.xls","交叉统计")
                    Dim Result As DialogResult
                    Dim Proc As New Process '打开工作簿
                    Proc.File = ProjectPath & "Reports\数据分析.xls"
                    Proc.Start()

下一主题 >> << 上一主题

主题：[求助]导出Excel一个项目可以另一个项目不行（搞定）