关于数据导出为excel自定义导出字段我问题

Question

RT,在导出的时候怎么让用户自己选择导出字段的实现方法.谢谢

Answer 1

就是比如我表里面有字段 A,B,C
我现在通过客户端界面让用户选择导出A,B,C字段中的某一个或者几个字段,关键是如果这个结果集不是表而只是数据集的话怎么能够快速有效的实现.

Answer 2

  dim TextArr() as string 
  StrColumn= "A:C"  '设置只读取A列与C列
  textarr=split(strcolumn,":")
  For i = 1 To ubound(textarr)
    for j=1 to 100
       msgbox Sheet4.Range("$" & textArr(i) & "$" & j).Value '循环读取数据 Range("$A$1")表示A1的数据
     next
  Next

Answer 3

dim TextArr() as string 
  StrColumn= "A:C"  '设置只读取A列与C列
  textarr=split(strcolumn,":")
  For i = 1 To ubound(textarr)
    for j=1 to 100
       ' Sheet4.Range("$" & textArr(i) & "$" & j).text '循环读取数据 Range("$A$1")表示A1的数据
        ' Sheet4.Range("$" & textArr(i) & "$" & j).text '循环读取数据 Range("$A$1")表示A1的数据
        '将Excel中导入至Txt
         txt= Sheet4.Range("$" & textArr(i) & "$" & j).text
        '将Txt中导入至Excel
         Sheet4.Range("$" & textArr(i) & "$" & j).text =txt
     next
  Next