[µo°Ý] ¨Ïx86Excel VBAµ{¦¡½X¦bx64Excel°õ¦æ

Scott090

¨t²Î¥­¥x win x64¡A
    ½Ð°Ý­n¦p¦ó­×§ï ­ì¨Óªºx86 VBA
    ¨Ï¯à¦b x64 ¤Î x86 Excel ³£¯à°õ¦æ?
    «ô¤F Google ¤j¯«¤]¨S§ä¨ì¯à¹ê½è¨Ï¥Îªºµª®×©Î®×¨Ò¡C

    ·P®¦«ü¾É

checkout88

§A´N­«·s«Å§i´N¦n¤F.¥H¤U¬OÁ|¨Ò. ¥i¥H¥h°Ýgpt


#If VBA7 Then
    ' 64¦ì¤¸©Î¤ä´© VBA7 ªº32¦ì¤¸
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    ' ª©32¦ì¤¸
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub TestSleep()
    MsgBox "¶}©lµ¥«Ý 2 ¬í..."
    Sleep 2000 ' ¼È°± 2000 ²@¬í
    MsgBox "µ¥«Ýµ²§ô¡C"
End Sub

jackyq

¦Û±q gpt «_¥X«á , ¦³µLµo²{¥»½×¾Â´X¥GÁͪñµL¤Hµo°Ýª¬ºA

jackyq

¦pªG¥u¬O Declare PtrSafe °ÝÃD
§Úı±o¤£¤Ó¥i¯à google ·|§ä¤£¨ìµª®×
¦Ó x86  x64 ¤£¬Û®e¿ï¶µ¨Ã«D¥u¦³ standard dll (  Declare PtrSafe )

Scott090

¦^´_ 2# checkout88

    ½Ð°Ý ¸g¹L API ªº«Å§i«á¡Aµ{¦¡½X¤¤ªºÅÜ¼Æ ¤]­n¦p¦¹?
    DIM aa as long
     Åܦ¨  DIM aa as longPtr
   
     ·P®¦

Scott090

¦^´_ 4# jackyq

     ÁÂÁ¤j¤j¹ï GPT ªº´£¿ô¡A
     ¶¶«K°Ý¤@¤U¡A GPT ªº¦¬¶O¦p¦ó

jackyq

DIM aa as long
     Åܦ¨  DIM aa as longPtr

-> ¤£¶·­n , ¥u­n§ï API Án©ú

gpt ¦³§K¶O  ¤]¦³¥I¶O¤è®×

checkout88

¦^´_ 6# Scott090

³o¨Ç°ÝÃD¤£¥Î¿ú°Ú. ¤½¥q¨t²Î¤§«e¤@¤U¤l¤É64BIT, ¤@¤U¤l¤É OFFICE365..  ¦pªG¨S¦³ GPT, §Ú¥i¯à·|ªá 2 ­¿ªº®É¶¡§äµª®×.

checkout88

³Ì§Öªº¤è¦¡¬O§â§Aªº«Å§i³¡¥á¨ì gpt, ½Ð¥L§ï¦¨ 32/64 ¬Û®e, À³¸Ó5¤ÀÄÁ·d©w.

Scott090

¦^´_ 9# checkout88
¦^´_ 7# jackyq
   ÁÂÁÂ2¬°¤j¤jªº¨ó§U