【发布时间】:2020-09-15 01:46:54
【问题描述】:
【问题讨论】:
-
不确定你想要什么?
【问题讨论】:
为了做到这一点,您需要使用以下活动:
【讨论】:
要实现您想要的,您可以执行以下操作:
dt = 原始 dt
创建变量 lstColumn 作为字符串
您可以在 Invoke Code 活动中使用以下确切代码,参数为 dt 和 dt2(均作为 In/Out)
Dim cntr As Integer
cntr = 0
dt2 = dt.AsEnumerable().Where(Function(rw) String.IsNullOrEmpty(rw(0).ToSTring)).CopyToDataTable
For Each col as DataColumn In dt2.Columns.Cast(Of DataColumn)
cntr = cntr+1
col.ColumnName = "Column" & cntr
Next col
dt.AsEnumerable().where(Function(rw) Not String.IsNullOrEmpty(rw(0).ToString)).CopyToDataTable
依次跟随
lstColumn = (dt.Columns.Count + 65).ToString
使用带参数的写入范围活动:
path> C:\Temp\Test123.xlsx
sheet> "Sheet1"
startcell> "A1"
AddHeaders> True datatable> dt.AsEnumerable().Where(Function(rw)
String.IsNullOrEmpty(rw(0).ToSTring))
再次使用带参数的写入范围活动:
path[C:\Temp\Test123.xlsx]
sheet = "Sheet1"
startcell = lstCOlumn & "1"
AddHeaders = True
datatable = dt2
【讨论】: