Кросс-совместимость разрешения таймера миллисекунды в Excel VBA - PullRequest
Новая
       32

Кросс-совместимость разрешения таймера миллисекунды в Excel VBA

0 голосов
/ 30 августа 2011

Я хотел бы получить дробное разрешение таймера в проекте Excel VBA, который должен быть совместим с Windows Excel 2007 и Mac OS Excel 2011. Я нашел способ в окнах, использующий sleep из kernel32.dll и метод в Mac OS, использующий MacScript("GetMilliSec").

В настоящее время у меня ограниченный доступ к Mac, поэтому я не могу проверить это прямо сейчас. Если я объявлю Sleep так: 

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Будет ли возникать ошибка при открытии файла на Mac? Или ошибка будет помечена, только если / если в Mac вызывается Sleep?

Ответы [ 2 ]

1 голос
/ 16 февраля 2016

У меня есть Mac, использующий Office 2011, и я могу подтвердить, что ошибка возникнет, когда подпрограмма вызовет sleep с File not found: kernel32

Если у вас есть альтернативный подход к использованию команды sleep вMac, поделитесь и используйте приведенную ниже логику для выбора Mac или Windows: 

Public Sub WINorMAC()
'Test for the operating system.
    If Not Application.OperatingSystem Like "*Mac*" Then
        'Is Windows.
        Call Windows_specific_function()
    Else
        'Is a Mac and will test if running Excel 2011 or higher.
        If Val(Application.Version) > 14 Then
            Call Mac_specific_function()
        End If
    End If
End Sub

Вы также можете использовать этот код для установки таймера до 7 десятичных знаков, который работает как для Mac, так и для Windows: 

'---------TIMER MACRO--------'
'PURPOSE: Determine how many seconds it took for code to completely run
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault

Dim StartTime As Double
Dim SecondsElapsed As Double
Dim minutesElapsed As Double

'Remember time when macro starts
StartTime = Timer

'*************************************
'------Start to run code--------'
'*************************************

        Your code goes here


'*************************************
'----------End code----------'
'*************************************


'Determine how many seconds code took to run

'If you want in seconds with two decimals, use this line:
'SecondsElapsed = Round(Timer - StartTime, 2)

'If you want with up to 7 decimals, use this line:
SecondsElapsed = Timer - StartTime

'Notify user how long the macro took
If SecondsElapsed > 60 Then
    minutesElapsed = Int(SecondsElapsed / 60)
    SecondsElapsed = Int(SecondsElapsed - (minutesElapsed * 60))

    Msgbox "This code ran successfully in " & minutesElapsed & " minutes and " & SecondsElapsed & " seconds", vbInformation

Else
    Msgbox "This code ran successfully in " & SecondsElapsed & " seconds", vbInformation

End If
1 голос
/ 30 августа 2011

Полагаю, вам нужно использовать условную компиляцию, чтобы избежать объявления API, приводящего к ошибке на Mac. 

   #If Mac Then
      MsgBox "I'm a Mac"
   #Else
      MsgBox "I'm a PC"
   #End If
...