.NET Excel 2003 批量插入数据很慢的解决办法
2009-08-04 12:24
351 查看
.Net利用Office组件的操作Excel批量插入数据据的时候,会非常慢。
我也曾经想利用其它组件来实现这个功能,但是效果不是很理想。后来经过查阅资料,发现Excel.Range的Value属性是Object的二维数组。
于是我想,不去遍历每个单元格,而是一次取得所要操作区域(Range)的Value属性,对这个二维数组操作,最后再把这个二维数组赋回去,就大功能告成了。
经过编码测试,与我想象中的一样,速度非常之快。
之前代码:
Dim app As New Excel.Application
app.Visible = True
Dim book As Excel.Workbook = app.Workbooks.Add()
Dim sheet As Excel.Worksheet = book.Sheets(1)
For i As Integer = 1 To 1000
For j As Integer = 1 To 26
sheet.Cells(i, j).Value = "R" & i & "C" & j
Next
Next之后代码:
Dim app As New Excel.Application
app.Visible = True
Dim book As Excel.Workbook = app.Workbooks.Add()
Dim sheet As Excel.Worksheet = book.Sheets(1)
Dim ary As Object(,) = sheet.Range("A1:Z1000").Value
For i As Integer = 1 To 1000
For j As Integer = 1 To 26
ary(i, j) = "R" & i & "C" & j
Next
Next
sheet.Range("A1:Z1000").Value = ary
附上C#的代码
Excel.Application app = new Excel.Application();
app.Visible = true;
Excel.Workbook book = app.Workbooks.Add(Missing.Value);
Excel.Worksheet sheet = (Excel.Worksheet)(book.Sheets[1]);
object[,] ary = (object[,])(sheet.get_Range("A1:Z1000", Missing.Value).Value2);
for (int i = 1; i <= 1000; i++)
{
for (int j = 1; j <= 26; j++)
{
ary[i, j] = "R" + i.ToString() + "C" + j.ToString();
}
}
sheet.get_Range("A1:Z1000", Missing.Value).Value2 = ary;
我也曾经想利用其它组件来实现这个功能,但是效果不是很理想。后来经过查阅资料,发现Excel.Range的Value属性是Object的二维数组。
于是我想,不去遍历每个单元格,而是一次取得所要操作区域(Range)的Value属性,对这个二维数组操作,最后再把这个二维数组赋回去,就大功能告成了。
经过编码测试,与我想象中的一样,速度非常之快。
之前代码:
Dim app As New Excel.Application
app.Visible = True
Dim book As Excel.Workbook = app.Workbooks.Add()
Dim sheet As Excel.Worksheet = book.Sheets(1)
For i As Integer = 1 To 1000
For j As Integer = 1 To 26
sheet.Cells(i, j).Value = "R" & i & "C" & j
Next
Next之后代码:
Dim app As New Excel.Application
app.Visible = True
Dim book As Excel.Workbook = app.Workbooks.Add()
Dim sheet As Excel.Worksheet = book.Sheets(1)
Dim ary As Object(,) = sheet.Range("A1:Z1000").Value
For i As Integer = 1 To 1000
For j As Integer = 1 To 26
ary(i, j) = "R" & i & "C" & j
Next
Next
sheet.Range("A1:Z1000").Value = ary
附上C#的代码
Excel.Application app = new Excel.Application();
app.Visible = true;
Excel.Workbook book = app.Workbooks.Add(Missing.Value);
Excel.Worksheet sheet = (Excel.Worksheet)(book.Sheets[1]);
object[,] ary = (object[,])(sheet.get_Range("A1:Z1000", Missing.Value).Value2);
for (int i = 1; i <= 1000; i++)
{
for (int j = 1; j <= 26; j++)
{
ary[i, j] = "R" + i.ToString() + "C" + j.ToString();
}
}
sheet.get_Range("A1:Z1000", Missing.Value).Value2 = ary;
相关文章推荐
- 在使用SQLite插入数据时出现乱码的解决办法
- 向ACCESS中的"时间/日期"字段中插入DateTime.Now时出现“标准表达式中数据类型不匹配。”错误的解决办法
- mysql 批量插入数据过多的解决方法
- Office 2007 打开 C# VS2005 导出的Excel时报错:单元格数据太大 Office 2003打开正常 的解决办法
- mysql 创建数据库插入数据出现问号解决办法
- MySql数据库新建表后,插入数据不成功的解决办法
- MySQL插入数据中文乱码问题解决办法
- 向ACCESS中的"时间/日期"字段中插入DateTime.Now时出现“标准表达式中数据类型不匹配。”错误的解决办法
- 多表联合查询后去重复数据后重新插入第一张表解决办法
- ThinkPHP增加数据库字段后插入数据为空的解决办法
- windows 2003 server远程桌面连接,”终端服务器超出了最大允许连接数“的解决办法以及无限时保持连接会话数据的方法
- java:jdbc连接数据插入中文数据乱码解决办法:
- TOAD FOR MYSQL 进行数据插入时乱码的解决办法---MariaDB 5.5
- 插入数据是的时候出现错误解决办法:MassAssignmentException in Model.php line 407: username
- JMeter 通过CSV Data Set Config 中文参数化数据,插入数据库后中文显示乱码,解决办法
- 插入大量数据速度慢的解决方法:批量插入
- 树莓派插入DS18B20 无法读取数据解决办法
- 向MySQL插入数据乱码解决办法
- 【MySQL】关于批量增加测试数据的解决办法
- 解决Mysql数据库插入数据出现问号(?)的解决办法