VFP命令精确查找EXCEL字符串语句出错

kesc 发布于 2021-09-10 10:52， 2972 次点击

oXL=CREATEOBJECT('Excel.application')
oXL.Workbooks.Open("VFP.xlsx")
dz=oXL.range("A:A").Find("你好VFP",,,xlWhole).address
出错提示"找不到变量xlWhole"

12 回复

wengjl2021-09-10 13:06

dz=oXL.range("A1").text
if 要查找的内容$dz
? [找到]
else
? [没找到]
endif

[此贴子已经被作者于2021-9-10 13:08编辑过]

kesc2021-09-10 16:48

回复 2楼 wengjl

如果要用oXL.range("A:A").Find("你好").address语句返回符合的地址，完全匹配参数xlWhole要怎么使用

xuminxz2021-09-10 19:06

z=oXL.range("A:A").Find("你好VFP",,,1).address

schtg2021-09-11 05:44

学习啦，谢谢！

kesc2021-09-13 09:31

回复 4楼 xuminxz

那如果模糊匹配是将1改成0吗，因为我发现如果前面语句参数是1时，后面再用到FIND语句默认就是完全匹配

xuminxz2021-09-13 09:41

回复 6楼 kesc

xlPart 2
xlWhole 1

kesc2021-10-02 16:46

回复 7楼 xuminxz

再请教一个问题
ActiveSheet.PasteSpecial Format:="文本", Link:=False, DisplayAsIcon:=False
这个是宏录制的一个语句，如何写成
OXL.ActiveSheet.PasteSpecial Format:="文本", Link:=False, DisplayAsIcon:=False
后面的参数要怎么写

吹水佬2021-10-02 16:50

试试
OXL.ActiveSheet.PasteSpecial("文本", .F., .F.)
或
OXL.ActiveSheet.PasteSpecial("文本", 0, 0)

[此贴子已经被作者于2021-10-2 16:51编辑过]

#10

kesc2021-10-02 17:18

回复 9楼吹水佬

谢谢吹水佬，可以了

#11

kesc2021-10-02 17:44

回复 10楼 kesc

OXL.Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
后面参数又要怎么写

#12

xuminxz2021-10-02 18:25

回复 11楼 kesc

https://docs.
VBA中的参数常量只是为了（英文好的人）使用方便，实际上是每个定义都对应了数字。在上面查询一下就知道数值是多少了。

[此贴子已经被作者于2021-10-2 18:28编辑过]

#13

如歌岁月2021-10-19 08:12