VFP 导入Excel时如何导入批注内容？ - VFP论坛

jiazhefish

等　级：论坛游民
帖　子：64
专家分：28
注　册：2011-9-6
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：2

VFP 导入Excel时如何导入批注内容？

各位大神，我想整理Excel中的批注内容到dbf库中，请问如何实现啊？

ceshi.zip (12.8 KB)

以下是百度的内容，没成功

程序代码：

这样插入批注并设置字体：
p='你怎么会喜欢我'
qgq.ACTIVEWORKBOOK.SHEETS('全辖库存').CELLS(1,1).addcomment(p)
qgq.ACTIVEWORKBOOK.SHEETS('全辖库存').CELLS(1,1).comment.visible=.T. &&设置字体必须有这行。
qgq.ACTIVEWORKBOOK.SHEETS('全辖库存').CELLS(1,1).comment.shape.select
qgq.selection.Font.size=20
qgq.selection.Font.name="黑体"
qgq.selection.Font.bold=.t.
如何删除批注
qgq.range("A1").clearcomments
以上是正确的。

调整批注框的大小，我写成：
qgq.selection.shape.range.scaleheight=4.3
qgq.selection.shape.range.scalewidth=3.2
不正确。请高手指点。
如何引用批注，我写成：jjk=qgq.ACTIVEWORKBOOK.SHEETS('全辖库存').CELLS(1,1).comment.text.value
不正确。请高手指点。

搜索更多相关主题的帖子: 导入　 selection　内容　 Excel　库存　

2022-05-04 18:12

schtg

来　自：https://t.me/pump_upp
等　级：贵宾
威　望：67
帖　子：1355
专家分：2534
注　册：2012-2-29

第 3 楼

得分:20

回复 2楼 jiazhefish

我未测试，可以试一试：
jjk = ox.ACTIVEWORKBOOK.SHEETS('全辖库存').CELLS(1,1).comment.text
或
jjk = ox.ACTIVEWORKBOOK.SHEETS('全辖库存').Range("A1").comment.text
? jjk

*** 单元格 F5 中没有批注吧

[此贴子已经被作者于2022-5-4 20:16编辑过]

2022-05-04 20:12