Declare ｽﾃｰﾄﾒﾝﾄには PtrSafe ｵﾌﾟｼｮﾝを付けよう[ﾌﾟﾛｸﾞﾗﾐﾝｸﾞ]
(2021-02-26 11:19:13) by shinoda

もう Excel VBA ﾈｲﾃｨﾌﾞな人たちの間では､何年も前に話題になったであろう今更な話(笑)｡

お客さんに送ってもらった Excel ｼｰﾄで｢ｺﾝﾊﾟｲﾙｴﾗｰ：このﾌﾟﾛｼﾞｪｸﾄのｺｰﾄﾞjは､64 ﾋﾞｯﾄ ｼｽﾃﾑで使用するために更新する必要があります｡Declare ｽﾃｰﾄﾒﾝﾄの確認及び更新を行い､次に Declare ｽﾃｰﾄﾒﾝﾄに PtrSafe 属性を設定してください｡｣のｴﾗｰﾒｯｾｰｼﾞが表示される｡

ｾﾙの編集をすると実行される VBA ﾏｸﾛがあり､それがｴﾗｰになっているようだ｡

引っかかっているのは､ﾒｯｾｰｼﾞにあるように 

Private Declare Function SHBrowseForFolder Lib "SHELL32" (lpbi As BROWSEINFO) As Long
Private Declare Function SHGetPathFromIDListLong Lib "SHELL32" Alias "SHGetPathFromIDList" (ByVal pIDL&, ByVal lpStr$) As Long
Private Declare Function GetForegroundWindow Lib "USER32" () As Long

この部分｡

ﾒｯｾｰｼﾞに書かれているように､PtrSafe ｵﾌﾟｼｮﾝを追加してやるだけでいい｡

Private Declare PtrSafe Function SHBrowseForFolder Lib "SHELL32" (lpbi As BROWSEINFO) As Long
Private Declare PtrSafe Function SHGetPathFromIDListLong Lib "SHELL32" Alias "SHGetPathFromIDList" (ByVal pIDL&, ByVal lpStr$) As Long
Private Declare PtrSafe Function GetForegroundWindow Lib "USER32" () As Long

これでｴﾗｰは出なくなる｡

Declare ｽﾃｰﾄﾒﾝﾄで Dynamic Link Library(DLLﾌｧｲﾙ)内の外部ﾌﾟﾛｼｰｼﾞｬへの参照を宣言するのだが､64bit版の VBA では必ず PtrSafe を付けないといけないらしい｡｢この外部ﾌﾟﾛｼｰｼﾞｬが 64bit版 Office で実行しても安全よ｣ということを表明するだけのｵﾌﾟｼｮﾝだと聞いたことがあるが､本当なのか､どうなのか?(笑)
まあ､64bit版で動かして安全なのかどうなのかは･･･知らんけど(^^;;;
指定せんと動かんからな｡あとで､｢あんたが『安全』だと表明して PtrSafe ｵﾌﾟｼｮﾝ設定したんでしょ!｣とか言われたら困るけどな(^^;

ちなみに､この Excel ｼｰﾄを 64bit版でも 32bit版でも参照するのであれば､

#If VBA7 And Win64 Then

    Private Declare PtrSafe Function SHBrowseForFolder Lib "SHELL32" (lpbi As BROWSEINFO) As Long
    Private Declare PtrSafe Function SHGetPathFromIDListLong Lib "SHELL32" Alias "SHGetPathFromIDList" (ByVal pIDL&, ByVal lpStr$) As Long
    Private Declare PtrSafe Function GetForegroundWindow Lib "USER32" () As Long

#Else

    Private Declare Function SHBrowseForFolder Lib "SHELL32" (lpbi As BROWSEINFO) As Long
    Private Declare Function SHGetPathFromIDListLong Lib "SHELL32" Alias "SHGetPathFromIDList" (ByVal pIDL&, ByVal lpStr$) As Long
    Private Declare Function GetForegroundWindow Lib "USER32" () As Long

#End If 

このように条件付きｺﾝﾊﾟｲﾙをしてやる必要がある｡

今回は俺のPC+Office(64bit環境)でしか使わないので､PtrSafe をべた書きで追加しただけということ｡
ｺﾒﾝﾄ投稿
次の記事へ >
< 前の記事へ
TOPへ戻る

Powered by
MT4i 3.0.8