将文本从Word表格单元格复制到电子表格单元格时的额外字符
将文本从Word表格单元格复制到电子表格单元格时的额外字符
提问于 2022-08-08 21:54:01
我正在将文本从Word文档中的表格单元格复制到Excel电子表格中的单元格中。
我在Word中有一个VBA宏，它主要使用以下语句复制单元格文本
nWorksheet.Cells(nRow, nCol).Text = oDocument.Range(Start:=oCell.Range.Start, End:=oCell.Range.End - 1)不幸的是，电子表格单元格中的内容似乎有一个额外的不可见字符，它的作用就像换行符或回车。
有人知道这个额外的角色是什么或如何避免它吗？
谢谢!
回答 1
Stack Overflow用户
回答已采纳
发布于 2022-08-09 06:27:34
我使用这个小函数从一个单元格返回文本，因为我总是忘记逻辑，但是调用getCellText很容易记住。
Public Function getCellText(c As Word.cell) As String
'returns text without cell-end
getCellText = Replace(c.Range.Text, Chr(13) & Chr(7), vbNullString)
'alternative:
'getCellText = Left(c.Range.text, Len(c.Range.text) - 2)
End FunctionChr(13) & Chr(7)表示您需要删除的单元格端。因此，yo要么用两个字符移动结尾，要么替换它。
你可以这样使用它：
nWorksheet.Cells(nRow, nCol).Text = getCellText(oCell)
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/73284411
复制相关文章
相似问题
腾讯云开发者
