Excel VBA：无法粘贴单元格中包含超过 32676 个字符的文本答案

【问题标题】：Excel VBA: Not able to paste text contain more than 32676 characters in a cellExcel VBA：无法粘贴单元格中包含超过 32676 个字符的文本
【发布时间】：2017-07-15 01:32:35
【问题描述】：

我正在创建 am excel vba 代码，该代码从页面复制数据并粘贴到 excel 工作表中，并且我正在我的工作表中复制所需的 innerHTML。

因此，innerHTML 文本包含超过 32676 个字符，这是 excel 单元格中字符的限制。

请帮我解决这个问题。

如何在我的 vba 代码中分割该 innerHTML 文本并将分割后的文本粘贴到 excel 表中？？？

或任何其他方法来解决我的问题，如果你有的话。

提前致谢。

【问题讨论】：

您是否使用文件系统对象来读取数据？如果是这样，那么为什么不使用循环和 MID 函数将数据分块成可管理的长度。然后在 Excel 中的不同行上显示每个块。如果我们能看到您到目前为止所做的事情，将会有所帮助！

标签： excel vba web-scraping

【解决方案1】：

谢谢大家，找到解决办法，我把文字分开了:)

a = Trim(Doc.getElementById("comparison").innerHTML)
a1 = Mid(a, 1, 32000)
a2 = Mid(a, 32000, 64000)
a3 = Mid(a, 64000, 96000)
a4 = Mid(a, 96000, 128000)
b = Len(a)
ActiveCell.Offset(0, 2).Value = a1
ActiveCell.Offset(0, 3).Value = a2
ActiveCell.Offset(0, 4).Value = a3
ActiveCell.Offset(0, 5).Value = a4

【讨论】：