文章目录[隐藏]
使用Python加载最新的Excel读取类库xlwings可以说是Excel数据处理的利器,但使用起来还是有一些注意事项,否则高大上的Python会跑的比老旧的VBA还要慢。
这里我们对比一下,用几种不同的方法,从一个Excel表格中读取一万行数据,然后计算结果,看看他们的耗时。
1. 处理要求:
一个Excel表格中包含了3万条记录,其中B,C两个列记录了某些计算值,读取前一万行记录,将这两个列的差值进行计算,然后汇总得出差的和。
文件是这个样子:Book300s.xlsx 。
2. 处理方式有以下3种,我们对比一下耗时的大小。
处理方式 | 代码名称 |
1. 使用Python的xlwings类库,读取Excel文件,然后采用Excel的Sheet和Range的引用方式读取并计算 | XLS_READ_SHEET.py |
2. 直接使用Excel自带的VBA语言进行计算 | VBA |
3. 使用Python的xlwings类库,读取Excel文件,然后采用Python的自带数据类型List列表进行数据存储和计算 |
XLS_READ_LIST.py |
3. 首先测试第一种,XLS_READ_SHEET.py
使用Python的xlwings类库,读取Excel文件,然后引用Excel的Sheet和Range的方式来读取并计算
#coding=utf-8 import xlwings as xw import pandas as pd import time start_row = 2 # 处理Excel文件开始行 end_row = 10002 # 处理Excel结束行 #记录打开表单开始时间 start_open_time = time.time() #指定不显示地打开Excel,读取Excel文件 app = xw.App(visible=False, add_book=False) wb = app.books.open('D:/PYTHON/TEST_CODE/Book300s.xlsx') # 打开Excel文件 sheet = wb.sheets[0] # 选择第0个表单 #记录打开Excel表单结束时间 end_open_time = time.time() #记录开始循环计算时间 start_run = time.time() row_content = [] #读取Excel表单前10000行的数据,Python的in range是左闭右开的,到10002结束,但区间只包含2到10001这一万条 for row in range(start_row, end_row): row_str = str(row) #循环中引用Excel的sheet和range的对象,读取B列和C列的每一行的值,对比计算 start_value = sheet.range('B' + row_str).value end_value = sheet.range('C' + row_str).value if start_value <= end_value: values = end_value - start_value #同时测试List数组添加记录 row_content.append(values) #计算和 total_values = sum(row_content) #记录结束循环计算时间 end_run = time.time() sheet.range('E2').value = str(total_values) sheet.range('E3').value = '使用Sheet计算时间(秒):' + str(end_run - start_run) #保存并关闭Excel文件 wb.save() wb.close() print ('结果总和:', total_values) print ('打开并读取<a>本文来源gao*daima.com搞@代#码&网6</a>Excel表单时间(秒):', end_open_time - start_open_time) print ('计算时间(秒):', end_run - start_run) print ('处理数据条数:' , len(row_content))
用Python直接访问Sheet和Range取值的计算结果如下:
读取Excel文件用时 4.47秒
处理Excel 10000 行数据花费了117秒的时间。
4. 然后我们用Excel自带的VBA语言来处理一下相同的计算。也是直接引用Sheet,Range等Excel对象,但VBA的数组功能实在是不好用,就不测试添加数组了。
Option Explicit Sub VBA_CAL_Click() Dim i_count As Long Dim offset_value, total_offset_value As Double Dim st, et As Date st = Time() i_count = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row i_count = 10001 For i_count = 2 To i_count If Range("C" & i_count).Value > Range("B" & i_count).Value Then offset_value = Range("C" & i_count).Value - Range("B" & i_count).Value total_offset_value = total_offset_value + offset_value End If Next i_count et = Time() Range("E2").Value = total_offset_value Range("E3").Value = et - st MsgBox "Result: " & total_offset_value & Chr(10) & "Running time: " & et - st End Sub