Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Pass variabel to Excel open in VBA

Posted on 2010-11-09
8
Medium Priority
?
315 Views
Last Modified: 2012-05-10
Dear Expert,

When we open  excel file at command line  and running its macro , we will put the
code in Thisworkbook  sheet of  the excel file to run the macro autmatically
once the file is opend. I would like to know how to put variabe to the marco at
the command line.  Please advise, I try this command but it fail
C:> myexcel.xls  1

Duncan
----'Mymacro in the Thisworksheet

Sub workbook_open( i as integer )
if i= 0 then
call  previousmarco
Else
call udpatemacro
End Sub
0
Comment
Question by:duncanb7
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
8 Comments
 
LVL 59

Accepted Solution

by:
Chris Bottomley earned 2000 total points
ID: 34091071
0
 
LVL 13

Author Comment

by:duncanb7
ID: 34091197
Thanks, I get the commnadline string from the following code you suggestion, SO I can extract
the string of the commandline sting into my expect variable and use it for my application. Am i corret ?

The last question is that How could I run the excel file in readonly mode  because I need to re-run the
excel file at command in many timee for different varable chnage ?

'In THisworkbook
Private Sub Workbook_Open()
Dim CmdRaw As Long
Dim CmdLine As String
    
    CmdRaw = GetCommandLine
    CmdLine = CmdToSTr(CmdRaw)
    MsgBox CmdLine
End Sub 


in other macro sheet
=======================================

Option Base 0
Option Explicit

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)

Function CmdToSTr(Cmd As Long) As String
Dim Buffer() As Byte
Dim StrLen As Long
   
   If Cmd Then
      StrLen = lstrlenW(Cmd) * 2
      If StrLen Then
         ReDim Buffer(0 To (StrLen - 1)) As Byte
         CopyMemory Buffer(0), ByVal Cmd, StrLen
         CmdToSTr = Buffer
      End If
   End If
End Function 

Open in new window

0
 
LVL 13

Author Comment

by:duncanb7
ID: 34091221
http://www.robvanderwoude.com/commandlineswitches.php#Excel, for excel readonly mode open at command line
0
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
LVL 59

Expert Comment

by:Chris Bottomley
ID: 34091297
Sorry too late in responding ... of course as you said:

/r for reead only on the command line

Chris
0
 
LVL 59

Expert Comment

by:Chris Bottomley
ID: 34091406
BTW

I would suggest a B grade is unfair, the original question was about command line parameter passing, and was answered in full by the link, (and since the link is definitive there is nothing inappropriate in that).

Had I failed to respond to specific question thereof then perhaps.  Note the question re read only was additional but even then you should allow time to respond.

No point in chasing the admins to change the award though (even if you agree) i'm simply advising you on the normal etiquette.

Chris
0
 
LVL 13

Author Comment

by:duncanb7
ID: 34091425
No problem, I will re-credit it .
0
 
LVL 13

Author Closing Comment

by:duncanb7
ID: 34092900
Thanks for quick reply
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Suggested Courses

705 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question