usar - que es una etiqueta en c#

Establecer la línea de comando Opción para acceder a VBA

Question

Cuando inicio el proceso desde C #, utilizo el siguiente código:

ProcessStartInfo psi = new ProcessStartInfo(@"C:/MyProgram.exe");
psi.Arguments = "1";
Process p = Process.Start(psi);

¿Es posible establecer el valor de la variable global en el código VBA?

ProcessStartInfo psiMDB = new ProcessStartInfo(@"C:/MyProgram.mdb");
psiMDB.Arguments = "1";
Process p = Process.Start(psiMDB);

Si intento establecer un parámetro, tengo este error:

Answer 1

La mejor manera debe ser encontrar la aplicación asociada al tipo de archivo y luego iniciarla con los argumentos que necesita (incluido el archivo que se va a abrir).

Puede averiguar cómo determinar la aplicación predeterminada aquí .

Answer 2

Necesita combinar su ruta a MS Access con su DB como parámetro.

string dbPath = @"c:/MyProgram.mdb";
string pathToAccess = @"C:/Program Files (x86)/Microsoft Office/root/Office16/MSACCESS.EXE";

ProcessStartInfo psiMDB = new ProcessStartInfo(pathToAccess);
psiMDB.Arguments = dbPath + " /cmd 1";
Process p = Process.Start(psiMDB);

Además, no olvide adjuntar /cmd antes de colocar el siguiente parámetro.

Código de VBA adicional para leer Argumentos de inicio

Option Compare Database

Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineW" () As Long
Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (MyDest As Any, MySource As Any, ByVal MySize As Long)

Sub PrintStartupArguments()
    MsgBox CmdLineToStr()
End Sub

Function CmdLineToStr() As String

Dim Buffer() As Byte
Dim StrLen As Long
Dim CmdPtr As Long

CmdPtr = GetCommandLine()
If CmdPtr > 0 Then
  StrLen = lstrlenW(CmdPtr) * 2
  If StrLen > 0 Then
    ReDim Buffer(0 To (StrLen - 1)) As Byte
    CopyMemory Buffer(0), ByVal CmdPtr, StrLen
    CmdLineToStr = Buffer
  End If
End If

End Function