64bit 化

投稿者 : ねこパティシエ     投稿日時 : 2024/08/10(Sat) 23:01:13     OS : Windows 11     EXCEL : 未指定

---

会社のシステムの64bit化を行っています
※Windows7→11

フォルダを選択するダイアログボックスを表示する箇所


Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _
(ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" _
(lpBrowseInfo As BROWSEINFO) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long

Public Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type
----------------------------------
Function GetFolder(Optional Msg) As String
    Dim bInfo As BROWSEINFO, pPath As String
    Dim R As Long, X As Long, pos As Integer　　　★★★
    bInfo.pidlRoot = 0&
    If IsMissing(Msg) Then
        bInfo.lpszTitle = "フォルダの選択..."
    Else
        bInfo.lpszTitle = Msg
    End If
    bInfo.ulFlags = &H1
    X = SHBrowseForFolder(bInfo)　　　　　　　　　　★
    pPath = Space$(512)
    R = SHGetPathFromIDList(ByVal X, ByVal pPath)　　★★
    If R Then
        pos = InStr(pPath, Chr$(0))
        GetFolder = Left(pPath, pos - 1)
    Else
        GetFolder = ""
    End If
End Function

上部PtrSafe他追加でエラーは出ませんが
下部★において”型が違います”エラーが出ます
★★★のXをLong→LongPtrで★のエラーは回避
続いて★★に同じエラーが発生、
同じようにLongPtrではオートメーションエラーによりエクセルが落ちます

どうぞご教授願います

投稿者 : tek     投稿日時 : 2024/08/11(Sun) 10:01:54

---

検索すると
https://learn.microsoft.com/ja-jp/archive/msdn-technet-forums/eaf2b8bc-d84f-4b98-9890-fdad67c852c3
がヒットしました。
あくまでdesktopからのみですが、動作しました。
win11

投稿者 : ねこパティシエ     投稿日時 : 2024/08/11(Sun) 21:21:09

---

ありがとうございます！
これで試してみます