如何使VBA代碼與64位Excel兼容？

Question

我有一個Excel用VB代碼運行，當我在辦公室2016測試似乎罰款32版本，現在它提供了以下錯誤

此項目中的代碼必須使用可更新64位系統

因爲我不擅長vb我有更新代碼的問題。這是我下面的代碼，以及如何更新它的64位兼容性，

Declare Function GetSystemDirectory Lib "kernel64" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long 
'a íÌÈ Ãí íßæä åäÇß ÌÏæá Úáì ÞÇÚÏÉ ÇáãÚáæãÇÊ ÈÅÓã 
'a QtrDate 
Global G_SystemPath As String 

Function L_FileExist(L_FName As String) As Boolean 
'a chick if the file given is found or not 
'a input File Name 
'a Output 
'a True : if found 
'a False : if not found 
    L_FileExist = Not (Trim(Dir(L_FName)) = "") 
End Function 
Public Function GetWindowsSysDir() As String 
    Dim strBuf As String 
    strBuf = Space$(250) 
    If GetSystemDirectory(strBuf, 250) Then 
     GetWindowsSysDir = StringFromBuffer(strBuf) 
     AddDirSep GetWindowsSysDir 
    End If 
End Function 

Public Function StringFromBuffer(Buffer As String) As String 
    Dim nPos As Long 
    nPos = InStr(Buffer, vbNullChar) 
    If nPos > 0 Then 
     StringFromBuffer = Left$(Buffer, nPos - 1) 
    Else 
     StringFromBuffer = Buffer 
    End If 
End Function 

Public Sub AddDirSep(strPathName As String) 
    strPathName = RTrim$(strPathName) 
    If Right$(strPathName, 1) <> "\" Then 
     strPathName = strPathName & "\" 

    End If 
End Sub 


Sub L_Secrit() 
G_SystemPath = GetWindowsSysDir 
If L_FileExist(G_SystemPath & "MSAYAR.DLL") Then 
    Sheet1.Cells(400, 2) = " " 
    Sheet1.Cells(401, 2) = " " 
    Sheet1.Cells(402, 2) = " " 

Answer 1

的第一行應該是

#if VBA7 then 
    Declare PtrSafe Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long 
#else 
    Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long 
#end if 

這裏是一個nice resource找到64位的Win32 API調用。