动态创建Excel列

Question

我正在使用命名空间“Microsoft.Office.Interop.Excel”

创建一个excel

我有从数据库获取的用户列表。该用户列表将经常更改。

Dim officers As List(Of String) = List.[Select](Function(p) p.OfficerAssigned).Distinct().ToList()

如何为每个用户创建列？在B之后，它的C和之后的C，它的D.我怎样才能动态增加列字母？

Dim aRange As Range = ws.Range("B2", "B2")
    aRange.Merge(1)
    aRange.Value2 = officers(i).ToString()

Answer 1

假设您有＆＃34;工作表＆＃34;的当前工作表的引用对象。你想从专栏开始＃34; A＆＃34;这是第一排......

For I as int32 = 1 to officers.count
 worksheet.cells(1,i) = officers(I-1)
Next