How to get command line arguments in Excel 2003

[DougP]

Need to open a workbook and have it go to a specific Sheet tab at the bottom.
this is my icon on my desktop
"F:\data\DougTest.xls" /e/6

I want to open DougTest.xls and have it goto the sixth tab or a Tab named MyData or whatever.
I found this code elsewhere.

Declare Function GetCommandLineA Lib "Kernel32" () As String
Dim CmdLine As String 'command-line string
CmdLine = GetCommandLineA 'get the cmd-line string
msgbox CmdLine

but I get error on the Declare line.
I tried it outside any sub at the very top of the Workbook code area and also inside the workbook_open sub.
It won't allow it. Where do I put declares in Excel????
it needs to be in each workbook (they will be on our web site at some point)
also tried this code which works in VB6 and Access

Dim CmdLine As String 'command-line string
CmdLine = Command() 'get the cmd-line string
msgbox CmdLine

But the message box is empty



DougP, MCP, A+

 

[combo]

There is no such switch for excel. You can use scripting instead, it will work as batch file. Create a text file (notepad) with 'vbs' extension. Sample code in the file:

dim xlApp
dim xlWbk
Set xlApp=CreateObject("Excel.Application")
xlApp.Visible=True
set xlWbk=xlApp.Workbooks.Open("C:\test.xls")
xlWbk.Worksheets(6).Activate
Set xlWbk=Nothing
Set xlApp=Nothing

When you double-click it, the script will open excel file.

combo

 

[taupirho]

A dos batch file will do what you want

Create a .bat file with the following in it

set myvar=6
c:\myexcel.xls

In your myexcel.xls spreadsheet, create an auto_open macro with the following in it

Dim x As Integer
Dim env As String

env = Environ("myvar")
x = CInt(env)
Sheets(x).Select

 

[DougP]

thankyou taupirho,
But this needs to work on a WEB page.
I want to click a hotpsot and have data popup somehow.
The data is currently in an Excel sheet with a lot of Sheets at the bottom.
I might have to copy the data out of excel and do something different.


DougP, MCP, A+

 

[VulcanJedi]

WSF files can pass parameters.

Tranpkp

 

[DougP]

tranpkp,
Can you give me an example?


DougP, MCP, A+

 

[Gavona]

Just a thought: could you hide all the worksheets except the one you want to see on the web page? Could be done using beforesave event?


Gavin