主题：一张表按客户订单量输出n张表格

有一张表格表头为

序号     产品代码   产品名称    出厂价   供货价    A客户订单量   B客户订单量   C客户订单量   D客户订单量  。。。。。。。  Z客户订单量

 

需要自动保存为

A客户订单表

 序号     产品代码   产品名称    出厂价   供货价    A客户订单量

B客户订单表

序号     产品代码   产品名称    出厂价   供货价    B客户订单量

。

。

。

。

Z客户订单表

序号     产品代码   产品名称    出厂价   供货价    Z客户订单量

 

 

求代码

 设计思路本来就问题。

 

 只需要一张订单表

 

客户 序号   产品代码   产品名称    出厂价   供货价    Z客户订单量

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=68546&replyID=&skin=1

 

首先,你这表设计就不合理.  客户应该作为一个列.  否则后期使用,增加一个客户就要改动表结构?  极度不科学的. 这是电子表格的概念,不要这么用.

表格的格式是从系统里面导出来的，没有办法做更改，但是又需要按客户分成多个表格发到对应客户

比如你从 第3列开始 到最后倒是客户姓名列  ex.SourceTableName = "订单" '指定导出表
  ex.FilePath = "c:\Data\" & tables("X").cols(i).name & "订单.xls" '指定目标文件
  ex.Format = "Excel" '导出格式为Excel
  ex.Fields = "产品编码,第二列," & tables("X").cols(i).name '指定导出字段
  ex.Export() '开始导出

 导入订单表，做个小例子发上来吧。

看6楼.

  ex.SourceTableName = "订单" '指定导出表
  ex.FilePath = "c:\Data\" & tables("X").cols(i).name & "订单.xls" '指定目标文件
  ex.Format = "Excel" '导出格式为Excel
  ex.Fields = "产品编码,第二列," & tables("X").cols(i).name '指定导出字段
  ex.Export() '开始导出

 

这个代码能实现了，现在有个新问题，我需要导出的内容写进一个表格名字一样的表格里面？怎么样实现？

If FileSys.FileExists("c:\Data\订单.xls") Then
    FileSys.DeleteFile("c:\Data\订单.xls",2,2)
End If
For i As Integer = 2 To Tables("X").cols.count-1
    Dim ex As New Exporter
    ex.SourceTableName = "订单" '指定导出表
    ex.NewTableName = Tables("X").cols(i).name
    ex.FilePath = "c:\Data\订单.xls" '指定目标文件
    ex.Format = "Excel" '导出格式为Excel
    ex.Fields = "产品编码,第二列," & Tables("X").cols(i).name '指定导出字段
    ex.Export() '开始导出
Next