【发布时间】:2011-08-28 01:26:46
【问题描述】:
我正在动态生成一个 Excel 文档并用超过 200,000 条记录填充它。然后我需要将文件上传到另一台服务器。
对于上面的功能,我只是在后面的代码中写了代码。不过,查看填充的 Excel 文档需要 20-30 分钟,上传时也是如此。
我怎样才能加快这个过程?请帮忙。
这是我的代码
Private Sub FillDataRows(ByVal ws 作为工作表) 将行数变暗为整数 = 7 Dim colcount As Integer = 1 Dim rowscount As Integer
For Each dr As DataRow In dsCostUsage.Tables(0).Rows
colcount = 1
Dim items As Object() = dr.ItemArray
For Each item As Object In items
Dim nextItem As String = ""
nextItem = item.ToString()
DirectCast(ws.Cells(rowcount, colcount), Range).Value2 = nextItem
colcount += 1
Next
rowcount += 1
Next
End Sub
谢谢。
【问题讨论】:
-
请提供一些代码,以便我们查看您所在的位置。