64ビットシステムで使用するためにms-accessApplicationを更新します

File APIを使用する代わりに、FileDialogプロパティを使用することを検討してください.FileDialogプロパティがAccessVBAに追加され、ファイルの検索と選択におけるAPIの必要性が置き換えられました.

こんにちは、

お気軽に投稿してください.

よろしくお願いいたします.

ミア

OS(Windows 10)が原因で失敗しているのではなく、Officeのビットネスが原因で失敗しています.

以前はOffice...32ビットを実行していましたが、現在はOffice 36564ビットを実行しています. したがって、32ビットから64ビットのOfficeに移行しました.これには、すべてのAPI宣言を変更したり、ActiveXコントロールを変更したりする必要があります...

問題は、Officeがデフォルトで64ビットインストールになっていることです. インストーラーは選択肢さえ提供しません. ただし、Microsoftアカウントポータルから32ビットversionを簡単にインストールできます.を参照してください. https://support.Microsoft.com/ja-jp/Office/download-and-install-or-reinstall-Microsoft-365-or-Office-2019-on-a-pc-or-mac-4414eaaf-0478-48be-9c42-23adc4716658#installsteps= pc_step-by-step

したがって、選択はあなた次第です.必要なコード、ActiveXコントロールなどを更新するか、Officeを32ビットに切り替えて、以前と同じように動作し続けるようにします.

どうやら、新しいPCには64ビットのMicrosoft 365があり、もう一方のPCには32ビットがあります(どちらも64ビットのWindows 10を実行しています)

両方で機能するはずの変更されたコードは次のとおりです.

一部のデータ型の変更された定義を含めました.

プライベート宣言PtrSafe関数ShellExecuteLib "shell32.dll"エイリアス "ShellExecuteA"(_
ByVal hwnd As LongPtr、ByVal lpOperation As String、ByVal lpFile As String、_
ByVal lpParameters As String、ByVal lpDirectory As String、ByVal nShowCmd As Long)As LongPtr
PtrSafe関数apiGetcomputerNameLib "kernel32"エイリアスを宣言します_
"GetcomputerNameA"(ByVal lpBuffer As String、nSize As Long)As Long
PtrSafe関数apiGetUserNameLib "advapi32.dll"エイリアスを宣言します_
"GetUserNameA"(ByVal lpBuffer As String、nSize As Long)As Long
パブリック宣言PtrSafe関数GetOpenFileNameLib "comdlg32.dll"エイリアス_
"GetOpenFileNameA"(pOpenfilename As OPENFILENAME)As Long
パブリックタイプOPENFILENAME
lStructSize As Long
hwndOwner As LongPtr
hInstance As LongPtr
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
フラグAsLong
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As LongPtr
lpfnHook As LongPtr
lpTemplateName As String
終了タイプ
'特別なフォルダのITEMIDLIST構造へのポインタを取得します.
プライベート宣言PtrSafe関数SHGetSpecialFolderLocationLib _
"shell32.dll"(ByVal hwndOwner As LongPtr、ByVal nFolder As Long、pidl As ITEMIDLIST)As LongPtr
プライベートタイプSHITEMID
cb As LongPtr
abID As Byte
終了タイプ
プライベートタイプITEMIDLIST
mkid As SHITEMID
終了タイプ
'アイテム識別子リストをファイルシステムパスに変換します.
プライベート宣言PtrSafe関数SHGetPathFromIDListLib "shell32.dll"エイリアス "SHGetPathFromIDListA" _
(ByVal pidl As LongPtr、ByVal pszPath As String)As Boolean
'への呼び出しによって以前に割り当てられたタスクメモリのブロックを解放します
プライベート宣言PtrSafeSub sapiCoTaskMemFree Lib "ole32.dll" _
エイリアス "CoTaskMemFree(ByVal pv As LongPtr)

これは十分に文書化されています.宣言関数にPTRSAFEを追加する必要があります.つまり

PTRSAFE関数を宣言する

また、関数内の変数decalresはLongからPtrLongに変更する必要があります

見る PtrSafeキーワード(VBA)| Microsoft Docs