Question

Excel 运行宏显示类型不匹配，该怎么解决？（64位系统）

Public Function Hook() As Boolean Dim TmpBytes(0 To 5) As Byte Dim p As Long Dim OriginProtect As Long Hook = False pFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA") If VirtualProtect(ByVal pFunc, 6, &H40, OriginProtect) <> 0 Then MoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, 6 If TmpBytes(0) <> &H68 Then MoveMemory ByVal VarPtr(OriginBytes(0)), ByVal pFunc, 6 p = GetPtr(AddressOf MyDialogBoxParam) HookBytes(0) = &H68 MoveMemory ByVal VarPtr(HookBytes(1)), ByVal VarPtr(p), 4 HookBytes(5) = &HC3 MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 6 Flag = True Hook = True End If End IfEnd Function

Answer 1

如果是代码要这么写

if application.version < 12 then
这里写office03及版本以下的代码
else
这里写office07及以上版本的代码
end if

如果是声明要这么写

#if VB7.0 then '如果不好使就把VB7.0改成VBA7.0，记不清了
这里写office07及以上版本的声明
#else
这里写office03及版本以下的声明
#end if

这样你写出的代码就能通用了

Answer 2

解决办法 ，将对应的 API定义中的 数据类型 long 改为 LongPtr。参考网页链接

Answer 3

同求。。。。。