从Excel缓慢读取

我正在通过VB 6读取Excel文件，如下所示

Dim objExcel As Excel.Application Dim objWorkbook As Excel.Workbook Dim objWorksheet As Excel.Worksheet Dim ExlUsedRowCount As Long Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(FileName, , True) Set objWorksheet = objWorkbook.Sheets(1) ExlUsedRowCount = objWorksheet.UsedRange.Rows.Count For RowIndex = 1 To ExlUsedRowCount someVariable = Trim$(objWorksheet.Cells(RowIndex, 9)) Next objWorkbook.Close False Set objExcel = Nothing Set objWorkbook = Nothing Set objWorksheet = Nothing 

我有Excel 2013，而这个代码在客户端（Excel 2010）每秒读取270行（），而在客户端读取速度只有33 /秒。 我已经看到了进程列表，除了EXCEL.EXE以外，没有进程占用80％以上的CPU。 客户端有4台电脑就是这种情况。

我试图用CSV保存这个文件，但是有date列格式化为DD / MM，当保存为CSV时，YEAR完全被忽略。 任何线索？

请咨询可能是错的

Answer 1

尝试这个：

  Dim objExcel As Excel.Application Dim objWorkbook As Excel.Workbook Dim objWorksheet As Excel.Worksheet Dim lngLoop As Long Dim varArrTemp as Variant Dim rngData as range Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(FileName, , True) Set objWorksheet = objWorkbook.Sheets(1) Set rngData = objWorksheet.UsedRange.columns(9) varArrtemp =rngData For lngLoop = Lbound(varArrTemp) To Ubound(varArrtemp) varArrtemp (lngLoop,9)= Trim$( varArrtemp (lngLoop,9)) Next rngData = varArrTemp objWorkbook.Close False Set objExcel = Nothing Set objWorkbook = Nothing Set objWorksheet = Nothing