Save php parameter in vba variable

0

I have form that I pass one parameter and at the same time opens an Excel worksheet.  Here's an example:

<?php
if (isset($_GET["param"]) && !empty($_GET["param"])) {
    $param =  $_GET["param"]; 
    exec("START teste.xlsx $param");   
}else{  
    echo "Não foi enviado parâmetro.";
}
?>

<form method="GET" action="#">
    <input type="text" id="param" name="param">
    <button type="submit"> ABRIR EXCEL </button>
</form>

How do I save this parameter in a variable in Excel vba so I can use it?

    
asked by anonymous 15.10.2018 / 23:05

1 answer

0

Good afternoon. You can use the method that is described in this article link

Complementing the answer:

#If Win64 Then
Private Declare PtrSafe Function GetCommandLineL Lib "kernel32" _
    Alias "GetCommandLineA" () As LongPtr
Private Declare PtrSafe Function lstrcpyL Lib "kernel32" _
    Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As LongPtr) As Long
Private Declare PtrSafe Function lstrlenL Lib "kernel32" _
    Alias "lstrlenA" (ByVal lpString As LongPtr) As Long
#Else
Private Declare Function GetCommandLineL Lib "kernel32" _
    Alias "GetCommandLineA" () As Long
Private Declare Function lstrcpyL Lib "kernel32" _
    Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
Private Declare Function lstrlenL Lib "kernel32" _
    Alias "lstrlenA" (ByVal lpString As Long) As Long
#End If

Function GetCommandLine() As String
  Dim strReturn As String
  #If Win64 Then
  Dim lngPtr As LongPtr
  #Else
  Dim lngPtr As Long
  #End If
  Dim StringLength As Long
  'Get the pointer to the commandline string
  lngPtr = GetCommandLineL
  'get the length of the string (not including the terminating null character):
  StringLength = lstrlenL(lngPtr)
  'initialize our string so it has enough characters including the null character:
  strReturn = String$(StringLength + 1, 0)
  'copy the string we have a pointer to into our new string:
  lstrcpyL strReturn, lngPtr
  'now strip off the null character at the end:
  GetCommandLine = Left$(strReturn, StringLength)
End Function
    
15.10.2018 / 23:32