OLE方式读写excel文件

[hxc9908]

使用OLE方式，实现把采集的数据写入excel文件，但是在测试的过程中，发现“ExcelApplication.CreateDispatch”启动excel文件居然要5S，写一个1行20列的数据也消耗了3.8S，太坑，我要写入那么多数据，那时间不是长得离谱。请教给位大神，有什么更好的办法，写赐教，谢谢！
PS：本人要实现的功能比较简单，就是要把采集单的数据，按照一定的格式写入excel表格，然后再进行图表方式的统计，本人采用的是VS2015 mfc工具。

[赵4老师]

将.xls或.xlsx另存为.csv格式……

[赵4老师]

ScreenUpdating 属性 请参阅 应用于 示例 特性 如果屏幕更新功能是打开的，则该值为 True。Boolean 类型，可读写。 说明 关闭屏幕更新可加快宏的执行速度。这样将看不到宏的执行过程，但宏的执行速度加快了。 当宏结束运行后，请记住将 ScreenUpdating 属性设回到 True。 示例 本示例演示将屏幕更新关闭以后，系统如何加快代码的执行速度。本示例隔列隐藏 Sheet1 上的列，并保存其执行时间。第一次，示例隐藏列时，屏幕更新是打开的；第二次执行时，屏幕更新是关闭的。运行本示例时，可比较信息框中显示的两次执行时间。 Dim elapsedTime(2) Application.ScreenUpdating = True For i = 1 To 2 If i = 2 Then Application.ScreenUpdating = False startTime = Time Worksheets("Sheet1").Activate For Each c In ActiveSheet.Columns If c.Column Mod 2 = 0 Then c.Hidden = True End If Next c stopTime = Time elapsedTime(i) = (stopTime - startTime) * 24 * 60 * 60 Next i Application.ScreenUpdating = True MsgBox "Elapsed time, screen updating on: " & elapsedTime(1) & _ " sec." & Chr(13) & _ "Elapsed time, screen updating off: " & elapsedTime(2) & _ " sec."

[赵4老师]

Interactive 属性 请参阅 应用于 示例 特性 如果 Microsoft Excel 处于交互模式，则该值为 True；此属性值通常为 True。如果该值为 False，则 Microsoft Excel 将禁止所有的键盘输入和鼠标输入（代码中对话框的输入除外）。禁止用户输入将使用户不能干预宏移动或者激活 Microsoft Excel 对象。Boolean 类型，可读写。 说明 如果正使用 DDE 或者“OLE 自动化”从其他应用程序和 Microsoft Excel 进行通讯，则可使用此属性。 如果将该属性设为False，记注要将它设回 True。Microsoft Excel 并不会在你的宏停止运行时将它自动设回True。 示例 本示例演示当在 Windows 中使用 DDE 时将 Interactive 属性设置为 False，并在运行结束时将此属性设回 True。这样以防用户干预宏的运行。 Application.Interactive = False Application.DisplayAlerts = False channelNumber = Application.DDEInitiate( _ app:="WinWord", _ topic:="C:\WINWORD\FORMLETR.DOC") Application.DDEExecute channelNumber, "[FILEPRINT]" Application.DDETerminate channelNumber Application.DisplayAlerts = True Application.Interactive = True

[hxc9908]

感谢赵4老师，经测试，确实提高了启动和读写的速度，目前启动excel之后，写10万行时间不到10S，已解决问题。