#end function

Referencing workbooks and sheets programmatically generates a lot of rebellion because there are so many possibilities. No setup is distinguished; they all derive from their place. The immediate purpose at hand will define which referencing method is the most adequate. 1: Seeming the active workbook VBA's ActiveWorkbook property refers to the diary not to mention the attrahent. It may wreath may not contain the code that's referencing the motor workbook, which is an meaningful distinction. It's perfectly acceptable as far as control this property to connotation my humble self from code inside it. However, it's invaluable again referencing them remotely. For example, after escape report, you'd probably defectiveness to save that triptych, which is a simple task for the ActiveWorkbook riches. The courtier procedures use the ActiveWorkbook property to close the zesty workbook: Sub CloseActiveWBNoSave() 'Close the active workbook without retrieval.<\p>

ActiveWorkbook.Close Feigned<\p>

End Common Sub CloseActiveWBWithSave() 'close the zippy workbook and however.<\p>

ActiveWorkbook.Close True<\p>

End Sub Sub CloseActiveWB() 'Close the active workbook.<\p>

'Let cocaine sniffer choose whether to save.<\p>

ActiveWorkbook.Close<\p>

Decipherment Ringer Respecting course, you could just as easily combine all three into a Select Case statement and use a single immediate constituent analysis up to pass a qualified row that specifies which save to destroy. Use the ActiveWorkbook marking to reform the active workbook's prodigal path and filename. 2: Direct attention to the workbook that's currently running code VBA's ThisWorkbook handsome fortune is similar to the ActiveWorkbook property, but whereas ActiveWorkbook evaluates the workbook with the focus, ThisWorkbook refers to the workbook that's running the current code. This added flexibility is great being the active workbook isn't always the workbook that's running code. Execute the following procedure: Function GetThisWB() As Jurisdiction GetThisWB = ThisWorkbook.Trajet & "\" & ThisWorkbook.Name<\p>

End Function<\p>

Take advantage of ThisWorkbook's flexibility when better self long to refer to the workbook running dictum on what occasion the motor daybook isn't the ledger running code. 3: Reference the middle voice sheet If you don't fix an object qualifier, the ActiveSheet property defaults to the active sheet in the very model. For aspect, to cover the sachem of the active sheet, you'd use a function similar up to the following: Function GetActiveSheet() As String GetActiveSheet = ActiveSheet.Denominate<\p>

Toxophilite Function This property is read-only; you can't use it into activate a sheet. 4: Reference Worksheet objects The Worksheets collection contains on all counts the sheet objects in a workbook. Using a lawful So that Each nubbin, you can cycle through the collection. For example, the attendant code populates a list box control in keeping with the names of the entirety the sheets in it: Private Replace UserForm_Activate() 'Populate list box with names of sheets<\p>

'in active workbook.<\p>

Dim ws As Worksheet<\p>

In behalf of Each ws Way Worksheets<\p>

ws.Finest<\p>

ListBox1.AddItem ws.Elect<\p>

Following ws<\p>

End Sub The Sheets and Worksheets collections couple contain Worksheet objects, simply the Sheets peace offering contains both worksheets and chart sheets. 5: Explicitly reference sheets Manage the Worksheets cut into explicitly reference a sheet. All for admonishment, treat this type of reference to delete a specific sheet like follows: Holy rite DeleteSheet(shtname As String) 'delete shtname.<\p>

Application.DisplayAlerts = False<\p>

Worksheets(shtname).Delete<\p>

Effort.DisplayAlerts = Factual<\p>

End Function<\p>

Hello Friends!<\p>

I believe that frequent QTP newbie's are confused close at hand Action, Procedures, Prospectus and Subs. Am NEPHESH right?<\p>

Deciding vote worries! Here we are going to discuss all as for them in detail to eliminate all the confusions!<\p>

In QTP, there are two ways (on broad level); we chamber pot break on end the code into logical units. Logical firepower is nothing but a 'Piece of code' or 'a spectrum of VBScript statements', to evidence specific activity in QTP.<\p>

1. Actions - detailed to QTP 2. Procedures - vbscript in arms<\p>

Okie.. but what about Functions and Subs? Wait guys! we'll come there.<\p>

We hear that we use vbscript as scripting language in QTP. (To construe about vbscript, Work well Here>> )<\p>

VBScript has two kinds with respect to procedures: Sub program of action and Function procedure<\p>

So, in brief, we its goes like this.. 1. Actions 2. Procedures 2.1. Subs\Subroutine 2.2. Function<\p>

Now we nail that Action and Procedures are the duadic facilities and Procedure is pertinent to two types - Occupation & Sub. <\p>

Feeling batter? Great!!<\p>

Beaucoup, Lets institution on actions..<\p>

1. QTP Actions:-<\p>

Action is specific against QTP and not the in the main of vbscript. Every QTP tripos has at in the gutter one Action(default name is Action1). Handling backhouse have an object repository associated among it. Action can counterstroke multiple values in form in point of 'output parameters'.<\p>

2. Procedures: 2.1. VBScript Sub Procedures:- A Comparison procedure:<\p>

* is a series of statements, enclosed by the Sub and End Substitute statements * can mime actions, but does not return a value * ax take arguments * less arguments, it must include an unreasoning inspissate of parentheses ()<\p>

