共21 条记录, 每页显示 10 条, 页签: [1] [2][3]

标题：[求助]导出数据出错，提示至少有一个参数没有指定

1楼

zhenshenbo 发表于：2011/8/9 17:38:00

Dim dt As Date = now()
Dim ex As New Exporter
ex.SourceTableName = "盘库统计" '指定导出表
ex.FilePath = "盘点数据表.xls" 'ProjectPath & "【备忘】" & dt.Date & "盘点数据表.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "ID,条形码,商家编码,正品数量,次品数量" '指定导出字段
ex.Export() '开始导出
MessageBox.Show("导出成功!", "提示")

提示如下

此主题相关图片如下：qq截图20110809173200.jpg

2楼

狐狸爸爸 发表于：2011/8/9 17:43:00

问题也许在这里：

ex.FilePath = "盘点数据表.xls" 'ProjectPath & "【备忘】" & dt.Date & "盘点数据表.xls" '指定目标文件

你都没有指定文件的路径的。

3楼

zhenshenbo 发表于：2011/8/9 17:51:00

之前用的是后面的引号后面部分..

ex.FilePath = ProjectPath & "【备忘】" & dt.Date & "盘点数据表.xls"

4楼

zhenshenbo 发表于：2011/8/9 19:53:00

以前这么写是对的。。。 ex.FilePath =? ProjectPath & "【备忘】" & dt.Date & "盘点数据表.xls" 现在报错了..

5楼

狐狸爸爸 发表于：2011/8/9 20:57:00

看看你合成的文件名到底是什么：

messagebox.show(ex.filepath)

还可以用下面的方法判断文件是否存在：

if FileSys.FileExists(ex.filepath) = false then

messagebox.show("文件不存在")

endif

6楼

zhenshenbo 发表于：2011/8/10 9:15:00

导出的路径文件必须要先存在么？我前两天用的时候是直接生成一个文件不知道为什么这两天就不行了

此主题相关图片如下：qq截图20110810091428.jpg

[此贴子已经被作者于2011-8-10 9:17:33编辑过]

7楼

狐狸爸爸 发表于：2011/8/10 9:17:00

应该不需要存在的，导入才需要存在的，我之前以为是导入。

你明确指定路径和文件名吧。

8楼

zhenshenbo 发表于：2011/8/10 9:20:00

我以前就会在 table文件当前目录下生成一个 excel表

【备忘】2011-8-10盘点数据表

9楼

狐狸爸爸 发表于：2011/8/10 9:22:00

Dim dt As Date = now()
Dim ex As New Exporter
ex.SourceTableName = "盘库统计" '指定导出表
ex.FilePath = projectPath & "盘点数据表.xls"

ex.Format = "Excel" '导出格式为Excel
ex.Fields = "ID,条形码,商家编码,正品数量,次品数量" '指定导出字段
ex.Export() '开始导出
MessageBox.Show("导出成功!", "提示")

10楼

zhenshenbo 发表于：2011/8/10 9:26:00

提示依旧一样... 导出的表里有表达式列没问题的吧我直接导出是可以导出的...

共21 条记录, 每页显示 10 条, 页签: [1] [2][3]