ALL SOFTWARE EXERCISES
- EXERCISES HOME PAGE (813)
- Access 2010 (66)
- Access VBA Macros (17)
- Advanced VBA (29)
- Excel 2010 (83)
- Excel 2013 (10)
- Excel 2016 (0)
- Excel VBA Macros (37)
- Power BI - Excel 2013 (25)
- Power BI - Excel 2016 (23)
- Power BI Desktop (26)
- PowerPivot 2010 (26)
- Report Builder 3.0 (42)
- SQL (156)
- SSAS - multidimensional (21)
- SSAS - tabular (29)
- SSIS Integration Services (40)
- SSRS Reporting Services (53)
- Visual Basic (45)
- Visual C Sharp (65)
- WPF - Visual C# (20)
ADVANCED VBA EXERCISES
Exercise: Reading in a text file line by line to accumulate a message
This exercise is provided to allow potential course delegates to choose the correct Wise Owl Microsoft training course, and may not be reproduced in whole or in part in any format without the prior written consent of Wise Owl.
The answer to the exercise will be included and explained if you attend the course listed below!
You need a minimum screen resolution of about 700 pixels width to see our exercises. This is because they contain diagrams and tables which would not be viewable easily on a mobile phone or small laptop. Please use a larger tablet, notebook or desktop computer, or change your screen resolution settings.
The text file in the above folder contains a message - your task is to read it in line by line:
The start of the message (you could, of course, just read it manually!).
To achieve this task, first create a reference to the Microsoft Scripting Runtime object library. Now write code to set a string variable to a blank string to begin with, and accumulate text within it as you read in each line. Something like this should do the trick:
'read in the next character's line
NextCharacter = ts.ReadLine
'accumulate this in a string variable
msg = msg & NextCharacter
Obviously you'll need to include this within a loop reading lines in from the text file until you reach the end, and declare all the necessary variables!
If you succeed, your macro should display the meaning of life:
Clearly the message you accumulate and display will be different.
Save your workbook as Solving the mysteries of life.xlsm, then close it down.