EXERCISE TOPIC▼
- Access exercises (91)
- C# exercises (79)
- Excel exercises (278)
- Power Apps exercises (13)
- Power Automate exercises (18)
- Power BI exercises (139)
- Power Platform exercises (157)
- Python exercises (28)
- Report Builder exercises (141)
- SQL exercises (198)
- SSAS exercises (51)
- SSIS exercises (46)
- SSRS exercises (99)
- VBA exercises (85)
- Visual Basic exercises (46)
VBA EXERCISES▼
ADVANCED VBA EXERCISES▼
Advanced VBA | Working with text files 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.
Software ==> | Advanced VBA (33 exercises) |
Version ==> | Any MS Office versions |
Topic ==> | Working with text files (2 exercises) |
Level ==> | Relatively easy |
Subject ==> | VBA training |
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.