呼叫或宣告函式在不同版本的VBA時。64位元

                  #If VBA7 Then
  Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
  Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

http://stackoverflow.com/questions/29723694/excel-2013-windows-class-names
http://www.jkp-ads.com/articles/apideclarations.asp
http://phorum.study-area.org/index.php?topic=49537.0;wap

#If VBA7 Then
  Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
  Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

http://stackoverflow.com/questions/29723694/excel-2013-windows-class-names
http://www.jkp-ads.com/articles/apideclarations.asp
http://phorum.study-area.org/index.php?topic=49537.0;wap

View Oscar's Profile