I have a REXX program that runs and now outputs different TXT files depending
on a Race Track. At the end of the REXX is run the following VBS that opens
Excel. I want to pass the VBS a variable filename.
In REXX I would call €˜RaceBetting.vbs filename

How can I set up the VBS to accept the parm when run? And then how can I
then pass this to the macro within Excel (below)
[RaceBetting.vbs]
--------------
Dim XLApp
Dim XLWkb
Set XLApp = CreateObject("Excel.Application")
XLApp.Visible = true
XLApp.Workbooks.Open "RaceBetting.xls"
XLApp.ActiveWorkbook.RunAutoMacros 1
----------------

In my macro I have the following code.
Note €œfilename€� was hardcoded below, I believe I have the syntax correct
except on how to accept the €œpassed-filename€� parm from the VBS file above.
----------------
Sub ImportRaceProgramData()
'
Dim file_name As Variant
Dim passed-filename As Variant €˜(added)
Worksheets("ProgramDataInput").Range("A3:H242").Cl earContents
€˜file_name = ThisWorkbook.Path & "\Cut-And-Paste-Into-XLS.txt" with
€˜(replaced)
file_name = ThisWorkbook.Path & "\" & passed-filename with
Worksheets("ProgramDataInput").QueryTables.Add(Con nection:= _
"TEXT;" & file_name _
€¦more€¦