Почему?
То что приписка 32 на конце, на сколько я понимаю, не означает что это 32 bit DLL.
32 bit dll нильзя загрузить на 64 битной винде.
Попробуйте такой макрос в Екселе запустить:
Если чтото выплюнит на лист - значит все работает.
ЗЫ У меня на 64битной ОС это работает. Подозреваю, что на надо было offset переменные трогать.
Цитата:
Option Explicit
Declare Function QueryPerformanceCounter Lib "Kernel32" _
(X As Currency) As Boolean
Declare Function QueryPerformanceFrequency Lib "Kernel32" _
(X As Currency) As Boolean
Sub Test_Timers()
Dim Ctr1 As Currency, Ctr2 As Currency, Freq As Currency
Dim Count1 As Long, Count2 As Long, Loops As Long
'
' Time QueryPerformanceCounter
'
If QueryPerformanceCounter(Ctr1) Then
QueryPerformanceCounter Ctr2
Range("B10").FormulaR1C1 = Ctr1
Range("B11").FormulaR1C1 = Ctr2
QueryPerformanceFrequency Freq
Range("B12").FormulaR1C1 = (Ctr2 - Ctr1) / Freq
Else
Range("B10").FormulaR1C1 = "High-resolution counter not supported."
End If
End Sub