导出完整代码：
Dim dlg As New SaveFileDialog '定一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
dim ss as string
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
ss = dlg.FileName
If FileSys.FileExists("& ss &") = true Then
FileSys.DeleteFile("& ss &",2,2) '则彻底删
End if
Dim ex as New Exporter
ex.SourceTableName = "入库捆包查询_Table1" '指定导出表
ex.FilePath = ss '指定目标文件
ex.Format = "Excel" '导出格式为Excel
'ex.Fields = "资源号,捆包号" '指定导出字段
' ex.Filter = "[资源号] <> ''" '指定导出条件
ex.Export()
end if
此主题相关图片如下：未命名.gif
请帮忙问题在哪？郁闷！查了很久了，不知错在哪？望指点！先谢了！不知哪位有用过表导出EXECL表，是否有遇同样的问题？
加好友 
发短信
Post By：2009/8/20 17:33:00 [显示全部帖子]
