以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]狐表如何使用excel TRANSPOSE转置函数？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28324)
--  作者：samica
--  发布时间：2013/1/25 15:06:00
--  [求助]狐表如何使用excel TRANSPOSE转置函数？
Dim Customers As List(Of String)
Customers = DataTables("基础数据").GetUniqueValues("", "经营类别")
For i As Integer = 0 To Customers.Count - 1 
  sheet.cells(2,i+6).value=app.TRANSPOSE(Customers(i))
Next
狐表应该如何写excel vba转置函数TRANSPOSE？
请高手指导，谢谢！
--  作者：lin_hailun
--  发布时间：2013/1/25 15:34:00
--  
 不知道你要做什么，但是调用的话这样弄。

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.open("d:\\test.xls")

Dim Arg1() As String = {"aaa", "bbb"}
Dim returnValue As Object
returnValue = app.WorksheetFunction.Transpose(Arg1)

App.Quit
--  作者：samica
--  发布时间：2013/1/25 15:46:00
--  
林老师，感谢您的指导，已经成功实现此功能，再次表示感谢！
[此贴子已经被作者于2013-1-25 15:48:00编辑过]
--  作者：lin_hailun
--  发布时间：2013/1/25 15:51:00
--  
我没有弄懂你说的什么转置换。具体的效果是怎样的？
 
Dim Customers As List(Of String)
Customers = DataTables("基础数据").GetUniqueValues("", "经营类别")
For i As Integer = 0 To Customers.Count - 1 
  sheet.cells(i+6,2).value = Customers(i)
Next