| A | B | C | D | E | F | G | H | |
| 1 | Example no.2 - Using two different libraries | AFinScript © AFIN 2016 | ||||||
| 2 | Start: [F5] or [Ctrl+Q] | |||||||
| 3 | <<< Parameters | Info: 5 columns (A:E = 'COCPI..T') from the #11 row are reserved for the AFinScript's program. | ||||||
| 4 | e.g. Path = | C:\AnyPath | ||||||
| 5 | e.g. Database = | |||||||
| 6 | e.g. Period = | |||||||
| 7 | My value = | 7 | ||||||
| 8 | ||||||||
| 9 | ||||||||
| 10 | Class (Vendor) | Object | Command | Parameters | Info | The rest: Comments, calculations, row parameters | ||
| 11 | # | This example is more complicated. It uses TWO DIFFERRENT libraries to do the task: Calculate something with the macro in a file currently closed and write the calculated value into another Excel file. | . | |||||
| 12 | . | . | ||||||
| 13 | # | 1. step you have to CALCULATE something. The
inicial value is here, in 'B7'. But the alghoritm is in a macro. File:
MyVbaMacros.xlsm The lines below are beeing shown twice: 1. as a value, 2. as a formula calculating this value. (A char "x" at the begininnig of the formula is for technical reasons only) |
. | |||||
| 14 | Afin.VBA | C:\AnyPath\MyVbaMacros.xlsm | SQUARED | Arg1=7; PasteTo=MySheet1!A1 | 0,003 | The function SQUARED calculated a value 49 | ||
| 14 | Afin.VBA | The formula of the cell
above: =""&$B$4&"\MyVbaMacros.xlsm" |
SQUARED | The formula of the cell
above: ="Arg1="&$B$7&"; PasteTo=MySheet1!A1" |
0,003 | and inserted it into a range specified. | ||
| 15 | # | 2. step - we need open an another Excel file 'MyReport.xlsx'… | . | |||||
| 16 | Afin.ExcelObjects | MyReport.xlsx | Open a workbook | Path=C:\AnyPath | 0,003 | |||
| 16 | Afin.ExcelObjects | MyReport.xlsx | Open a workbook | The formula of the cell
above: ="Path="&$B$4&"" |
0,003 | |||
| 17 | # | ...than insert there the value… | . | |||||
| 18 | Afin.ExcelObjects | MyReport.xlsx | Set a value | Sht=Sheet1; Rng=A1; Value=49 | 0,003 | |||
| 18 | Afin.ExcelObjects | MyReport.xlsx | Set a value | The formula of the cell
above: ="Sht=Sheet1; Rng=A1; Value="&MySheet!A1&"" |
0,003 | |||
| 19 | # | ...and save and close the file. | . | |||||
| 20 | Afin.ExcelObjects | MyReport.xlsx | Save a workbook | 0,003 | ||||
| 21 | Afin.ExcelObjects | MyReport.xlsx | Close a workbook | 0,003 | ||||
| 22 | 0,000 | |||||||
| 24 | ||||||||
| 25 | ||||||||
| 26 | Note: The file 'C:\AnyPath\MyVbaMacros.xlsm' will be automatically closed AFTER ending the script (as all the macro files automatically opened). | |||||||