Question

我的代码在32位Excel上运行良好。代码不适用于64位excel。在64位Excel中复制粘贴声明时没有给出错误。声明为红色，不予承认。

该代码用于检索命令行参数。

例如，如果我跑了：启动Excel＆＃34; C：\ GD \ Edu Recent \ ParametersProject.xlsm＆＃34; /p/"kjh%dg.pdf" 它会返回我可以解析的字符串并确定输入参数：＆＃34; C：\ GD \ Edu Recent \ ParametersProject.xlsm＆＃34; / P /＆＃34; KJH％dg.pdf＆＃34;

我如何进行转变？

以下是代码：

'I declared this code in a module called Parameters:

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)


Public Function CmdLineToStr() As String

'
' Returns the command line in the call to Excel
'
Dim Buffer() As Byte
Dim StrLen As Long
Dim CmdPtr As Long

CmdPtr = Parameters.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

和...

'I declared this code in the Workbook open:

Sub workBook_open()
    MsgBox Parameters.CmdLineToStr
End Sub

Answer 1

使用PtrSafe关键字声明语句是推荐的语法。在64位的Declare语句示例中：

Declare PtrSafe Function GetActiveWindow Lib "User32" () As LongPtr

查看此文档以获取更多信息：
https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/declare-statement

64位操作系统中的命令行参数

1 个答案: