Categories

Tools

bitdefender

1&1 Web Hosting
Code Snippets » Excel » A simple example of how you can add, automatically, the data in an Excel worksheet

A simple example of how you can add, automatically, the data in an Excel worksheet


In some cases, it is useful to add, automatically, the data in an Excel worksheet. The following example shows how to do it.

Code:

Sub LoadData()
    ' Rename the sheets
    Sheet1.Name = "Balance"
    
    ' Active Sheet1
    Sheet1.Activate
            
    ' Add header
    Sheet1.Cells.Item(1, 1) = "Description"
    Sheet1.Cells.Item(1, 2) = "Date"
    Sheet1.Cells.Item(1, 3) = "Amount"
    
    'Add informations
    Sheet1.Cells.Item(2, 1) = "Hosting"
    Sheet1.Cells.Item(2, 2) = "19/06/2011"
    Sheet1.Cells.Item(2, 3).Value = 80
    
    'Add informations
    Sheet1.Cells.Item(3, 1) = "Web site"
    Sheet1.Cells.Item(3, 2) = "23/06/2011"
    Sheet1.Cells.Item(3, 3).Value = 1900
    
    'Add informations
    Sheet1.Cells.Item(4, 1) = "Deploy and Setup"
    Sheet1.Cells.Item(4, 2) = "23/06/2011"
    Sheet1.Cells.Item(4, 3).Value = 120
    
    ' Calculate the total
    Sheet1.Cells.Item(6, 2) = "TOTAL"
    Sheet1.Cells.Item(6, 3).Formula = "=Sum(C2:C4)"
    Sheet1.Cells.Item(6, 2).Font.Size = 14
    Sheet1.Cells.Item(6, 2).Font.Size = 14
End Sub

Result:

A simple example of how you can add, automatically, the data in an Excel worksheet

Posted in Excel by MdmSoft

If our work has been of help, you can help us with a small donation...
Our programmers will thank you!

Related code snippets Related code snippets posted in Excel:


Recommended Books The best Excel recommended books:


All information contained in this web site are the property of MdmSoft. The information is provided "as is", MdmSoft will not be liable for any misuse of the code contained in these pages, nor can it be for inaccuracies, grammatical errors or other factors that may have caused damage or lost earnings. MdmSoft is not responsible for the content of comments posted by users.
The examples in this area have the educational and demonstration purposes only, and may be copied only for your reference, but cannot be used for commercial purposes, or for any other purpose, without the express written consent of MdmSoft.
MdmSoft also reserves the right to change, without notice, to your liking this web site, the pages and its sections, and may suspend temporarily or definitely the various services included on this site.
While using this site, you agree to have read and accepted our Terms of Service and Privacy Policy.