Bruce,
You have to use this method to open your Excel file ?

If so :
http://p2p.wrox.com/TopicIndex/22874.htm

but maybe it only works on XL97; could not get it work with XL2002.
If I add a
Debug.Print CmdLine
I get a load of binary and code that appears to come from Adode (I have
Acrobat installed).

but
MsgBox CmdLine
shows
"C:\..DOSPathToOffice..\excel.exe" c:\test.xls

Not sure if DDE is an option, but Automation would be easy.

NickHK

"BruceWyne" wrote in message
...
Hi can anyone help me with this problem?

I have this dos script to pass down a parameter upon opening the excel

@echo off
start excel "\\136.121.2.1\its helpdesk\ConRisk\RSP Concentration Risk
Calculation.xls" /e/8212305557



Is there any code to capture the parameter "8212305557" on the excel macro
upon opening?


I have tried this method but it gave me a kernel32 dll error on some pc.

here is my code


Option Base 1
Private Declare Function GetCommandLineA Lib "Kernel32" () As String

Dim CmdLine As String 'command-line string
Dim Args As Variant
Dim ArgCount As Integer 'number of parameters
Dim Pos1 As Integer, Pos2 As Integer
Dim sMsg As String
Dim Customercode As String
CmdLine = GetCommandLineA 'get the cmd-line string
CmdLine = Mid(CmdLine, 1, 255)
On Error Resume Next 'for the wksht-function "Search"
Pos1 = InStr(1, CmdLine, "/") + 1
Pos1 = InStr(Pos1, CmdLine, "/") + 1
Args = Split(Mid(CmdLine, Pos1, 255), "/")
For ArgCount = LBound(Args) To UBound(Args)
sMsg = sMsg & Args(ArgCount) & vbNewLine
Next ArgCount
Customercode = CStr(Trim(sMsg))


Can anyone help me with this?