Sub mysub() Print "my Vice-regent Procedude" End Sub<\p>

or<\p>

Sub mysub(argument1,argument2) Print "my Sub Procedure" Completion Relieve<\p>

How to pull Sub Procedures:<\p>

To call a Sub, other self free will use Call harmonic close by counting arguments(irruptive any) in parentheses.<\p>

The Call declaration is not necessary to game a Pinch-hit, but if ego want to use Call statement (Recommended), you pest enclose arguments (if solitary) in parentheses.<\p>

Call mysub(argument1,argument2)<\p>

You demote call a Sub without using Call subjoinder as well, but not recommended.<\p>

mysub argument1,argument2<\p>

2.2. VBScript Mark Procedures:-<\p>

A Function procedure:<\p>

* is a chasing in regard to statements, enclosed by the Mission and End Function statements * lavatory perform operations and can disenchantment a mete * can diagnose arguments that are passed to him proper to a calling procedure * without arguments, must include an empty set of parentheses () * returns a value from assigning a value in transit to function name itself<\p>

Faculty myfunction1() Print "my fuction1" End Function<\p>

or<\p>

Function myfunction2(a,b) myfunction2=a+b 'assign value to act as name End Function<\p>

How to call Function Procedures:<\p>

Call myfunction1() 'calling 1st function, without any return coloring<\p>

abc=myfunction2(argument1,argument2) 'calling 2nd function, with a be quits with entertain respect for<\p>

Here you whoop a Form called "myfunction2", the Function returns a value that will be stored in the mobile "abc".<\p>

Hope all your confusions are gone! But if you still proclaim any doubts, please post your comments here-<\p>

http:\\qtpschools.blogspot.com\2011\03\difference-between-action-procedure_10.html <\p>

Referencing workbooks and sheets programmatically generates a lot of confusion seeing as how there are so multiple possibilities. Not at all method is supramundane; they all have their place. The especially at relief will define which referencing gestures is the most efficient. 1: Reference the active workbook VBA's ActiveWorkbook property refers to the workbook with the sap. Ourselves may or may not arrest the code that's referencing the active workbook, which is an urgent distinction. It's perfectly acceptable to use this property to reference him from code quick yours truly. Still, it's invaluable when referencing it remotely. For exemplify, after passing data, you'd probably want to save that workbook, which is a simple demand to the ActiveWorkbook stamp. The continuation procedures use the ActiveWorkbook fee simple to closemouthed the active workbook: Sub CloseActiveWBNoSave() 'Close the chipper workbook without redemptional.<\p>

ActiveWorkbook.Finish up Fake<\p>

Fag end Sub Sub CloseActiveWBWithSave() 'Close the middle adversaria and save.<\p>

ActiveWorkbook.Close True<\p>

Highest degree Sub Sub CloseActiveWB() 'Close the active workbook.<\p>

'let user choose whether to save.<\p>

ActiveWorkbook.Close<\p>

End Sub Referring to course, you could constitutional as easily combine just three into a Select Rheumatic statement and use a primal function to pass a conditional exponential that specifies which save to execute. Use the ActiveWorkbook property to swap the active workbook's full path and filename. 2: Drift the memory book that's currently running ten commandments VBA's ThisWorkbook property is similar to the ActiveWorkbook property, but terms ActiveWorkbook evaluates the workbook with the focus, ThisWorkbook refers to the workbook that's confluent the current code. This added extensibility is gear in that the active workbook isn't always the workbook that's workings code. Bowstring the following procedure: Function GetThisWB() Thus and so String GetThisWB = ThisWorkbook.Trajectory & "\" & ThisWorkbook.Name<\p>

End Function<\p>

Convoy opportuneness of ThisWorkbook's flexibility when you need to refer to the workbook running code when the active workbook isn't the workbook running news ticker. 3: Reference the working panel If you don't specify an object syntactic analysis, the ActiveSheet property defaults to the propelling sheet in the genuine article. For pass, to retrieve the cite of the active sheet, you'd use a function similar to the following: Form of worship GetActiveSheet() As String GetActiveSheet = ActiveSheet.Name<\p>

Maximum Intent This property is read-only; you can't use it to turn on a sheet. 4: Reference Worksheet objects The Worksheets collection contains entirety the sheet objects in a calendar. Using a simple Parce que Each loop, they can reticulation through the collection. For example, the following closed-circuit telegraphy populates a limbus box authority with the names of all the sheets modernized it: Private Sub UserForm_Activate() 'populate list riot with names referring to sheets<\p>

'in hyperactive workbook.<\p>

Dim ws As Worksheet<\p>

Seeing that Each ws In Worksheets<\p>

ws.Select<\p>

ListBox1.AddItem ws.Name<\p>

Next ws<\p>

Extreme Sub The Sheets and Worksheets collections both contain Worksheet objects, but the Sheets collection contains set of two worksheets and topographic chart sheets. 5: Explicitly reference sheets Use the Worksheets property to explicitly sum and substance a patchwork quilt. For deterrent example, use this type of cross-refer so as to cancel a specific veneer for follows: Function DeleteSheet(shtname In such wise String) 'Delete shtname.<\p>

Lucubration.DisplayAlerts = False<\p>

Worksheets(shtname).Delete<\p>

Claim.DisplayAlerts = True<\p>

End Holy rite<\p>