我正在使用 Excel 和 xlwings。我有一个 book.xlsm,在第一张纸上有一个分配给以下 vba 代码的按钮:
book.xlsm!ThisWorkbook.get_data
在 VBA 上,我添加了这个,当调用按钮并执行 vba 代码时,它运行:
Sub get_data()
RunPython ("import my_script; my_script.get_data()")
End Sub
my_script 如下:
import pandas as pd
from xlwings import Workbook, Range
def get_data():
wb = Workbook.caller()
df = pd.read_csv("data.csv")
Range("Sheet2", "A1").value = df
我遇到的问题如下:
pywintypes.com_error: (-2147024882, 'Not enough storage is available to complete this operation.', None, None)
data.csv 文件有 150000 行和 120 行。使用更少的数据,它运行没有错误。
更新:目前没有解决方案,但评论中提供了一种解决方法:https ://github.com/ZoomerAnalytics/xlwings/issues/77
我使用以下内容:
df = pd.read_csv(csv_file, na_values={"", " ", "-"})
df.fillna("-", inplace=True)
startcell = 'A1'
chunk_size = 2500
if len(df) <= (chunk_size + 1):
Range(sheet_name, startcell, index=False).value = df
else: # chunk df and and dump each (default is 10k)\n",
c = re.match(r"([a-z]+)([0-9]+)", startcell, re.I)
cL = c.group(1)
cN = int(c.group(2))
n = 0
for i in (df[rw:rw + chunk_size] for rw in xrange(0, len(df), chunk_size)):
if n == 0:
Range(sheet_name, cL + str(cN+n), index=False).value = i
cN += chunk_size
else:
Range(sheet_name, cL + str(cN+n)).value = i.values
cN += chunk_size
n += 1
我遇到的问题是,当我在工作表中插入数据时,在 5002 处有一个空行,在 7503、10004 处再次出现......我意识到我的代码中有错误,但我找不到它。